| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Базы данных и репортинг > Поиск поочередный Adotable+Access |
| Автор: SULLEN_27 25.10.2010, 11:00 |
| Я уж извиняюсь что опять такую же тему создаю поочередного поиска. Имеется код-> procedure TForm4.RzButton3Click(Sender: TObject); var rez2: TModalresult; i:integer; // NoRec:integer; begin with Form1.ADOTable2 do begin for i:= 0 to Form1.ADOTable2.RecordCount -1 do begin form1.ADOTable2.FindNext; if (not Eof)and (form1.ADOTable2.Locate('fio',rzedit1.Text,[loPartialKey,loCaseinsensitive]) =true) then begin if Application.MessageBox(PChar('Заданное значение найдено!'),'Продолжить Поиск',MB_YESNO + MB_ICONINFORMATION + MB_DEFBUTTON1)=IDYES then begin // Norec:=recNo; Next; end else break; end else Next; end; MoveBy(NoRec-RecordCount); MessageBox(HWND_DESKTOP,PChar('Поиск завершен!'), 'Поиск',MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1); использую Adotable база Access использую метод Locate. все то хорошо, но только он зараза ищет первую запись устанавливает вокус ввода на найденной записи, а затем по запросу типа "искать далее?" он опять начинает поиск с первой записи и опять же находит первую запись. Я уже и цикл организовал и сделал в цикле окно запроса что бы "искать следующую запись". блин немогу нормально сделать поиск поочерной записи. знаю что уж наверняка можно с помощью ADOtable организовать поочередный поиск, ну блин никто не может толком внятно сказать как это организовать поочередный поиск. Скажите что типа не парься и делаю на ADOQuery но с сюкелем я не работал. Вы посмотрите пож. код мож чо и найдете не то. |
| Автор: Данкинг 25.10.2010, 11:24 |
| Отбирай найденные данные куда-нибудь, а затем выводи. Или используй запрос. |