Не выходит поиск через ADOQuery

@don_zaresh · Регистрация: 10.02.2016

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

Учусь создавать приложения с базами данных. Помогите чайнику разобрать проблему.
База данных в MS SQL
На Form1 - DBGrid1 (выводит таблицу из ADOTable1), Edit1 (первое поле для поиска), Edit2 (второе поле для поиска), Button1 (кнопка поиск)
На DataModule1 - компоненты ADOConnection, ADOTable1, DataSource (связана с ADOTable1)
Сама таблица - это категории товаров. Имеет три атрибута - id, category_name, nacenka

Как сделать поиск по одному полю я разобрал. В коде DataModule1 объявляю процедуру procedure Locate (s: String); А на событие OnChange у Edit1 вешаю код DataModule1.Locate (Edit1.Text);

Не получается сделать поиск (по сути фильтр) по двум полям (edit1, edit2), причем одно из полей необязательно должно быть заполнено. На форуме нашел пример, в котором использован ADOQuery. Сделал подобно ему, добавив компонент ADOQuery1:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active := False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT *');
ADOQuery1.SQL.Add('FROM category');
if (Length(Edit1.Text) > 0) or
   (Length(Edit2.Text) > 0) then
     begin
       ADOQuery1.SQL.Add('WHERE category_name LIKE' + #39 +'%'+ Edit1.Text + '%' + #39 +' AND ');
       ADOQuery1.SQL.Add(' nacenka LIKE' + #39+'%'+ Edit2.Text + '%' + #39);
       ADOQuery1.Active := True;
     end
   else
     begin
       ADOQuery1.Active := True;
       ADOQuery1.First;
     end;
end;

Но он не работает. То есть ввожу текст в Edit'ы, жму кнопку Поиск. Ничего не происходит. Приложение компилируется.

В связи с этим несколько вопросов:
1) Имеет ли значение, где будет расположен ADOQuery - на Form1 или DataModule1 ? Располагал и там, и там. Связывал с ADOConnection и DataSource. Результат не менялся.
2) Нужен ли вообще ADOQuery или можно обойтись средствами ADOTable? Просто про ADOQuery нашел несколько примеров, а про ADOTable что-то не понял. Какие его свойства можно использовать? Если не жалко, поделитесь примером.
3) Что в вышеприведенном коде может быть неправильно?

Всем заранее спасибо!

Скандербег · 25.09.2016, 14:46

1. Не имеет.
2. Кому как и для чего. Как правило, грид показывает составные данные из нескольких таблиц, ADOQuery здесь необходим.
К тому же, через ADOQuery не принято редактировать данные непосредственно в гриде, для этого нужен ADOTable (к примеру, для редактирования таблиц-справочников).
3. Если поле наценка числовое, то к нему не применимо слово LIKE. Число может быть больше, меньше, равно заданному.
Числовые значения, передаваемых в запросе, нельзя заключать в кавычки.
Это на вскидку.

@don_zaresh · 25.09.2016, 14:51 **[ТС]**

То есть таблицу можно выводить через ADOTable (оставить как есть), а фильтрацию делать через ADOQuery?

