怎样在delphi中备份access数据库

Question

怎样在delphi中备份access数据库？小弟从没做过这方面的东西，所以不会做。用了一个savedialog控件。也执行了savedialog.execute但我想备份的数据库my1.mdb还是没有成功备分到指定目录。希望各位大侠指点啊。

Answer 1

老兄，你不是要我在windows下直接操作吧，我要求能在我自己编的软件中执行啊。

Answer 2

赫赫，你程序中式不是用到数据库了？？
1。首先把数据库关闭！利用拷贝文件的api函数备份到其他地方
2。在其他地方建立好相同的数据文件，你利用程序从本库写到备份库里

Answer 3

procedure Tfrm_main.FileCopy;
var
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
    ProgressBar1.PartsComplete:=0;
    label1.Caption:='数据库备份过程中......' ;
    AssignFile(FromF, extractfilepath(application.EXEName)+'DB\data.roc');
    Reset(FromF, 1); { Record size = 1 }
    ProgressBar1.TotalParts:=sizeof(FromF);      AssignFile(ToF, extractfilepath(application.EXEName)+'DB\backup\'+formatDateTime('yyyy-mm-dd',date)+'.roc'); { Open output file }
      Rewrite(ToF, 1); { Record size = 1 }
      ProgressBar1.PartsComplete:=sizeof(ToF);
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      CloseFile(FromF);
      CloseFile(ToF);
      self.state.Caption:='' ;
      messagedlg('数据库备份成功！',mtinformation,[MBOK],0);
      ProgressBar1.PartsComplete:=0;
end;

Answer 4

呵呵，终于搞定了。
用copyfile(pchar(sfile),(dfile),false);