本地access数据库备份和恢复

Question

procedure TMain.N2Click(Sender: TObject);
var
  F:TShFileOpStruct;
begin
 if (login.admin<>true) then
  messagebox(getactivewindow(),'你无权进行此操作,请联系管理员!','错误!' ,MB_OK + MB_ICONINFORMATION)
else
 begin
   F.wnd:=Handle;
   F.wFunc:=Fo_COPY;
   F.pFrom:=pAnsichar(ExtractFileDir(Application.ExeName)+'计费系统.mdb'+#0);
   F.pTo:=pAnsichar('db.bak') ;
  if ShFileOperation(F)<>0 then
       MessageBox(getactivewindow(), '数据文件备份失败!', '错误', MB_OK + MB_ICONSTOP)
    else
       MessageBox(getactivewindow(), '数据文件备份成功!', '成功', MB_OK + MB_ICONINFORMATION);
    end;
end;这段代码是我从别人那里拷贝的，可为什么执行不了，谢谢解释一下这段程序，如果哪位大侠有本地数据库备份的程序，给我看看，了

Answer 1

最好把这段代码改改，保存的路径自己来确定，opendialog

Answer 2

procedure TFormMain.BackupDataClick(Sender: TObject);
var
  MyFileName: string;
begin
  MyFileName := '';
  try
    if SaveDialog1.Execute then
    begin
      MyFileName := SaveDialog1.FileName;
      if MyFileName <> '' then
      begin
        if CopyFile(Pchar(ExtractFilePath(Application.ExeName) + 'HYTJ.mdb'), Pchar(MyFileName), false) then
        begin
          Application.MessageBox('数据备份成功','提示',Mb_ok + mb_iconinformation);
        end;
      end;
    end;
  except
    Application.MessageBox('数据备份失败','提示',Mb_ok + mb_iconError);
  end;
end;procedure TFormMain.RestorDateClick(Sender: TObject);
var
  MyFileName, aa: string;
begin
  MyFileName := '';
  try
    if OpenDialog1.Execute then
    begin
      MyFileName := OpenDialog1.FileName;
      if MyFileName <> '' then
      begin
        aa := ExtractFilePath(Application.ExeName) + 'HYTJ.mdb';
        if CopyFile(Pchar(MyFileName),Pchar(aa), false) then
        begin
          DM.ADOConnect.Close;
          DM.ADOConnect.Open;
          Application.MessageBox('数据恢复成功','提示',Mb_ok + mb_iconinformation);
        end;
      end;
    end;
  except
    Application.MessageBox('数据恢复失败','提示',Mb_ok + mb_iconError);
  end;
end;

Answer 3

fhuibo(永远深爱一个叫“莎“的好女孩儿) 是不是那个　(永远深爱一个叫“然“的好女孩儿) 移情别恋了