Запрос на поиск.

@Ierehon · Регистрация: 29.06.2011

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

Доброго времени суток.

Суть вопроса такова. Есть запрос на поиск данных ( ОГРН, Огранизация, Юр. адрес). Через AND все чудесно, но если вдруг забыть 2 из3х, то он не ищет и пишет ошибку. Делаю через OR, все запускается но по факту дудки и фанфары...не работает. Где я не то делаю?

Delphi
1
2
3
4
5
Form1.ADOQuery1.Active:=False;
Form1.ADOQuery1.SQL.Clear;           // DISTINCT                                                                                                       {OR Adres like '''+Edit3.Text+'%'+'''}
Form1.ADOQuery1.SQL.Text:='SELECT * FROM Firms WHERE OfficeId like '''+Edit1.Text+'%'+''' OR Orzaniz like '''+Edit2.Text+'%'+'''';
Form1.DBGrid1.DataSource:= Form1.DataSource4;
Form1.ADOQuery1.Active:=TRUE;

Тот же запрос прекрасно работает в самом MS SQL 2008.

@Stat · 29.01.2012, 00:24

я как понимаю если один из эдитов пустой?
сделай проверку на ввод в едитах если один из них пустой запрещай поиск
или можешь условиями собрать строку для sql запроса/строки в помощь!

@SAMZ · 29.01.2012, 07:24

Что-то запутался в Ваших кавычках. Вы уверены, что в конце нужны 4 кавычки. Попробуйте перед строкой

Delphi
1
Form1.ADOQuery1.Active:=TRUE;

Показать текст Form1.ADOQuery1.SQL.Text на зкране.

@Ierehon · 29.01.2012, 11:48 **[ТС]**

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

Что-то запутался в Ваших кавычках. Вы уверены, что в конце нужны 4 кавычки. Попробуйте перед строкой

Delphi
1
Delphi1 Form1.ADOQuery1.Active:=TRUE;

Показать текст Form1.ADOQuery1.SQL.Text на зкране.

По три кавычки это на каждый Edit а червертая это закрытие запроса, в самом начае одна кавычка его открывает, стоит перед SELECT. Значение он получает нормально, но вместо того чтобы оставить только ту строку что нашел, он просто обновляет таблицу и снова выводит все. Тогда как если поставить одно условие все находит и делает как надо.

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

я как понимаю если один из эдитов пустой?
сделай проверку на ввод в едитах если один из них пустой запрещай поиск
или можешь условиями собрать строку для sql запроса/строки в помощь!

Вопрос почему тогда в самом MSSQL запрос работает без каких либо изменений. Я не спорю, тут конечно может быть надо кавычки или запятые, но все уже перепробовал, Он тупо обновляет таблицу и не ищет.

@Ierehon · 29.01.2012, 22:19 **[ТС]**

Пробовал так, неработает :

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
if Edit1.Text<>'' then begin
Form1.ADOQuery1.Active:=False;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Text:='SELECT * FROM Firms WHERE 1=1';
Form1.ADOQuery1.SQL.Text:=Form1.ADOQuery1.SQL.Text+' and OfficeId ='''+Edit1.Text+'%'+''' ';
Form1.ADOQuery1.Active:=TRUE;
end
else
begin
if Edit2.Text<>'' then begin
Form1.ADOQuery1.Active:=False;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Text:='SELECT * FROM Firms WHERE 1=1';
Form1.ADOQuery1.SQL.Text:=Form1.ADOQuery1.SQL.Text+' and Orzaniz ='''+Edit2.Text+'%'+''' ';
Form1.ADOQuery1.Active:=TRUE;
end;

и так, работает но только на первом значении сразу останавливается, неважно пустое оно или содержит данные :

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
If Edit1.Text <> ' ' then
begin
Form1.ADOQuery1.Active:=False;
Form1.ADOQuery1.SQL.Clear;             
Form1.ADOQuery1.SQL.Text:=' WHERE OfficeId like '''+Edit1.Text+'%'+''' ';
ShowMessage(Form1.ADOQuery1.SQL.Text);
Form1.DBGrid1.DataSource:= Form1.DataSource4;
Form1.ADOQuery1.Active:=TRUE;
end
else
begin 
If Edit2.Text <> ' ' then
begin
Form1.ADOQuery1.Active:=False;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Text:='SELECT  * FROM Firms WHERE Orzaniz like '''+Edit2.Text+'%'+'''';
ShowMessage(Form1.ADOQuery1.SQL.Text);
Form1.DBGrid1.DataSource:= Form1.DataSource4;
Form1.ADOQuery1.Active:=TRUE;
end;

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

Новые блоги и статьи Все статьи Все блоги /
К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .

@Stat 4 / 4 / 1 Регистрация: 10.12.2010 Сообщений: 81
	29.01.2012, 00:24
	я как понимаю если один из эдитов пустой? сделай проверку на ввод в едитах если один из них пустой запрещай поиск или можешь условиями собрать строку для sql запроса/строки в помощь! 0