>Что работает быстрей в рекордсете FindFirst или Seek?

Seek работает в несколько раз быстрее.
На таблице из 1,1 мил. Seek ищет (первый вызов) за 0,9 сек
Find - 4.5 сек. (индекс уникальный)

примерчик
[src]
Public Sub qwertr()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
'Dim t As Long
't = timeGetTime
Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.CursorLocation=adUseServer
rs.Index = "TextField"
rs.Open "t", cnn, , , adCmdTableDirect
rs.Seek "СтрокаКоторуюИщем", adSeekFirstEQ
If rs.EOF Then
'не найдено
Else
'найдено
'можно использовать rs.Bookmark
End If
'Debug.Print (timeGetTime - t)
rs.Close: Set rs = Nothing
End Sub
[src]

курсор обязательно должен быть серверным
rs.Index = "TextField" - имя индекса
adCmdTableDirect -обязательно с этой константой (равной 512)

При последующих вызовах Seek от 0 до 10 миллисекунд
Find 4 секунды. Разы считай сам :)

===
Работaет только с Jet (Provider=Microsoft.Jet.OLEDB.4.0)

>т.е. Seek работает только с таблицами - для рекордсета с данными из нескольких таблиц (на основе запроса) Seek не подходит

Спорю на 7 енотов, что любой запрос основан на таблицах
откеда и можно выудить данные (даже если есть Union)

2Нуф-нуф
>Run-time error '-2147217867 (80040e35)' Недопустимая операция
>Хде грабли?


А кто здесь сказал, что можно через запросы? :)
Когда я говорил про 7 енотов, я имел ввиду только таблицу. Не запрос, не буханку хлеба - а таблицу. С индексами.