Насчет кода имели ввиду так?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
if (Length(Edit1.Text) > 0) or
   (Length(Edit2.Text) > 0) then
     begin
       ADOQuery1.SQL.Add('SELECT * FROM category WHERE category_name LIKE' + #39 +'%'+ Edit1.Text + '%' + #39 +' AND ');
       ADOQuery1.SQL.Add(' nacenka =' + StrToFloat (Edit2.Text) );
       ADOQuery1.Active := True;
     end
   else
     begin
       ADOQuery1.Active := True;
       ADOQuery1.First;
     end;
end;

Скандербег · 25.09.2016, 15:19

ADOQuery будет отображать данные в гриде и без фильтра и с фильтром.
Этот компонент один для отображения данных в гриде. Смешивать ADOTable и ADOQuery запросто не получится.

Добавлено через 6 минут
Нет, StrToFloat здесь не нужна, т.к. в Edit.Text число находится в символьном виде.
Поэтому никакие преобразования здесь делать не надо:

Delphi
1
   ADOQuery1.SQL.Add(' nacenka = ' + Edit2.Text);

@don_zaresh · 25.09.2016, 15:20 **[ТС]**

Просто мне надо редактировать, добавлять, удалять поля в самой таблице. Как вы написали, для этого подходит ADOTable. Буду использовать DBNavigator. А для фильтра выходит ADOQuery. Ведь можно использовать такую связку?

Скандербег · 25.09.2016, 15:34

Если так, то у ADOTable есть свойства Filtered и Filter. С их помощью можно фильтровать отображение данных в гриде.

Добавлено через 10 минут
DBNavigator - лишняя шестеренка в механизме общения с БД. Грид вполне нормально справляется с навигацией по данным.
"Зачем нам кузнец?" (с)

@don_zaresh · 25.09.2016, 17:42 **[ТС]**

через DBNavigator хотел делать добавление/удаление/редактирование. Вы предлагаете отказаться в пользу отдельных кнопок? Или я не так вас понял

Скандербег · 25.09.2016, 18:23

Для того чтобы добавлять или удалять грид откликается на клавиши: Insert и Delete, а для редактирования достаточно просто изменить значение в ячейке. Чтобы передвинутся в конец или в начало таблицы есть свои клавиши. Движение со строки на строку тоже не создает проблем. Поэтому навигатор этот - лишний компонент на форме, оставшийся в Дельфи со времен царя Гороха.

@krapotkin · 25.09.2016, 20:34

В навигаторе достаточно оставить кнопки Post и Cancel
а вот замена Query на Table это решение только для совсем небольших табличек
для больших Query

@northener · 26.09.2016, 02:01

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

через DBNavigator хотел делать добавление/удаление/редактирование.

Так делай, раз хочешь. Вреда от сего компонента вроде как никогда не было. А польза была! Легче писать инструкцию по пользованию для юзеров, если они без инструкции не могут работать!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	25.09.2016, 14:46
	1. Не имеет. 2. Кому как и для чего. Как правило, грид показывает составные данные из нескольких таблиц, ADOQuery здесь необходим. К тому же, через ADOQuery не принято редактировать данные непосредственно в гриде, для этого нужен ADOTable (к примеру, для редактирования таблиц-справочников). 3. Если поле наценка числовое, то к нему не применимо слово LIKE. Число может быть больше, меньше, равно заданному. Числовые значения, передаваемых в запросе, нельзя заключать в кавычки. Это на вскидку. 0

@don_zaresh 1 / 1 / 0 Регистрация: 10.02.2016 Сообщений: 32
	25.09.2016, 15:20 [ТС]
	Просто мне надо редактировать, добавлять, удалять поля в самой таблице. Как вы написали, для этого подходит ADOTable. Буду использовать DBNavigator. А для фильтра выходит ADOQuery. Ведь можно использовать такую связку? 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	25.09.2016, 15:34
	Если так, то у ADOTable есть свойства Filtered и Filter. С их помощью можно фильтровать отображение данных в гриде. Добавлено через 10 минут DBNavigator - лишняя шестеренка в механизме общения с БД. Грид вполне нормально справляется с навигацией по данным. "Зачем нам кузнец?" (с) 1

@don_zaresh 1 / 1 / 0 Регистрация: 10.02.2016 Сообщений: 32
	25.09.2016, 17:42 [ТС]
	через DBNavigator хотел делать добавление/удаление/редактирование. Вы предлагаете отказаться в пользу отдельных кнопок? Или я не так вас понял 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	25.09.2016, 18:23
	Для того чтобы добавлять или удалять грид откликается на клавиши: Insert и Delete, а для редактирования достаточно просто изменить значение в ячейке. Чтобы передвинутся в конец или в начало таблицы есть свои клавиши. Движение со строки на строку тоже не создает проблем. Поэтому навигатор этот - лишний компонент на форме, оставшийся в Дельфи со времен царя Гороха. 1

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,667 Записей в блоге: 21
	25.09.2016, 20:34
	В навигаторе достаточно оставить кнопки Post и Cancel а вот замена Query на Table это решение только для совсем небольших табличек для больших Query 1