主题：请教sql数据库

要说多少次？附加数据库啊

Try
    If Connections.Contains("test") Then Connections.Delete("test")
    Dim cmd1 As New SQLCommand

    Connections.Add("test", "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=.")
    '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