主题：附加sql数据库

Try
    If Connections.Contains("test") Then Connections.Delete("test")
    Dim cmd1 As New SQLCommand
    Connections.Add("test", "Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=voyo")
    cmd1.ConnectionName = "test"
    Connections("test").BeginTransaction() '开始事务
    cmd1.CommandText = "use master;EXEC sp_attach_db @dbname ='测试',@filename1 ='d:\ADMIN\测试.mdf',@filename2 ='d:\ADMIN\测试_log.ldf'"
    cmd1.ExecuteNonQuery()
    Connections("test").Commit '提交事务,所有操作生效
    If Connections.Contains("test") Then Connections.Delete("test")
Catch ex As Exception '如果出错
    msgbox(ex.message)
End Try
   

ex ec 存储过程名 '参数1', '参数2', '参数3'

如果sql语句有多句，可以用分号;区分不同的行。