对数据库备份和恢复的例子有没有啊!怎么在代码中实现啊!!

Question

对数据库备份和恢复的例子有没有啊!怎么在代码中实现啊!!

Answer 1

if FileExists(BKFileName) then
    if MessageBox(Handle, Pchar('&Icirc;&Auml;&frac14;&thorn;&pound;&ordm;' + BKFileName + '&Ograve;&Ntilde;&frac34;&shy;&acute;&aelig;&Ocirc;&Uacute;&pound;&not;&Ecirc;&Ccedil;·&ntilde;&cedil;&sup2;&cedil;&Ccedil;&pound;&iquest;'), '&Iuml;&micro;&Iacute;&sup3;&Igrave;á&Ecirc;&frac34;', MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> IDYES then Exit;
  BackUp.SQL.Clear;
  BackUp.SQL.Add('Backup Database TaxiCarMIS to Disk=''' + BKFileName + ''' With Init');
  try
    SpeedButton2.Enabled := False;
    SpeedButton5.Enabled := False;
    Label1.Font.Color := clRed;
    Label1.Caption := '&Ecirc;&yacute;&frac34;&Yacute;&iquest;&acirc;±&cedil;·&Yacute;&Ouml;&ETH;&pound;&not;&Ccedil;&euml;&Eacute;&Ocirc;&ordm;&icirc;...';
    Self.Refresh;
    Application.ProcessMessages;
    BackUp.ExecSQL;
    SpeedButton2.Enabled := True;
    SpeedButton5.Enabled := True;
    Label1.Font.Color := clBlue;
    Label1.Caption := '±&cedil;·&Yacute;&Ecirc;&yacute;&frac34;&Yacute;&iquest;&acirc;...';
    MessageBox(Handle, Pchar('&Ograve;&Ntilde;&frac34;&shy;&sup3;&Eacute;&sup1;&brvbar;±&cedil;·&Yacute;&Ecirc;&yacute;&frac34;&Yacute;&iquest;&acirc;&micro;&frac12;&pound;&ordm;' + BKFileName), '&Iuml;&micro;&Iacute;&sup3;&Igrave;á&Ecirc;&frac34;', MB_OK or MB_ICONINFORMATION);
  except on E: Exception do
    begin
      SpeedButton2.Enabled := True;
      SpeedButton5.Enabled := True;
      Label1.Font.Color := clBlue;
      Label1.Caption := '±&cedil;·&Yacute;&Ecirc;&yacute;&frac34;&Yacute;&iquest;&acirc;...';
      MessageBox(Handle, Pchar('±&cedil;·&Yacute;&Ecirc;&yacute;&frac34;&Yacute;&iquest;&acirc;&Atilde;&raquo;&Oacute;&ETH;&sup3;&Eacute;&sup1;&brvbar;&pound;&not;&Ccedil;&euml;&frac14;ì&sup2;é&pound;&iexcl;' + #13 + '&sup3;&ouml;&acute;í&ETH;&Aring;&Iuml;&cent;&pound;&ordm;' + E.Message), '&Iuml;&micro;&Iacute;&sup3;&Igrave;á&Ecirc;&frac34;', MB_OK or MB_ICONERROR);
    end;
  end;

Answer 2

这么多转义符。看来是从网页上down的：）
搜一下以前的帖子吧，例子多的够你从现在一直看到建军节！

Answer 3

Access 复制粘贴就可以了
SQl:
with query do
begin
  close;
  Sql.clear;
  sql.add('BACKUP DATABASE 数据库 TO DISK = c:\aaa')
  try
    execsql;
  except
    showmessage('cuo wu');
  end;
end;
SQl.add('RESTORE 数据库 FROM c:\aaa WITH NORECOVERY')