|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/2/22 11:42:53 |
标题: |
|
加入我的收藏 |
楼主: |
procedure Tbackupfrom.BitBtn2Click(Sender: TObject); var F: TShFileOpStruct; begin F.wnd := Handle; F.wFunc := Fo_Delete; {操作方式} F.pFrom := pAnsichar(ExtractFileDir(Application.ExeName) + '\data\data.mdb' + #0); F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION; {操作选项} {--- 断开连接 ---} main.ADOConnection1.Connected := False; if ShFileOperation(F) <> 0 then MessageBox(0, '删除原始数据文件失败!', '错误', MB_OK + MB_ICONSTOP) else begin OpenDialog1.InitialDir := ExtractFileDir(Application.ExeName) + '\data\backup\'; if OpenDialog1.Execute then if CopyFile(PChar(OpenDialog1.FileName), PChar(ExtractFileDir(Application.ExeName) + '\data\data.mdb'), False) then MessageBox(0, '数据文件恢复成功!', '成功', MB_OK + MB_ICONINFORMATION); {--- 恢复连接 ---} main.ADOConnection1.Connected := True; end; end;
此帖子包含附件:
大小:9.0K |
----------------------------------------------
- |
作者: |
|
2004/2/22 11:46:48 |
1楼: |
在程序下面有一个data文件夹里面保存data.mdb,data下还有一个文件夹名为backup文件夹用来保存备份文件的。运行时弹出上班窗口但随后又提示备份分成功。
此帖子包含附件:
大小:5.3K |
----------------------------------------------
-
|
作者: |
|
2004/2/22 11:47:42 |
2楼: |
再后来又弹出一个窗口
此帖子包含附件:
大小:15.1K |
----------------------------------------------
-
|
作者: |
|
2004/2/22 13:37:48 |
3楼: |
我也对Delphi中数据库的备份和恢复弄不懂,请各位大虾明示!!!!!!!! 谢谢!!!!!!!!!!!!!!!!!!!!!!!!
----------------------------------------------
我爱DELPHI!
|
|