请问这个数据库恢复的错误如何解决！？谢谢

[czj2000]

Private Sub Command1_Click()

Set Con = New ADODB.Connection
ConString = "ODBC;DRIVER= {SQL SERVER};UID=SA;PWD=;SERVER=nick;DSN=master;DATABASE=master;"
Con.Open ConString
strSql = "alter database ddd set SINGLE_USER;restore database ddd from disk='c:\ddd.bak';alter database ddd set MULTI_USER"
Con.Execute strSql
End Sub
出现如下错误：
实时错误'-2147217900 (80040e14)':
[Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near the
keyword 'set'

[_1_]

那就是你的语法错误的， 在SQL的查询分析器里执行一下吧

[孙小雄]

http://211.141.67.12:88/vb/rebak.zip

下载吧 我做的
完整版

[czj2000]

怎么这么少人回答啊!?

[junwhj]

这种问题很多人问过了
===========================================
Private Sub Restore()
Dim cn As New ADODB.Connection
With cn
.Open "Provider=SQLOLEDB; " & _
"Server=" & ServerName & ";" & _
"Database=ddd;" & _
"Uid=" & ServerID & ";" & _
"Pwd=" + ServerPassword + ";"

.Execute "use master"

.Execute "alter database ddd set SINGLE_USER"
.Execute "restore database ddd from disk='d:\ddd.bak'"
.Execute "alter database ddd set MULTI_USER"

.Execute "use ddd"
End With
End Sub

[neary]

gz