工程-->引用-->Microsoft ActiveX Data Object 2.x Library Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.CursorLocation = adUseClient cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Master;Data Source=(local)" cn.execute ...
首先对楼上的各位表示衷心的感谢!但是又不得不再麻烦各位,我的捆饶在于:如何把附加数据库的的sql语句在vb中实现:我现在写成这样了 Private Sub Command1_Click() cn.execute strSql End SubPrivate Sub Command4_Click() Unload Me End SubPrivate Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.CursorLocation = adUseClient cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Master;Data Source=(local)" strSql = "sp_attach_db @dbname = N'SSBMSDB', @filename1 = N'D:\LZ_ms2.0\Database\SSBMSDBData.mdf', @filename2 = N'D:\LZ_ms2.0\Database\SSBMSDBLog.ldf'" End Sub 但是没有达到目的!!!
@filename1 = N'c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs.mdf',
@filename2 = N'c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs_log.ldf'
cn.execute strSql
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Master;Data Source=(local)"
cn.execute ...
sp_attach_db 'pubs', 'c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs.mdf', 'c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs_log.ldf'
Private Sub Command1_Click()
cn.execute strSql
End SubPrivate Sub Command4_Click()
Unload Me
End SubPrivate Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Master;Data Source=(local)"
strSql = "sp_attach_db @dbname = N'SSBMSDB', @filename1 = N'D:\LZ_ms2.0\Database\SSBMSDBData.mdf', @filename2 = N'D:\LZ_ms2.0\Database\SSBMSDBLog.ldf'"
End Sub
但是没有达到目的!!!
cn.Execute strSql