這幾天做設計用到ms sql資料庫的恢複功能,之間有個問題就是目前使用者正在使用資料庫而不能恢複。查了些文章,主要都是通過預存程序來做。前幾天發現有個類可以恢複,之後又請教學長,最後結合他們的方法解決了問題。主要原理是通過另一個使用者把目前使用者關掉,然後使用新的使用者來進行恢複,新的使用者權限要高。
恢複代碼如下:
If f = "" Then 'f為備份檔案名
MsgBox "請選擇備份檔案", vbOKOnly + vbInformation, "提示"
Else
cnn.Close '先關閉目前使用者進程
cnn2.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=(local)" '開啟新的使用者進程,這裡使用windows驗證登陸,也可以使用別的使用者,只要改連接字串就行了
sql = "select spid from master..sysprocesses where dbid=db_id('device')" '查詢正在使用device資料庫的使用者
Set rst = cnn2.Execute(sql)
While rst.EOF = False
sql = "kill " & rst.Fields(0) '關閉正在使用的使用者進程
cnn2.Execute sql '注意是cnn2,也就是新的進程來執行
rst.MoveNext
Wend
rst.Close
sql = "restore database device from disk='" & f & "'" '恢複資料庫命令
cnn2.Execute sql
cnn2.Close
Set cnn2 = Nothing ' cnn2完成使命,徹底釋放掉
cnn.Open '再開啟原先的串連
MsgBox "恢複成功", vbOKOnly + vbInformation, "提示"
End If
這個方法避免了停止資料庫服務帶來的不便,同時也保證了原先串連可以繼續使用,總體感覺還是比較方便