delphi +sqlserver 2000怎样备份数据库和恢复数据库？？？？

Question

delphi +sqlserver 2000怎样备份数据库和恢复数据库？？？？在deplhi 底下实现。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
    begin
      if OpenDialog1.Execute then
      begin
        try
          adoconnection1.Connected:=True;
          with adoQuery1 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('Backup DataBase sfa to disk ='''+opendialog1.FileName+'''');
            ExecSQL;
          end;
        except
          
        Exit;
        end;
      end;
      end;
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      if OpenDialog1.Execute then
      begin
        try
         adoconnection1.Connected:=true;
          with adoQuery1 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('Restore DataBase sfa from disk ='''+opendialog1.FileName+'''');
            ExecSQL;
         end;
       except
      
         Exit;
       end;
     end;
     end;

Answer 2

用
ADOStoredProc
或
StoredProc

Answer 3

好象当你有ADOCONN连接到数据库时，不能进行恢复吧

Answer 4

/////////备份//////////////////////////
procedure TForm18.BitBtn1Click(Sender: TObject);
begin
adoquery1.Close;
try
  with adoquery1 do
    begin
    close;
    sql.Clear;
    sql.add('backup database mdf to disk=''c:\back1.bak''');
    execsql;
    end;
  showmessage('备份完成');
except
  on e:exception do
   showmessage('备份失败');
end;
end;///////////////还原///////////////////////////
procedure TForm18.BitBtn2Click(Sender: TObject);
begin
adoquery1.Close;
try
  with adoquery1 do
    begin
    close;
    sql.Clear;
    sql.add('restore database mdf from disk=''c:\back1.bak''');
    execsql;
    end;
  showmessage('还原成功');
except
  on e:exception do
   showmessage('还原失败');
end;
end;