delphi7.0要怎样实现access的备份与恢复。我是菜鸟。最好是能有详细的代码和步骤 ，

Question

请问哪位高手可以告诉我delphi7.0要怎样实现access的备份与恢复。我是菜鸟。最好是能有详细的代码和步骤 ，我想给多多的分数。要多少给多少！谢谢啦。

Answer 1

access数据库是以单一文件形式保存的(*.mdb)，所以最简单的办法，就是复制数据库文件，恢复则直接将备份的数据库文件进行覆盖现有的数据库即可。

以下是代码：
1. 备份：
copyfile(pchar('file.mdb'),PAnsiChar('f_to.mdb'),false);

2. 恢复：
copyfile(pchar('f_to.mdb'),PAnsiChar('file.mdb'),false);

提示一点：恢复数据库的时候，程序里要关闭数据库的连接。追问

可以给出详细点的代码和操作步骤吗？我对那些控件都不是很清楚。比如说要怎样命名复制的数据库呢。要怎样实现放在哪个盘呢

追答

假设，要备份的数据库为 e:\test\data.mdb，你要备份的放在路径 e:\数据库备份 下面，则：

1. 备份代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
if fileExists('e:\数据库备份\data.mdb') then
begin
messagebox(Handle,'数据库文件已经存在，'+#13#10+'不用建备份该文件。','确定',
mb_ok or MB_ICONWARNING);
exit;
end else
begin
copyfile(PChar('e:\test\data.mdb'), PChar('e:\数据库备份\data.mdb'),true);
messagebox(Handle,'数据库文件备份成功','确定',mb_ok or MB_ICONWARNING);
end;
end;

2. 还原代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
if not fileExists('e:\数据库备份\data.mdb') then
begin
messagebox(Handle,'备份数据库文件不存在，'+#13#10+'请检查后重试。','确定',
mb_ok or MB_ICONWARNING);
exit;
end else
begin
copyfile(PChar('e:\数据库备份\data.mdb'),PChar('e:\test\data.mdb'), true);
messagebox(Handle,'备份数据库文件恢复成功','确定',mb_ok or MB_ICONWARNING);
end;
end;