vb操作SQLServer时的一些问题？

[zth215]

vb操作sqlserver的还原时
为什么总是提示外部存取不能获得，因为数据库正在使用
我现在把和sqlserver有联系的都关闭了
但是还是有那个问题，应该是什么原因啊
（我在sql的查询分析器上运行都好用了）

[maskzha]

看看源码

[lilaclone]

你应该打开Master数据库然后再对你需还原的数据库进行操作，此时不能打开需还原的数据库

[lilaclone]

Set Conn = New ADODB.Connection
Conn.ConnectionString = strCnn
Conn.Open’打开需导出数据库的表

'开始备份(对整个数据库进行备份)
SQL = "EXEC sp_addumpdevice 'disk', '" & sGetDate & "Database'," & _
"'" & sServerFile & "\BACKUP\" & sGetDate & "Database.dat'"
SQL = SQL & " BACKUP DATABASE " & sInitialCatalog & " TO [" & sGetDate & "Database]"
Conn.Execute SQL

’还原数据库（此时应打开主表Master进行还原操作）
Set Conn = New ADODB.Connection
Conn.ConnectionString = strCnn
Conn.Open

'恢复数据库
SQL = "RESTORE DATABASE " & sInitialCatalog & " from [" & txtRestorePath.Text & "] "
Conn.Execute SQL
'sInitialCatalog 为当前数据库名 txtRestorePath.Text为Dat文件保存的路径