>>我的数据库名是HWAY_DBS
就把上面sql中的YourDataBase换成HWAY_DBS就行了。
procedure TForm1.Button1Click(Sender: TObject);//备份
begin
AdoQuery1.SQL.Text := 'backup database HWAY_DBS to disk = ' + '''' + 'e:/backup.dat' + '''';
AdoQuery1.ExecSQL;
end;
把数据库备份出来,存为e盘下的文件backup.dat,你想保存在什么地方就换成什么文件名和路径。
另外那段是把备份的文件恢复到数据库中。这样你的数据库内容就成了备份时的内容。
只需要一个AdoConnection连你的数据库HWAY_DBS,ADOQuery连这个Adoconnection就行了。
(恢复时,AdoConnection不要连HWAY_DBS,随便连一个其他数据库就行了,如Master)