怎样在delphi中备份access数据库.docxVIP

怎样在 delphi 中备份 access 数据库 发布人: formulas; 发布时间: 2006-12-15 ;上次回复: 2007-3-27 11:38:01; 总计回复: 8人次 怎样在 delphi中备份access 数据库？小弟从没做过这方面的东西，所以不会做。用了一个 savedialog 控件。也执行了savedialog.execute但我想备份的数据库 my1.mdb 还是没有成功备分到指定目录。希望各位大侠指点啊。 蓝冰(jrant)等[级：◆◆(初级)] 信( 誉值: 98)回复于: 2005-9-28 17:23:09Top 将 my1.mdb 文件直接另存为 遨游的人(gongda3124) [等级：◆(初级)] 信( 誉值: 100)回复于: 2005-9-28 17:29:53Top 老兄，你不是要我在 windows 下直接操作吧，我要求能在我自己编的软件中执行啊。 飞帆(flyjalor等) 级[ ：◆(初级)] 信( 誉值: 100)回复于: 2005-9-28 17:46:33Top 赫赫，你程序中式不是用到数据库了？？ 1。首先把数据库关闭！利用拷贝文件的 api函数备份到其他地方 2。在其他地方建立好相同的数据文件，你利用程序从本库写到备份库里 遨游的人(gongda3124) [等级：◆(初级)] 信( 誉值: 100)回复于: 2005-9-28 17:50:38Top 楼上的大哥能不能详细些啊，你这样说了我也不会做啊，最好能给出个例子。 蹩脚的程序员(winxkm) [等级：◆◆◆(初级)] 信( 誉值: 99)回复于: 2005-9-28 17:53:10Top 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; 遨游的人(gongda3124) [等级：◆(初级)] 信( 誉值: 100)回复于: 2005-9-28 18:31:14Top 呵呵，终于搞定了。 用 copyfile(pchar(sfile),(dfile),false); TTLOVEYOU3344( 笨笨) 等[ 级：◆(初级)] 信( 誉值: 100)回复于: 2007-3-27 11:32:36Top [Error] untcopy.pas(36): Undeclared identifier: PartsComplete [Error] untcopy.pas(40): Undeclared identifier: TotalParts [Error] untcopy.pas(44): Undeclared identifier: PartsComplete [Warning] untcopy.pas(46): Unsafe code BlockRead [Warning] untcopy.pas(47): Unsafe code BlockWrite [Error]