如何用delphi编写备分数据库和还原数据库

Question

请教如何用delphi编写备分数据库和还原数据库（SQL2000）
能够选择数据库，写用户和密码
选择备分和还原的路径

Answer 1

备份使用 BACKUP DATABASE ……
还原使用 RESTORE DATABASE …… 只有在数据库未有用户连接的情况下才可还原。
您查看 SQL Server 2000 的联机手册就明白了，解释得非常详细。

Answer 2

//恢复
  if not  OpenDialog.Execute then exit;
  with DM do
  begin
   AdoComm.CommandText := 'RESTORE DATABASE CodeLib FROM DISK = ' + #39 + OpenDialog.FileName + #39;
   AdoComm.Execute;
   ADOComm.CommandText := 'ALTER DATABASE CodeLib SET ONLINE WITH ROLLBACK IMMEDIATE';
   ADOComm.Execute;
   ADOConn.Connected := True;
   MessageDlg('数据已成功恢复！', mtWarning, [mbOK], 0);
  end;
//备份
  with DM do
  begin
    AdoConn.Connected := false;
    Adocomm.Connection:= ADOConmaster;//转移连接到数据库master
    Adocomm.CommandText:='ALTER DATABASE CodeLib SET OFFLINE WITH ROLLBACK IMMEDIATE';//切断sbhy连接
    Adocomm.Execute;
    if SaveDialog.Execute then
    begin
      Adocomm.CommandText:='RESTORE DATABASE CodeLib FROM DISK = ''' +SaveDialog.FileName +'''';
      Adocomm.Execute;
    end;
  end;

Answer 3

查看SQL帮助
backup database 
restore database
但恢复数据库要杀死所要恢复数据的进程。