Использовании функции find Объекта RecordSet

[AHTOXA]

Как организовать поиск по таблице:

for i = 0 to 100
rs.find(Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!)
next i

ищем пуская по двум полям, одно из них i, второе Str(i)?

[alibek]

Аргумент Find эквивалентен предложению WHERE SQL-запроса (только без "WHERE").
Но метод Find допустим не для всех типов Recordset'ов, самый подходящий для него -- Dynaset.

[AHTOXA]

rs.Open "select * From MeterReadings", SQLCON, adOpenKeyset, adLockOptimistic

rs.Find Criteria:="DateReg = 1/10/01 and TimeReg = 10", Start:=0, выдает ошибку. Что здесь не так

[RayShade]

Навскидку - может, дата вневерном формате и в кавычки не заключена?

[AHTOXA]

Да вряд-ли, я пробовал по отельности и то и то работает. Пробовал задать так rs.find Criteria"(TimeReg = AND (Reading = 17)",....
где Reading - числовое поле и тоже выдает ошибку, а по одному полю ищет

[RayShade]

В описаннии написано, что "Only a single-column name may be specified in criteria. This method does not support multi-column searches."



Так что и не должен по 2 полям искать.

[AHTOXA]

, облажался малость. Но как же мне тогда найти запись у которой два поля совпадают (rs не отсортирован)

[RayShade]

Сделать простой open recordset'a с запросом и посмотреть пустой он или нет.

[AHTOXA]

Дак у меня поиск то в цикле, и если я каждый раз буду открывать recordset это же страшно работу затормозит.

[RayShade]

Ну что я могу посоветовать... Ищи по одному критерию, потом по второму и оставляй только не записи, которые попали и в первую выборку и во вторую.

[AHTOXA]

я проще фиху придумал, только recordset должен быть отсортирован по дате времени:

Private Function FindRecDB(ByRef rs As ADODB.Recordset, _
ByRef rngRec As MeterRangesRecord) As Boolean

Dim r As Boolean
Dim srch_opt As Integer
Dim rec As String
r = False
srch_opt = 0
While Not rs.EOF And r = False
rs.Find Criteria:="DateReg = " & rngRec.DateReg, Start:=srch_opt
If Not rs.EOF Then
If rs.Fields(5) = Hour(rngRec.TimeReg) Then
r = True
End If
End If
srch_opt = 2
Wend
FindRecDB = r
End Function

[Ser-Robotiaga]

Подскажите пожалуйста как правильно использовать метод Find для ADO. В моих книжках описаны методы Find при работе с DAO. С DAO у меня прроблем не возникало. Я думал аналогично. Порылся в Object Browser. Там только Find, в то время как для DAO четыре метода от FindFirst, FindLast и т.д.

[alibek]

Откуда искать и в каком направлении — задается аргументами метода. Поэтому одного Find достаточно.

[Ser-Robotiaga]

Вот синтаксис метода.
Sub Find(Criteria As String, [SkipRecords As Long], [SearchDirection As SearchDirectionEnum = adSearchForward], [Start])
По каким правилам надо задавать Criteria ? А остальные параметры мне вообще ни о чем не говорят. Что они обозначают?

[iGrok]

Вот синтаксис метода.
Sub Find(Criteria As String, [SkipRecords As Long], [SearchDirection As SearchDirectionEnum = adSearchForward], [Start])
По каким правилам надо задавать Criteria ? А остальные параметры мне вообще ни о чем не говорят. Что они обозначают?

Гм. Criteria описан в этом топике, начиная со второго поста. "Field_Name Operation Field_Value" (Например, "Name = 'Anonymous'", "Id > 16")
А всё остальное вроде просто.. SkipRecords - сколько записей "пропустить". Точнее, с которой по счёту начинать поиск.
SearchDirection - в какую сторону искать. Вперёд по рекордсету или назад.

http://msdn.microsoft.com/en-us/library/ms676117(VS.85).aspx

[Ser-Robotiaga]

Гм. Criteria описан в этом топике, начиная со второго поста.

Я первоначально использовал Find только с критерием поиска, который успешно работал с DAO. Но у меня ничего не вышло.
И еще кое-что меня ввело в заблуждение, например двоеточие перед равно, и еще новый для меня символ &.

[iGrok]

