如何在delphi中备份和恢复SQL sever中的数据库

Question

在delphi6.0中做了一个数据备份和恢复模块
如何在delphi中备份和恢复SQL sever中的数据库。

Answer 1

知道SQL sever的数据库保存路径就可以像备份文件一样复制出来，要恢复时也一样复制进去就可以实现备份与恢复了，Access中我是这样处理的，但没在SQL sever中试过

Answer 2

备份:
  try
    DModule.ADOCon.Execute('Backup DataBase WareHouse to disk='+QuotedStr(BakPath.Text));
    ShowMessage('数据库备份成功！');
  except
    ShowMessage('数据库备份失败！');
  end;

Answer 3

恢复   
 try
      ADOCon.Connected:=False;
      ADOCommand1.Connection:=ADOMasterCon;
      ADOCommand1.CommandText:='ALTER DATABASE WareHouse SET OFFLINE WITH ROLLBACK IMMEDIATE';
      ADOCommand1.Execute;      ADOCommand1.CommandText:='RESTORE DATABASE WareHouse FROM DISK = '''+BakFromEdit.Text+'''';
      ADOCommand1.Execute;
      MessageBox(0,'数据库恢复成功！','仓库管理系统',MB_OK);
    finally
      ADOCommand1.CommandText:='ALTER DATABASE WareHouse SET ONLINE WITH ROLLBACK IMMEDIATE';
      ADOCommand1.Execute;
      ADOMasterCon.Connected:=False;
    end;
    ADOCon.Connected:=True;