ADO Seek ?

[ScAL]

I have been using DAO for a while now and use the SEEK command to jump to records based on an index set. I have now converted an app over to ADO and have noticed there is no SEEK command. I have been using the FIND Command but that seems extremely slow in comparison. Is there another way in ADO of achieving this and also sppeding up the execution ?

Mucho Graciaso !

[Clunietp]

You can optimize a field at runtime by setting the dynamic "OPTIMIZE" value at runtime. Then you can use ADOs FIND, SORT, and FILTER that take advantage of these indexes. These indexes are created at runtime and DO NOT change any values/properties in your underlying table.


Dim rs As Recordset
Dim cn As Connection
Dim fld As Field

Set cn = New Connection
Set rs = New Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NWind2k.mdb"

With rs
.ActiveConnection = cn
.Source = "Customers"
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.Open

Set fld = .Fields("CustomerID")
fld.Properties.Item("Optimize").Value = True

.Find = "CustomerID = 'FRANR'"

If .RecordCount > 0 Then
MsgBox "Found!"
Else
MsgBox "Not Found!"
End If

End With

[ScAL]

I tried the mentioned code and couldnt get it to work !

Any Ideas ???