Access数据库备份

说是数据库的备份，但实际只是用CopyFile把文件拷贝一遍而已，废话不多说了，直接看代码吧！

 

procedure TForm3.btn1Click(Sender: TObject); begin if CopyFile(pchar('yizero.mdb'),pchar('DB Backup/'+formatDateTime('yyyy-mm-dd_hh-mm',Now)+'.mdb'),false) then //以当前的日期_时间命名备份的数据库 Application.MessageBox('数据库备份成功,已以当前时间命名存至DB Backup文件夹中！','恭喜'); end; procedure TForm3.btn2Click(Sender: TObject); begin if dlgOpen1.Execute then edt1.Text := dlgOpen1.FileName ; //读取要恢复的数据库文件的绝对路径，保存到编辑框里 end; procedure TForm3.btn3Click(Sender: TObject); begin if edt1.Text='' then ShowMessage('请选择需要恢复的数据库'); if CopyFile(pchar(edt1.text),pchar('../yizero.mdb'),false) then //把数据库恢复(覆盖)到上层目录，文件名为yizero.mdb if Application.MessageBox('数据库恢复成功，请重新运行本程序！','恭喜',MB_YESNO)=6 then begin Application.Terminate; Exit; end else Close; end;

 

 

最后附上CopyFile的用法：

CopyFile(
  lpExistingFileName: PChar; {源文件}
  lpNewFileName: PChar;      {目标文件}
  bFailIfExists: BOOL        {如果目标文件存在, True: 失败; False: 覆盖}
): BOOL;

 

see Yizero by yizero.com