Public Cn As ADODB.Connection
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"User ID=sa;" & _
"Password=;" & _
"Database=DataBaseName;" & _
"Server=YourServerName"
Cn.Open
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"User ID=sa;" & _
"Password=;" & _
"Database=DataBaseName;" & _
"Server=YourServerName"
Cn.Open
用 adodc1:
With adodc1
.connectionstring = cnstr
.username = "sa"
.Password = youpasd
.RecordSource = yousql
.Refresh
End With或者用ADODB:
Dim cnn1 As ADODB.Connection
Dim rst1 As ADODB.Recordset
Set cnn1 = New ADODB.Connection
Call cnn1.Open(cnstr)
Set rst1 = New ADODB.Recordset
rst1.ActiveConnection = cnn1
On Error GoTo errorhandle
Call rst1.Open(yousql, cnn1, adOpenKeyset, adLockReadOnly)
以上这样,不知是否满意?。。
Dim Rs as new adodb.RecordSet
Conn.Open "DSN=test","sa",""Set Rs = Conn.Excute("查询字符串")if Not rs.eof() then