В DAO у меня с этим нет проблемы. А вот в ADO что то не идет!

Для быстрого перехода / поиска записи надо использовать индекс. метод seek.
У меня что то не получается.
Если можно приведите небольшой пример.

Ясно.
Ну а дальше .
rst.index="PrimaryKey"
rst.seek "id='" & field.value &"'"
Так ?

Ребята , спасибо, то что надо!

2 Alexander G
В DAO есть свойство NoMatch, оно подсказывает результат поиска.
А в ADO нужно выходит просто проверить rst.EOF.
Кстати , а почему не rst.EOF=True ?

ADO 2.7 Library

Пишет ошибку "Текущий проводник не поддерживает необходимый интерфейс для функции индекс". Что тут не так то?

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Public DbFile As String

Public Sub ConnectToDB()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
db_file = App.Path + "\baza.mdb"

With conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_file
.Mode = adModeReadWrite
conn.Open
End With

With rs
.ActiveConnection = conn
.Source = "MyTable"
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.CursorLocation = adUseServer
.Open , , , , adCmdTableDirect
.Index = "MyKey"
End With

End Sub

Затыкается на .index

Где же ты? Alexander G

2 marvan
Спасибо за проверку!
Ой и ё! Что же делать?
/ Кстати это все в VB 6.0 /

2 marvan
Все нашел ошибку. Вот так верно. И метод Seek заработал по индексу.

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Public DbFile As String

Public Sub ConnectToDB() '
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
db_file = App.Path + "\baza.mdb"

With conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_file
.Mode = adModeReadWrite
conn.Open
End With

With rs
.ActiveConnection = conn
.Source = "MyTable" 'имя таблицы в базе
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.CursorLocation = adUseServer
.Open , , , , adCmdTableDirect
.Index = "PrimaryKey" 'вот здесь ошибка была
End With
'---------------------------------------------
rs.Seek str(MyField.Text)
'------------------------------------------------
MsgBox (rs(0))
End Sub

Теперь на .index не затыкается.

А кстати с каким mdac -ом встает Microsoft.Jet.OLEDB.4.0

2 Alexander G

Так у Вас сейчас вечер?
Дитё это хорошо. Пусть растет большой и здоровый!

2 marvan

Вот еще что заметил кое что.
Если база в формате Access 2000 все пашет, а если в формате Access 97 затыкается. Пишет ошибку "Текущий проводник не поддерживает необходимый интерфейс для функции индекс".

Ну это уже не имеет значения. Главное что работает под 2000.

Насчет Jet 4.0 , я понял.

Для родителей дети есть дети, все равно какого возраста, дитё есть дитё!