SQL Server 2000數(shù)據(jù)庫備份與恢復(fù)(DELPHI版本)

一,、SQL語句說明

備份數(shù)據(jù)庫的SQL語句
BACKUP DATABASE 數(shù)據(jù)庫名 TO DISK = '文件名'

恢復(fù)數(shù)據(jù)庫的SQL語句
RESTORE DATABASE 數(shù)據(jù)庫名 FROM DISK = '文件名'

這里有個小技巧,，我就經(jīng)常喜歡這么用。使用SQL Server 2000自帶的工具"SQL事件探查器",，能夠監(jiān)視到所有執(zhí)行的SQL語句,。
比如你不知道備份與恢復(fù)數(shù)據(jù)庫該用什么SQL，那么可以運(yùn)行探查器,，然后到企業(yè)管理器里執(zhí)行一下備份與恢復(fù)操作,。
就可以到探查器里找找結(jié)果了。

有一點(diǎn)要說明的是,，備份與恢復(fù),，都只能在裝有數(shù)據(jù)庫的那臺機(jī)器（服務(wù)器）上操作，不能遠(yuǎn)程執(zhí)行的,。要特別注意這點(diǎn),。

二、備份部分

procedure TDataBackupForm.btnBackupClick(Sender: TObject);
var
  ado:TADOCommand;
  msg:TFMessageWindow;
begin
  if IDYES=MessageDlg('數(shù)據(jù)庫備份功能只能在服務(wù)器上執(zhí)行,請先確認(rèn)計(jì)算機(jī)是要備份的服務(wù)器,是否現(xiàn)在進(jìn)行備份?',mtConfirmation ,[mbYes,mbNo],0) then
  begin
    if SaveDialog1.Execute then
    begin
      msg := TFMessageWindow.Create(application);
      msg.SetMessage('正在備份,，可能需要幾分鐘時間,。');
      if (not FileExists(SaveDialog1.FileName)) or (DeleteFile(SaveDialog1.FileName)) then
      begin
        ado := TADOCommand.Create(nil);
        ado.Connection := MainDM.ADOconn;
        ado.CommandTimeout := 300;
        msg.Show;
        application.ProcessMessages;
        ado.CommandText := 'BACKUP DATABASE WYSFXT TO DISK = ''' + SaveDialog1.FileName + '''';
        try
          ado.Execute;
        except
          ShowMessage('數(shù)據(jù)庫備份失敗');
          Exit;
        end;
        ado.Free;
        ShowMessage('操作成功，系統(tǒng)數(shù)據(jù)庫已備份,。'+chr(13)+chr(13)
                    +'備份文件：'+SaveDialog1.FileName);
      end;
      msg.Close;
      msg.Free;
    end;
  end;
end;

程序很簡單,。可能要說明一下的是那個msg:TFMessageWindow;
這是一個窗體,，自己新建個過去,，重命名,。再在上面加個LABEL，命名為lblMessage,，增加一個函數(shù)
procedure TFMessageWindow.SetMessage(AStr:string);
begin
  lblMessage.Caption := AStr;
end;
用于設(shè)置要顯示的信息,。
在上面那段備份數(shù)據(jù)庫的代碼中，是調(diào)用這個窗體來顯示提示的,！

三,、恢復(fù)部分

恢復(fù)有個地方要注意的，是必須沒有其他程序連接到你要恢復(fù)的這個數(shù)據(jù)庫上,。包括你的程序自身,。
因?yàn)橛锌赡苣愕某绦蚯懊嬉呀?jīng)連接到數(shù)據(jù)庫，并進(jìn)行了一些操作,。比如：登錄系統(tǒng)->驗(yàn)證用戶名,。
這時必須關(guān)閉AdoConnection，并重新打開,，打開的時候,，注意不能指定默認(rèn)數(shù)據(jù)庫（特別注意）。你一指定默認(rèn)數(shù)據(jù)庫,，就又連接上了,。
那么永遠(yuǎn)也沒辦法成功恢復(fù)數(shù)據(jù)庫的！

procedure TDataBackupForm.btnRestoreClick(Sender: TObject);
var
  conn:TADOConnection;
  ado:TADOCommand;
  msg:TFMessageWindow;
  sPath:string;
begin
  if IDYES=MessageDlg('數(shù)據(jù)庫恢復(fù)功能只能在服務(wù)器上執(zhí)行,請先確認(rèn)計(jì)算機(jī)是要恢復(fù)的服務(wù)器,并且現(xiàn)在沒有任何程序正在使用數(shù)據(jù)庫,是否現(xiàn)在進(jìn)行恢復(fù)?',mtConfirmation ,[mbYes,mbNo],0) then
  begin
    if OpenDialog1.Execute then
    begin
        msg := TFMessageWindow.Create(application);
        msg.SetMessage('正在恢復(fù),，可能需要幾分鐘時間,。');
      try
        conn := TADOConnection.Create(nil);
        conn.LoginPrompt := false;
        conn.Connected := false;
        conn.ConnectionString :=
             'Provider=SQLOLEDB.1;User ID=sa;Password=sa;Data Source='
              + LogonServerForm.GetServerName;

        MainDM.ADOconn.Free;        //關(guān)掉原先已經(jīng)打開的數(shù)據(jù)庫連接

        conn.Connected := true;
        ado := TADOCommand.Create(nil);
        ado.Connection := conn;
        ado.CommandTimeout := 3000;
        msg.Show;
        Application.ProcessMessages;
        sleep(100);
        ado.CommandText := 'RESTORE DATABASE WYSFXT FROM DISK = '''
                           + OpenDialog1.FileName + '''';
        ado.Execute;
        ado.Free;
        msg.Close;
        msg.Free;
        msg := nil;
        MessageDlg('數(shù)據(jù)庫恢復(fù)完成,現(xiàn)在將重啟動本系統(tǒng)。',mtInformation ,[mbOK],0);
        MainForm.Close;
      except
        msg.Close;
        msg.Free;
        MessageDlg('數(shù)據(jù)庫恢復(fù)失敗,請確認(rèn)沒有其它程序已經(jīng)連接到數(shù)據(jù)庫?，F(xiàn)在將重啟動本系統(tǒng),。',mtInformation ,[mbOK],0);
        MainForm.Close;
      end;
      sPath:=ExtractFilePath(application.ExeName);
      shellexecute(0,'open',
           Pchar(ExtractFileName(Application.ExeName)),nil,@sPath,sw_normal);
    end;
  end;
end;

注意程序最后用了個小技巧，使用shellexecute,，在數(shù)據(jù)庫恢復(fù)成功,，或者恢復(fù)失敗時，重啟程序本身,。

本文來自CSDN博客,，轉(zhuǎn)載請標(biāo)明出處：http://blog.csdn.net/xtBurn/archive/2007/01/20/1488701.aspx