'差不多一样,举个例子: Sub sql() Dim iDb As ADODB.Connection Dim iRe As ADODB.Recordset Dim iConc As String
iConc = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _ "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名" Set iDb = New ADODB.Connection Set iRe = New ADODB.Recordset iDb.Open iConc iRe.Open "表名", iDb, adOpenKeyset, adLockOptimistic Msgbox iRe(0) iRe.Close iDb.Close Set iRe=Nothing Set iDb=Nothing End Sub
Sub sql()
Dim iDb As ADODB.Connection
Dim iRe As ADODB.Recordset
Dim iConc As String
iConc = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
"User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名" Set iDb = New ADODB.Connection
Set iRe = New ADODB.Recordset
iDb.Open iConc
iRe.Open "表名", iDb, adOpenKeyset, adLockOptimistic
Msgbox iRe(0) iRe.Close
iDb.Close
Set iRe=Nothing
Set iDb=Nothing
End Sub