Delphi 中数据备份和恢复...

来源：互联网发布：linux nginx安装编辑：程序博客网时间：2024/06/10 18:43

备份:

procedure TMainForm.FileDataBackupExecute(Sender: TObject);
var adoTemp: TADOQuery;
begin
adoTemp := TADOQuery.Create(nil);
adoTemp.Connection := CommonData.acnConnection;
adoTemp.close;
adoTemp.SQL.Text := Format('BACKUP DATABASE [%s] TO DISK = ''%s''',
    [CommonData.acnConnection.DefaultDatabase,
    ExtractFilePath(Application.ExeName) + 'Backup/' +
    CommonData.acnConnection.DefaultDatabase +
    FormatDateTime('yymmdd-hhnnss', Now) + '.bak']);
adoTemp.ExecSQL;
showmessage('数据备份完毕！');
end;

问题:当目标无Backup这个文件夹的时候,就会提示错误,要手动去建这个文件...所以,是不是该有个什么语句,当要备份的时候就去检测一下有没有Backup这个文件夹,没有就自动创建个...可惜不知道创建文件夹的语句,菜鸟就是菜鸟...

procedure TMainForm.FileDataRestoreExecute(Sender: TObject);
begin
Application.CreateForm(TMSDataRestoreForm, MSDataRestoreForm);
MSDataRestoreForm.ShowModal;
MSDataRestoreForm.Free;
end;

此语句尚未仔细测试