主题：[求助]附加数据库

Dim cmd1 As New SQLCommand

If Connections.Contains("test") Then Connections.Delete("test")

Connections.Add("test", "Provider=.....")

cmd1.C

Try

    Connections("test").BeginTransaction() '开始事务

    cmd1.CommandText = "use master;EXEC sp_detach_db '测试'"

    cmd1.ExecuteNonQuery()

    Connections("test").Commit '提交事务,所有操作生效

Catch ex As Exception '如果出错

    msgbox("11111")

End Try

If Connections.Contains("test") Then

    Connections.Delete("test")

End If