怎么用vb分离一个数据库，和附加数据库

[colorslife]

如题，我想用程序分离一个数据库，然后在附加进去，
高手帮忙

[faysky2]

可以引用ADO来执行分离和附加数据库的SQL语句

分离数据库的sql语句:
http://community.csdn.net/Expert/TopicView3.asp?id=4515605
http://community.csdn.net/Expert/TopicView3.asp?id=4350957

附加数据库的sql语句:
http://community.csdn.net/Expert/TopicView3.asp?id=4805415

[colorslife]

谢谢楼上的兄弟，呵呵

[faysky2]

试试:

Private Sub Command1_Click()
Dim conn As Object
Dim strSql As String
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=dbName;Data Source=serverName"
conn.Open

strSql = "EXEC sp_detach_db @dbname = 'pubs'" '分离 pubs 数据库
conn.Execute strSql

strSql = "EXEC sp_attach_single_file_db @dbname = 'pubs',@physname = 'c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs.mdf'" '附加 pubs 数据库
conn.Execute strSql

conn.Close
Set conn = Nothing
End Sub