如何备份和还原ACCESS数据库

fairy911

各位大哥大姐：
我有一个ACCESS数据库，现在想实现它的备份与还原，具体情况如下：
（我很菜，请详细赐教，最好有代码，谢谢啊！）

源数据库路径
d:\bd\data.mdb
希望备份到的路径
e:\backup


请各位不惜赐教啊，谢谢！！！

小老鹰

直接拷贝和粘贴即可。

fairy911

要求在管理界面有那么两个按钮：“备份”和“下载”，一点就实现功能要求，跪求代码！

scn12345

我刚好写好，送你了，可以运行的，语言：delphi
备份：
var
path:string;             //存放备份路径的变量
begin
path:=trim(ExtractFilePath(Application.ExeName))+'数据库备份\'+'db2.mdb';
  try
if path <>'' then
  begin
    copyfile(pchar('db1.mdb'),pchar(path),true);
    application.MessageBox(pchar('备份成功!'+#13),'XGY',mb_ok+mb_iconinformation);
  end;
except
  begin
    application.MessageBox(pchar('备份失败!'+#13),'XGY',mb_ok+mb_iconwarning);
    abort;
  end;

还原：
var
  dbname, dbbname: string;

begin
    if MessageBox(self.Handle, '确认要还原数据么? ', '提示', mb_IconQuestion + mb_YesNo) = idYes then
  begin

   dbname := ExtractFilePath(Application.ExeName)+ '数据库备份\'+'db2.mdb';
   dbbname := ExtractFilePath(Application.ExeName)+'新建文件夹\'+ 'db1.mdb';
    if not FileExists(dbname) then
      MessageBox(self.Handle, '没有备份数据,不能还原', '提示', mb_IconInformation + mb_Ok)
    else
    begin
      CopyFile(Pchar(dbname), Pchar(dbbname), true);
      MessageBox(handle, '数据库还原成功!', '提示', mb_IconInformation + mb_Ok);
    end;
  end;

end;