Расширенный поиск в ADO

@AziAd · Регистрация: 01.10.2008

Студворк — интернет-сервис помощи студентам

Объясняю ситуацию: у меня есть база данных(Access) и с помощью ADO я с ней работаю; необходимо сделать поиск по соответствующему полю, причем в полях есть одинаковые записи. Иными словами мне помимо основного поиска, нужен еще Поиск далее...(указатель должен становиться на найденную запись). Методы Locate и Lookup не подходят, т.к находят самую первую запись, удовлетворяющую критериям. Надеюсь на помощь...

@Arustarh Dark · 01.10.2008, 11:54

TDataSet.FindFirst/FindNext... и у прочие функции поиска

@AziAd · 01.10.2008, 18:44 **[ТС]**

Хмм... FindNext, а первичный поиск как задать? Вроде функции Find нету...(есть FindField и FindComponent, но, думаю, это не то, что мне нужно)

@MAcK · 01.10.2008, 18:49

Сообщение от AziAd

Хмм... FindNext, а первичный поиск как задать?

TDataSet.FindFirst

@AziAd · 01.10.2008, 19:03 **[ТС]**

Жутко извиняюсь за свой тупизм(я новичок), но... TDataSet у меня нету, я работаю через ADOTable. Как я и говрил выше там есть функции FindFirst, FindNext, FindPrior и т.д, которые не имеют никаких параметров и возвращают значение boolean. Если можно небольшой примерчик или может у кого есть готовый исходник для наглядности. Буду очень благодарен!

@AziAd · 02.10.2008, 21:53 **[ТС]**

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

У нас есть поле Edit1, и кнопки ButSearch и ButSearchNext(для "Поиска" и "Поиска далее..." соответственно). Так же нужна глобальная переменная FoundRec типа Boolean.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TForm1.butSearchClick(Sender: TObject);
begin
  FoundRec:=False;
  ButSearchNext.Enabled:=False;
  ADOTable1.First;
  while not ADOTable1.Eof do begin
    if AnsiLowerCase(ADOTable1.FieldValues['Любое поле']) = AnsiLowerCase(Edit1.Text) then
      begin
        FoundRec:=True;
        ButSearchNext.Enabled:=True;
        break;
      end;
    ADOTable1.Next;
  end;
  if not FoundRec then begin
    ADOTable1.First;
    ShowMessage(Search.Text+' не найдено');
  end;
end;
 
 
procedure TForm1.butSearchNextClick(Sender: TObject);
begin
  ADOTable1.Next;
  while not ADOTable1.Eof do begin
    if AnsiLowerCase(ADOTable1.FieldValues['Любое поле']) = AnsiLowerCase(Edit1.Text) then
      break;
    ADOTable1.Next;
    if ADOTable1.Eof then ADOTable1.First; 
  end;
end;

Проверям: вводим в базу данных несколько одинаковых значений, например, в поле "Фамилия" есть 20 Ивановых(в коде, где "Любое поле", необходимо его заменить на свое, в данном случае "Фамилия"). Забиваем в Edit1: Иванов. Нажимаем "Поиск" - указатель встанет на первогонайденного Иванова. Нажимаем "Поиск далее..." - указатель пойдет на других Ивановых. Недостатки такого метода в том, что перебираются все записи БД, причем видно это визуально. Да и с большими БД будут тормоза. Но мне было важно это сделать для демонстрации преподавателю и всего лишь.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@AziAd 4 / 4 / 2 Регистрация: 01.10.2008 Сообщений: 12

	Расширенный поиск в ADO 01.10.2008, 10:59. Показов 5756. Ответов 5 Метки нет (Все метки) Объясняю ситуацию: у меня есть база данных(Access) и с помощью ADO я с ней работаю; необходимо сделать поиск по соответствующему полю, причем в полях есть одинаковые записи. Иными словами мне помимо основного поиска, нужен еще Поиск далее...(указатель должен становиться на найденную запись). Методы Locate и Lookup не подходят, т.к находят самую первую запись, удовлетворяющую критериям. Надеюсь на помощь... 0

@Arustarh Dark 63 / 64 / 13 Регистрация: 08.06.2008 Сообщений: 243
	01.10.2008, 11:54
	TDataSet.FindFirst/FindNext... и у прочие функции поиска 0

@AziAd 4 / 4 / 2 Регистрация: 01.10.2008 Сообщений: 12
	01.10.2008, 18:44 [ТС]
	Хмм... FindNext, а первичный поиск как задать? Вроде функции Find нету...(есть FindField и FindComponent, но, думаю, это не то, что мне нужно) 0

@AziAd 4 / 4 / 2 Регистрация: 01.10.2008 Сообщений: 12
	01.10.2008, 19:03 [ТС]
	Жутко извиняюсь за свой тупизм(я новичок), но... TDataSet у меня нету, я работаю через ADOTable. Как я и говрил выше там есть функции FindFirst, FindNext, FindPrior и т.д, которые не имеют никаких параметров и возвращают значение boolean. Если можно небольшой примерчик или может у кого есть готовый исходник для наглядности. Буду очень благодарен! 0