Question

在VB中，设计了一个数据库备份恢复程序，备份没有问题，恢复时却总是显示SQL SERVER不存在或拒绝访问。

请教各位高手帮忙修改下。
小弟写的代码如下：
Private Sub Command2_Click()
On Error GoTo err1
If Text1.Text = "" Then
MsgBox "请您选择数据库恢复的路径!", 64, "提示信息"
Else
con.Open "Provider=SQLOLEDB.1;Persist Security info=false;User Id=sa;Data Source=master"
Do While Not rs.EOF
cn.Execute "kill " & rs("spid")
rs.MoveNext
Loop
sql = "RESTORE DATABASE XWGLPT from disk='" & Text1.Text & "'" '恢复数据库
con.Execute (sql) '执行SQL语句
MsgBox "数据库恢复成功!!", 64, "提示信息"
con.Close
End If
Exit Sub
err1:
MsgBox Err.Description
con.Close
End Sub
网上其他高手都说要先杀死进程，但还是不行。

Answer 1

没用过SQL Server，平时只用Oracle，但感觉你的问题应该是权限问题，你所使用的用户没有恢复数据库的权限，所以才会被拒绝访问。

Answer 2

con.Open "Provider=SQLOLEDB.1;Persist Security info=false;User Id=sa;Data Source=master" 这条代码没有指定数据库位置吧!

所以按道理应该改成!
con.Open "Provider=SQLOLEDB.1;Persist Security info=false;User Id=sa;Data Source=" & text1.text & "