引用ADO
Dim cn As ADODB.Connection
Set cn = New Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=1;Initial Catalog=2;Data Source=3", "4", "5"
1、2、3、4、5参数中,4、5指的是用户名和密码。试试吧!
Dim cn As ADODB.Connection
Set cn = New Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=1;Initial Catalog=2;Data Source=3", "4", "5"
1、2、3、4、5参数中,4、5指的是用户名和密码。试试吧!
Set cnn = New Connection
strCnn = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Data Source=192.168.0.9"
cnn.ConnectionString = strCnn
cnn.CursorLocation = adUseClient
cnn.Open
Set Cnn = New ADODB.Connection
With Cnn
.ConnectionString = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;PassWord=1234;" _
& "Initial Catalog=blackcar;Data Source=192.168.0.9"
.Open
End With