怎样在VB里用ADO还原SQL数据库？

Question

我用RESTORE DATABASE 想对一个备份文件进行还原，但始终调式不成功。
谁能给我一段还原数据库的代码？

Answer 1

我用RESTORE DATABASE还原一个数据库时 如果不改变原数据库实体文件路径的情况下成功了，
但我想还原为一个新数据库的时候，由我来指定新数据库的实体文件路径，总是有问题语句错误，哪哥们帮帮忙啊。

Answer 2

参考：备份:
'引用ADO
Private Sub Command1_Click()
    Dim backUpFileName As String
    With CommonDialog1
        .DialogTitle = "保存的文件名"
        .Filter = "*.SQL|*.SQL"
        .InitDir = App.Path
        .ShowSave
        backUpFileName = CommonDialog1.FileName
    End With    Dim cn As New ADODB.Connection
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登录名;Password=密码;Initial Catalog=数据库;Data Source=Sql服务器别名"
    cn.CursorLocation = adUseClient
    cn.Open
    cn.Execute ("backup database 数据库 to disk='" & backupdilename & "'")
End Sub
'-------------------------------
恢复:
Private Sub Command2_Click()
    Dim backUpFileName As String
    With CommonDialog1
        .DialogTitle = "保存的文件名"
        .Filter = "*.SQL|*.SQL"
        .InitDir = App.Path
        .ShowSave
        If Dir(CommonDialog1.FileName) <> "" Then
            backUpFileName = CommonDialog1.FileName
        Else
            MsgBox "文件不存在！"
            Exit Sub
        End If
    End With
    
    Dim cn As ADODB.Connection, rs As New ADODB.Recordset
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登录名;Password=密码;Initial Catalog=master;Data Source=Sql服务器别名" '借助master数据库来恢复
    cn.CursorLocation = adUseClient
    cn.Open
    rs.Open "select spid from sysprocesses where dbid=db_id('你的数据库名)", cn
    Do While Not rs.EOF
      cn.Execute "kill  " & rs("spid")   '杀掉sql服务器的所有连接，否则会出现：数据库正在使用，无法完成排它操作等等，很重要
      rs.MoveNext
    Loop
    cn.Execute ("restore database 数据库名 from disk='" & backUpFileName & "' with replace")
End Sub