在VB中怎样进行SQL SERVER数据恢复

Question

在VB中我能进行数据的备份，可恢复的时候总是出现问题。不是说数据库正在使用，就是对象关闭，不能进行恢复。

Answer 1

我就会access数据库修复！其他的不会呀！学习

Answer 2

杀掉sql服务器的所有连接，否则会出现：数据库正在使用，无法完成排它操作......
http://community.csdn.net/Expert/topic/4428/4428407.xml?temp=.5943415

Answer 3

http://expert.csdn.net/Expert/topic/2331/2331778.xml?temp=.1105005  
---------------------------------------------------------------  
 
*********************************************************  
'*  名称：BackupDatabase  
'*  功能：备份数据库  
'*  控件：一个文本框和两个按钮（备份到和确定）  
'*********************************************************  
Public  Sub  BackupDatabase()  
Dim  cn  As  New  ADODB.Connection  
Dim  s_path,  s_dataexport  As  String  
s_path  =  App.Path  
Me.MousePointer  =  11      '设置鼠标指针形状  
'student1是需要备份的数据库名称  
s_dataexport  =  "backup  database  student1  to  disk='"  +  CommonDialog1.FileName  +  "'"  
cn.Open  "driver={sql  server};server="  &  d1  &  ";database=student1;persist  security  info=false;  userid=sa"    '数据库连接字符串  
'这里不需要连接master数据库，即可完成备份  
cn.BeginTrans  
cn.Execute  s_dataexport  
Err.Number  =  0  
If  Err.Number  =  0  Then  
       cn.CommitTrans  
       MsgBox  "数据备份成功！",  vbInformation,  "提示"  
       MsgBox  "数据备份文件存放路径:"  &  CommonDialog1.FileName,  vbOKOnly,  "提示"  
       Unload  Me  
Else  
       cn.RollbackTrans  
       MsgBox  "数据备份失败！请检查数据库是否正在打开！",  vbCritical,  "提示"  
End  If  
cn.Close  
Set  cn  =  Nothing  
Me.MousePointer  =  1  
End  Sub  
 
 
 
'*********************************************************  
'*  名称：RestoreDataBase  
'*  功能：还原数据库  
'*  控件：一个文本框和两个按钮（  打开和确定）  
'*********************************************************  
Public  Sub  RestoreDataBase()  
If  Text1.Text  =  ""  Then  
       MsgBox  "请选择要恢复的数据文件！",  vbInformation,  "提示"  
       Exit  Sub  
Else  
       ret  =  MsgBox("数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复，您确定要进行恢复操作吗？",  vbQuestion  +  vbOKCancel,  "提示")  
       If  ret  =  vbOK  Then  
             Dim  cn  As  New  ADODB.Connection  
             Dim  sn  As  New  ADODB.Recordset  
             Dim  s_restore  As  String  
             Me.MousePointer  =  11  
             cn.Open  "Provider=SQLOLEDB.1;Persist  Security  Info=False;server="  &  d1  &  ";Initial  Catalog=master;Data  Source=127.0.0.1;user  id=sa;password="  &  d3  &  ""  
             sn.Open  "select    spid    from    sysprocesses    where    dbid=db_id('student1')",  cn  
               Do  While  Not  sn.EOF  
                   cn.Execute  "kill  "  &  sn("spid")  
                   sn.MoveNext  
               Loop  
               sn.Close  
               s_restore  =  "restore  database  student1  from  disk='"  +  Trim(Text1.Text)  +  "'    with  REPLACE"  
               cn.Execute  s_restore  
                 'Debug.Print  gs_conn_string  
                 '此时需要连接master数据库才能完成数据恢复操作  
                 '同上student1为需要恢复的数据库  
               s_restore  =  "restore  database  student1  from  disk='"  +  Trim(Text1.Text)  +  "'"  
                 'text1一个用于记录需要恢复文件的地址的textbox  
               cn.Execute  s_restore  
               cn.BeginTrans  
               If  Err.Number  =  0  Then  
                       cn.CommitTrans  
                       MsgBox  "数据恢复成功！",  vbInformation,  "提示"  
                       Command1.Enabled  =  True  
                       Label1.Visible  =  False  
               Else  
                       cn.RollbackTrans  
                       MsgBox  "数据恢复失败！",  vbCritical,  "提示"  
                       Command1.Enabled  =  True  
               End  If  
               cn.Close  
               Set  cn  =  Nothing  
               Me.MousePointer  =  1  
       Else  
               Exit  Sub  
       End  If                                            '''''''''''''''''''''''''''''''''''''''''  
       On  Error  Resume  Next  
       Dim  DBC  As  New  DataBaseConnection  
       If  db.State  =  1  Then  
             db.Close  
       End  If  
       db.ConnectionString  =  DBC.SqlConnectString(d1,  d2,  d3)  
       rs.CursorType  =  adOpenDynamic  
       rs.CursorLocation  =  adUseClient  
       rs.LockType  =  adLockOptimistic  
       db.CursorLocation  =  adUseClient  
       db.Open  
       Set  cmd.ActiveConnection  =  db  
       If  Err.Number  Then  
             MsgBox  Err.Description,  16  +  vbOKOnly,  Err.Number  
             Exit  Sub  
       End  If  
       db.DefaultDatabase  =  "student1"  
       If  Err.Number  Then  
             MsgBox  Err.Description,  16  +  vbOKOnly,  Err.Number  
             Exit  Sub  
       End  If  
End  If  
End  Sub                                            '''''''''''''''''''''''''''''''''''''''''''''  
 
如果当前没有与要恢复的数据库立连接，则不需要加单引号中的内容。  
 
如果希望恢复数据库之后继续建立连接，则需要写这部分代码。  
 
我要恢复数据库名称为student1，备份数据库的时候是在连接状态下进行的，但是恢复数据库不可以在数据库存在连接的状态下进行操作！代码的解决方法是：先连接SQL  Server中主库master  库，在该库中的sysprocesses表中存放着所有连接到此数据库的连接信息，将这些连接信息用Kill语句删除。然后再恢复数据库student1，由于用Kill语句后，数据库已经被断开，所以在恢复完成后，再用系统最初的连接数据库代码连接上数据库student1。  
 别人的代码，我给你铁出来吧

Answer 4

恢复的时候，一般是把你的数据库的连接关掉，然后借助master数据库来恢复