用Delphi6怎么实现数据库备份及恢复？ - Delphi论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 Delphi论坛』 → 用Delphi6怎么实现数据库备份及恢复？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1848 人关注过本帖

标题：用Delphi6怎么实现数据库备份及恢复？

只看楼主加入收藏

chb592657370

来　自：武汉交通职业学院
等　级：新手上路
帖　子：120
专家分：0
注　册：2006-12-9

楼主

问题点数：0 回复次数：5

用Delphi6怎么实现数据库备份及恢复？

我是新手，哪位Delphi高手指点下，谢谢了。[bc04] [bc04]

搜索更多相关主题的帖子: 数据库　

2008-02-27 10:37

chb592657370

来　自：武汉交通职业学院
等　级：新手上路
帖　子：120
专家分：0
注　册：2006-12-9

第 2 楼

得分:0

怎么这么长时间还没有人回答呢？

既然剑不如人，就要剑法胜于人！

2008-05-17 20:44

ruanjian2110

来　自：武汉
等　级：论坛游民
威　望：7
帖　子：486
专家分：50
注　册：2008-5-25

第 3 楼

得分:0

帮顶,高手都跑哪里去了,知道的指点下.

2008-06-14 13:18

makebest

等　级：蝙蝠侠
威　望：3
帖　子：658
专家分：962
注　册：2005-3-17

第 4 楼

得分:0

数据库？脑海中无数个影子闪过，不如是哪位大侠啊！

2008-06-14 19:09

lisatisfy

等　级：新手上路
帖　子：44
专家分：0
注　册：2008-7-25

第 5 楼

得分:0

我也在找答案中..一起顶个

2008-07-26 00:07

yuutian

等　级：黑侠
帖　子：137
专家分：686
注　册：2010-10-27

第 6 楼

得分:0

procedure tform1.Button6Click(sender:tobject);
begin
    if edit1.Text='' then
       ShowMessage('请选择需要恢复的数据库');
    if CopyFile(pchar(edit1.text),pchar('..\newfiledan.mdb'),false) then  //把数据库恢复(覆盖)到上层目录，文件名为newfiledan.mdb
    if Application.MessageBox('数据库恢复成功，请重新运行本程序！','恭喜',MB_YESNO)=6 then
       begin
       Application.Terminate;
       Exit;
       end
    else
       Close;
    if opendialog1.Execute then
       edit1.Text:=opendialog1.FileName;
    if CopyFile(pchar('newfiledan.mdb'),pchar('DB Backup\'+formatDateTime('yyyy-mm-dd_hh-mm',Now)+'.mdb'),false) then   //以当前的日期_时间命名备份的数据库
       Application.MessageBox('数据库备份成功,已以当前时间命名存至DB Backup文件夹中！','恭喜');
end;
end.

可以用用，我这是delphi7.0的代码。

2010-11-06 15:26

快速回复：用Delphi6怎么实现数据库备份及恢复？