Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 2
Регистрация: 29.06.2011
Сообщений: 130

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

28.01.2012, 22:04. Показов 1563. Ответов 4
Метки нет (Все метки)

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

Суть вопроса такова. Есть запрос на поиск данных ( ОГРН, Огранизация, Юр. адрес). Через 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.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.01.2012, 22:04
Ответы с готовыми решениями:

Запрос на поиск
Есть две excel таблицы. В одной и в другой есть цифровые значения. Нужно из одной таблицы проверить значения в другой и убрать те которых...

Запрос на поиск
Здравствуйте! Хочу сделать поиск в таблице по базе данных через SQL-запрос, чтобы вводить фамилию в edit и она сразу отображалась в...

Запрос на поиск по БД
Здравствуйте, нужен пинок в правильную сторону. Имеется БД с вот такой структурой: Т.е для каждого по сути слова свой столбец. И...

4
4 / 4 / 1
Регистрация: 10.12.2010
Сообщений: 81
29.01.2012, 00:24
я как понимаю если один из эдитов пустой?
сделай проверку на ввод в едитах если один из них пустой запрещай поиск
или можешь условиями собрать строку для sql запроса/строки в помощь!
0
1263 / 706 / 62
Регистрация: 21.12.2009
Сообщений: 2,256
29.01.2012, 07:24
Что-то запутался в Ваших кавычках. Вы уверены, что в конце нужны 4 кавычки. Попробуйте перед строкой
Delphi
1
Form1.ADOQuery1.Active:=TRUE;
Показать текст Form1.ADOQuery1.SQL.Text на зкране.
0
0 / 0 / 2
Регистрация: 29.06.2011
Сообщений: 130
29.01.2012, 11:48  [ТС]
Цитата Сообщение от SAMZ Посмотреть сообщение
Что-то запутался в Ваших кавычках. Вы уверены, что в конце нужны 4 кавычки. Попробуйте перед строкой
Delphi
1
Delphi1 Form1.ADOQuery1.Active:=TRUE;
Показать текст Form1.ADOQuery1.SQL.Text на зкране.
По три кавычки это на каждый Edit а червертая это закрытие запроса, в самом начае одна кавычка его открывает, стоит перед SELECT. Значение он получает нормально, но вместо того чтобы оставить только ту строку что нашел, он просто обновляет таблицу и снова выводит все. Тогда как если поставить одно условие все находит и делает как надо.

Цитата Сообщение от Stat Посмотреть сообщение
я как понимаю если один из эдитов пустой?
сделай проверку на ввод в едитах если один из них пустой запрещай поиск
или можешь условиями собрать строку для sql запроса/строки в помощь!
Вопрос почему тогда в самом MSSQL запрос работает без каких либо изменений. Я не спорю, тут конечно может быть надо кавычки или запятые, но все уже перепробовал, Он тупо обновляет таблицу и не ищет.
Миниатюры
Запрос на поиск.   Запрос на поиск.  
0
0 / 0 / 2
Регистрация: 29.06.2011
Сообщений: 130
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;
Может кто то дать действующее решение, на основе одного запроса с тремя условиями. Буду пирзнателен, или набросать код через проверку но чтобы работало.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.01.2012, 22:19
Помогаю со студенческими работами здесь

Запрос на поиск!!!
Здраствуйте. Делаю БД в Access, осталось зделать поиск. Создал поле со списком, чтобы можна было вибрать ключ поиска(тоисть там будут поля...

Запрос на поиск
void __fastcall TForm3::Edit2KeyUp(TObject *Sender, WORD &amp;Key, TShiftState Shift) { if (Edit2-&gt;Text!=&quot;&quot;) { ...

Запрос на поиск в БД Книги
Суть такая! &quot;То есть есть база данных где указан автор, название книги, и год &quot; Как будет выглядеть SQL запрос по поиску названия...

Запрос поиск по базе
Есть таблица CREATE TABLE `price` ( `id` int(10) unsigned NOT NULL auto_increment, `name` varchar(35) default NULL, `properties`...

Запрос, поиск по ловам
Есть поисковый запрос, строчка. Как сделать так, чтобы поиск производился не по строчке, а скажем по наличию всех слов не важно в какой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
К слову об оптимизации
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, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru