不知用的是什么库.Asscess试试这样:
var
c1,c2:string;
........
c1:=ExtractFilePath(Application.ExeName)+'aa.mdb';
c2:=ExtractFilePath(Application.ExeName)+'bankup.mdb';
copyfile(pchar(c1),pchar(c2),false); //备份
.........
c1:=ExtractFilePath(Application.ExeName)+'bankup.mdb';
c2:=ExtractFilePath(Application.ExeName)+'aa.mdb';
copyfile(pchar(c1),pchar(c2),longbool(0)); //恢复
若是Sql就试试这样:
with AdoQuery1 do
begin
Close;
Sql.Clear;
Sql.Add('backup database aa to disk=''d:/back.bak''');
ExecSql;
end;//备份
恢复同样写Sql语句。