delphi mysql 数据库备份_Delphi中实现Access数据库备份和恢复的代码

常用的是delphi备份SQL Server，较少用delphi备份Access的，今天有人问了一下，顺便把代码贴出来。有人可能会有需要。(使用的是文件复制和替换方式)

procedure TBackup.Button1Click(Sender: TObject);

var

path:string;

begin

if SaveDialog1.Execute then

if SaveDialog1.FileName <> '' then

begin

path := ExtractFilePath(application.ExeName);

try

copyfile(pchar(path+ 'db.mdb'), pchar(SaveDialog1.FileName+'.bak'), false);

showmessage('备份成功！');

except

showmessage('备份失败，请重试！');

end;

end;

end;

//恢复数据库

procedure TBackup.Button3Click(Sender: TObject);

var

path:string;

begin

if OpenDialog1.Execute then

if OpenDialog1.FileName <> '' then

begin

path := ExtractFilePath(application.ExeName);

try

TBackup.ADOConnection1.Connected := false;

Deletefile(path+'db.mdb');

copyfile(pchar(OpenDialog1.FileName),pchar(path + 'db.mdb'), false);

showmessage('成功恢复数据！');

Application.Terminate;

except

showmessage('恢复失败，请重试!');

end;

end;

end;