访问Access实例Dim szPath As String Dim strCnn As String Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset szPath = "d:\db.mdb" strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & szPath db.Open strCnn rs.CursorLocation = adUseClient '控制记录集游标,客户端还是服务器端 rs.Open "select * from 表名", db, adOpenDynamic, adLockPessimisticrs.Close db.Close
Dim strCnn As String
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
szPath = "d:\db.mdb"
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & szPath
db.Open strCnn
rs.CursorLocation = adUseClient '控制记录集游标,客户端还是服务器端
rs.Open "select * from 表名", db, adOpenDynamic, adLockPessimisticrs.Close
db.Close