AdoQuery И поиск по нескольким значениям

@Fish999 · Регистрация: 14.05.2010

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

Добрый день Имеется у меня на форме ADOConnection1 который подключен к Бд, ADOTable1 которые подключен к ADOConnection1, DataSource1 который связан с ADOTable1 , ADOQuery1 который связан с ADOConnection1 и DataSource1, DataSource2 который связан с ADOQuery1, и DBGrid1 который связан с DataSource2,

Суть в том что я организовал поиск

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm5.Button1Click(Sender: TObject);
Var
a:Char;
begin
 
a:=#39;
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Описание_квартиры');
ADOQuery1.SQL.Add('WHERE Метро   like' + a + '%' + Edit1.Text +  '%' + a);
ADOQuery1.Active:=True;
end;
end.

Это дело замечательно ищет из таблицы Описание квартиры записи в столбце метро(записи заношу в Edit1) и выводит всю строку в DBGrid1,
Но мне надо чтобы он еще искал в этой же таблице (Описание_квартиры)и по другим столбцам (Город, район, Количество комнат, Площадь, Цена) и выдавал результат поиска в DBGrid1 , как бы получается поиск по 6 Edit(ам).

@dasha_fenko · 15.05.2013, 19:59

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

@Waddonator · 16.05.2013, 10:30

Не по теме:

Не думаю, что ТС ждал ответ 3 года...

@DizeLyaka · 15.08.2013, 15:56

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

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

Приветствую всех! У меня похожая проблема только Edit-ов несколько: Edit1, Edit2, Edit3

Но пользователь в запросе может заполнить не все Edit.Text . Как быть? Пробую так:

Delphi
1
2
3
4
5
6
 
 Query2.SQL.Add('select *');
 Query2.SQL.Add('FROM "BAZA.DBF"');
 if (Length(Edit1.Text) > 0) then Query2.SQL.Add('WHERE pole1 LIKE '''+'%' + Edit1.Text+'%''');
 if (Length(Edit2.Text) > 0) then Query2.SQL.Add('WHERE pole2 LIKE '''+'%' + Edit2.Text+'%''');
 if (Length(Edit3.Text) > 0) then Query2.SQL.Add('WHERE pole1 LIKE '''+'%' + Edit3.Text+'%''');

В этос случае с одним Edit.Text получается, а если с двумя и более?

@Waddonator · 15.08.2013, 16:20

Пробегаем циклом по вашим Edit'ам и формируем условие отбора в переменную s:

Delphi
1
2
3
4
5
6
7
8
9
10
11
...
Query2.SQL.Add('select *');
Query2.SQL.Add('FROM "BAZA.DBF"');
s:='';
for i:=1 to 3 do
  if TEdit(FindComponent('Edit'+IntToStr(i))).Text<>'' then
    begin
      if length(s)=0 then s:=s+' WHERE' else s:=s+' AND';
      s:=s+' pole'+IntToStr(i)+' LIKE '+#39+'%'+TEdit(FindComponent('Edit'+IntToStr(i))).Text+'%'+#39;
    end;
Query2.SQL.Add(s);

@DizeLyaka · 15.08.2013, 17:38

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

Пробегаем циклом по вашим Edit'ам и формируем условие отбора в переменную s:

Delphi
1
2
3
4
5
6
7
8
9
10
11
...
Query2.SQL.Add('select *');
Query2.SQL.Add('FROM "BAZA.DBF"');
s:='';
for i:=1 to 3 do
  if TEdit(FindComponent('Edit'+IntToStr(i))).Text<>'' then
    begin
      if length(s)=0 then s:=s+' WHERE' else s:=s+' AND';
      s:=s+' pole'+IntToStr(i)+' LIKE '+#39+'%'+TEdit(FindComponent('Edit'+IntToStr(i))).Text+'%'+#39;
    end;
Query2.SQL.Add(s);

Спасибо за ответ! Я прошу прощенья, но названия полей pole1, pole2, pole3 я привел для примера. На самом деле названия уникальные и перебрать цыклом по названиям не получается.

@Waddonator · 15.08.2013, 17:42

DizeLyaka, например, можно названия полей загнать в какой-либо массив. Тогда:

Delphi
1
2
3
4
5
6
 var massiv:array[1..3] of string;
...
massiv[1]:='pole1'; massiv[2]:='pole2';massiv[3]:='pole3';
...
s:=s+' '+massiv[i]+' LIKE '+#39+'%'+TEdit(FindComponent('Edit'+IntToStr(i))).Text+'%'+#39;
...

@DizeLyaka · 15.08.2013, 19:14

Большое спасибо - работает!

Единственная проблема на числовых полях выдает ошибку "type mismatch in expression"

Новые блоги и статьи Все статьи Все блоги /
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .

@Waddonator
	16.05.2013, 10:30
	Не по теме: Не думаю, что ТС ждал ответ 3 года... 0

@DizeLyaka 0 / 0 / 1 Регистрация: 15.08.2013 Сообщений: 13
	15.08.2013, 19:14
	Большое спасибо - работает! Единственная проблема на числовых полях выдает ошибку "type mismatch in expression" 0