如何用delphi编程实现access数据库的备份？

Question

如何用delphi编程实现access数据库的备份？
能具体写一下代码吗？

Answer 1

我就用VCLZIP 把它压缩，然后名字用日期表示

Answer 2

procedure TFbak1.Button1Click(Sender: TObject);
var
  ErrorMessage: Pointer;      
  ErrorCode: DWORD;           
  ErrorMessageString:string;
begin
  if not CopyFile('原始数据库名','备份数据库名',False) then
  begin
    ErrorCode := GetLastError;
    FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM,
                  nil, ErrorCode, 0, @ErrorMessage, 0, nil);
    ErrorMessageString:='文件备份错误：'+PChar(ErrorMessage);
    MessageBox(handle,PChar(ErrorMessageString),'警告',MB_ok or MB_ICONERROR);
    LocalFree(hlocal(ErrorMessage));
  end
  else MessageBox(handle,'文件备份成功','信息',MB_ok or MB_ICONINFORMATION);
end;