备份数据库？

Question

如何备份数据库？

Answer 1

procedure TFormBackup.Button1Click(Sender: TObject);
var
  BackupTxtFile:textfile;  //备份文件变量
  s_FilePath,              //bfxx.txt文件的完整文件名
  s_str:string;            //向bfxx.txt里添加的内容
begin  //调用copyfile备份数据库
  databasepath:=extractfilepath(application.ExeName)+'Data\MineDB.mdb';
  copyfile(pchar(databasepath),pchar(edtto.text),true);
  showmessage('数据库备份成功！');  //向bfxx.txt文件中写备份信息 
  s_FilePath:=extractfilepath(application.ExeName)+'Data\bfxx.txt';
  assignfile(BackupTxtFile,s_FilePath);
  append(BackupTxtFile);
  s_str:=datetimetostr(now)+'&'+edtto.text;
  try
    writeln(BackupTxtFile,s_str);
  finally
    closefile(BackupTxtFile);
  end;end;