Гм. Criteria описан в этом топике, начиная со второго поста.

Я первоначально использовал Find только с критерием поиска, который успешно работал с DAO. Но у меня ничего не вышло.
И еще кое-что меня ввело в заблуждение, например двоеточие перед равно, и еще новый для меня символ &.

Ну тогда показывай, как использовал. Попробуем подсказать, почему не работает.

Двоеточие перед равно можешь спокойно пропускать, а & - это оператор конкатенации (объединения) строк.
Т.е. "строка 1" & "строка 2" = "строка 1строка 2"

[Ser-Robotiaga]

Я тот код не сохранил. Написал, что надо было через Execute. Но думаю, что к методу Find еще вернусь.
Знак амперсанда не узнал. Здесь на форуме он отображается не так как в среде программирования.

[Ser-Robotiaga]

Вот я к нему и вернулся. Вот фрагмент кода:
strCriteriy = "cirilc ='" & DataCombo1.Text & "'"
Adodc2.Recordset.Find strCriteriy
где cirilc - поле в таблице
У меня такое ощущение, что после Adodc2.Recordset.Find strCriteriy указатель текущей записи все время установлен на первую запись. Т.е метод у меня почему-то не работает.

[alibek]

У меня такое ощущение, что после Adodc2.Recordset.Find strCriteriy указатель текущей записи все время установлен на первую запись. Т.е метод у меня почему-то не работает.

Конечно.
Ты ведь не указывал закладку, начиная с которой нужно осуществлять поиск.

[Ser-Robotiaga]

Не понял, о какой закладке идет речь? Если имеется ввиду параметр SkipRecords, так он же необязательный.

[alibek]

Я говорю об аргументе Start. Если он не задан, то поиск начинается с текущей записи.
Чтобы избежать глюков, скорее всего привносимых ADODC, запоминай закладку текущей позиции, а при поиске указывай ее в качестве стартовой позиции.

[Andrey Fedorov]

:oops: , облажался малость. Но как же мне тогда найти запись у которой два поля совпадают (rs не отсортирован)

Хм. А почему бы Filter не использовать?

Recordset лучше при этом был клиентский - чтобы лишний раз при поиске база не дергалась...

[Ser-Robotiaga]

Я говорю об аргументе Start. Если он не задан, то поиск начинается с текущей записи.
Чтобы избежать глюков, скорее всего привносимых ADODC, запоминай закладку текущей позиции, а при поиске указывай ее в качестве стартовой позиции.

Спасибо, прояснилось.
А вообще заработало без дополнительных параметров после установки CursorType=adOpenDynamic. Я чет думал, что динамич набор установлен по умолчанию

Но метод Find допустим не для всех типов Recordset'ов, самый подходящий для него -- Dynaset.

[Миша-82]

а как быть и с чем работать
если нужно чтобы в listbox добавлялись записи удовлетворяющие условию из textbox-а причем совпадение может быть любым из записи?
наверно не очень понятно
на пальцах

в базе есть запись "апельсин" и др
в textbox вводим "а" или "ап" или "пель" или "син" и в listbox добвляется запись "апельсин" и другие в которых есть то же самое

пробовал и Find и Filter применить не получается

наверно не на того учился
подскажите

[alibek]

Как применял Filter?

[Миша-82]

'перед циклом указал filter
rs.Filter= "F0 и "значение" (из текстового поля) щас при себе нет точного кода, там еще куча ковычек пока не запомнил их расположения

'запускал цикл
do whil
'и добавлял значения из базы в лист бокс
list.additem rs("F0")
loop


работает, но только когда в текст боксе точное совпадение с базой



не судите строго если не прав

[alibek]

'перед циклом указал filter
rs.Filter= "F0 и "значение"

И что ты при этом ожидал?

[Денис]

Извиняюсь за офтоп: Он ожидал, видимо, звон магических колокольчиков и что чудесным образом всё заработает. Я угадал?

[Миша-82]

что ожидал?

все что я написал все это путем проб и ошибок и это мое первое обращение на форум хотя примеров просмотрел уйму и то что для вас элементарно для меня и мне подобным ....

когда разобрался как работает filter тогда и понял что это не то

find по моему более подходит, но в методе нет как искать (полное совпадение или нет)

мне не нужен код
просто совет