Как перейти к следующе из найденных по какому-либо условию записи

← →
Lamo_xxxx © (2004-04-28 08:38) [0]

есть набор данных(ADOQuery).
делаю поиск...

ADOQuery1.Locate("name","xx",[loCaseInsensitive, loPartialKey]);

Locate - останавливается на первой записи из найденных.
если, условию поиска удовлетворяет больше чем одна запись, как перейти к следующим?

← →
sniknik © (2004-04-28 08:46) [1]

1 сортировка и Next пока равно.
2 паралельный запрос с выбором ID записей удовлетворяющих условию, перемещение по ID
3 поиск по фильтру findfirst, findnext ...

← →
Lamo_xxxx © (2004-04-28 08:58) [2]

findfirst, findnext

работают только если установлен фильтр?

← →
Lamo_xxxx © (2004-04-28 09:01) [3]

А вот в TIBQuery есть интересный метод

LocateNext()

пробовал...
делает тоже самое, что Locate(), хотя по названию должен вроде нечто иное делать..

← →
ZrenBy © (2004-04-28 09:27) [4]

В копилку. Вариант для ADODataSet & SQLOLEDB

procedure TForm1.ButtonFindClick(Sender: TObject); var n:Integer; begin // ADOQuery1.SQL.Text := " use pubs select * from authors"; if(ButtonFind.Tag=0)then begin ADOQuery1.Recordset.AbsolutePosition := 1; ADOQuery1.Recordset.Find("au_id like "+QuotedStr("%-72-%"),0,adSearchForward,0); if not(ADOQuery1.Recordset.EOF or ADOQuery1.Recordset.BOF)then begin ButtonFind.Tag := 1; end else begin Application.MessageBox("Нету","",0); Exit; end; end else begin ADOQuery1.Recordset.Find("au_id like "+QuotedStr("%-72-%"),1,adSearchForward,0); if(ADOQuery1.Recordset.EOF or ADOQuery1.Recordset.BOF)then begin ButtonFind.Tag := 0; ButtonFindClick(nil); Exit; end; end; n := ADOQuery1.Recordset.AbsolutePosition - 1; ADOQuery1.First; ADOQuery1.MoveBy(n); end;

← →
Lamo_xxxx © (2004-04-28 10:01) [5]

круто...

а для TIBQuery есть что-нибудь похожее?

← →
sniknik © (2004-04-28 10:42) [6]

ZrenBy © (28.04.04 09:27) [4]
это похоже попытка собственной реализации поиска по индексу. посмотри в хелп по findfirst, findnext ..

> Lamo_xxxx © (28.04.04 10:01) [5]

Для TIBQuery метод Locate организован с помощью обычного цикла while not eof ...
Его не трудно написать самому.
Или есть готовый метод LocateNext

...findfirst, findnext ..

А если нужен и фильтр и финд одновременоо ?

ну тогда делать по другому.

хотя использование фильтра в серверных решениях это экзотика, если он нужен то скорее всего получили кучу лишних данных, просадили сетку... и т.д. (имхо естественно)

Как перейти к следующе из найденных по какому-либо условию записи Найти похожие ветки