分页:
上一页 1 2 3 4 5 [6] 7 下一页
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open strDBPath
End With
Set rst = New ADODB.Recordset
With rst
" Select the index used to order the
" data in the recordset.
.Index = strIndex
" Open the table by using a scrolling
" Recordset object.
.Open Source:=strTable, _
ActiveConnection:=cnn, _
CursorType:=adOpenKeyset, _
LockType:=adLockOptimistic, _
Options:=adCmdTableDirect
" Find the order where OrderId = 10255 and
" ProductId = 16.
.Seek KeyValues:=varKeyValues, SeekOption:=adSeekFirstEQ
分页:
上一页 1 2 3 4 5 [6] 7 下一页