Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2010, 18:41   #1
WALL
Пользователь
 
Регистрация: 04.10.2010
Сообщений: 67
По умолчанию Много уровневый поиск через ADOQuery

Хочу сделать поиск такой чтобы при в вводе текста в edit, нажимаю на кнопку мне искала по имени по фамилии и так далее, ввел отдельно фамилию нажал нашло, написал имя нажал сюда же нашло пользуюсь ADOQuery. Можно ли вообще это сделать ? Если нет то как по другому. Спс за помощь!!!
WALL вне форума Ответить с цитированием
Старый 18.10.2010, 18:47   #2
Sparky
Участник клуба
 
Аватар для Sparky
 
Регистрация: 15.05.2009
Сообщений: 1,222
По умолчанию

ничего сложного в этом нет, вот примерный код:
Код:
ADOQuery.SQL.text:='select * from t_table where fio=:f';
ADOQuery.Close;
ADOQuery.Parametrs.ParamByName('f').value:=edit1.text;
ADOQuery.open;
Единственное, что ограничивает полет мысли программиста-компилятор
Sparky вне форума Ответить с цитированием
Старый 18.10.2010, 19:01   #3
WALL
Пользователь
 
Регистрация: 04.10.2010
Сообщений: 67
По умолчанию

не ты не понял вот я ввел фамилию нажал поиск, заме хочу найти по имени жму поиск, чтобы мне при нажатии искала по тем полям которым я хотел
WALL вне форума Ответить с цитированием
Старый 18.10.2010, 19:26   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
не ты не понял
Сударь, корнет - женшина.
Цитата:
чтобы мне при нажатии искала по тем полям которым я хотел
А имена этих полей ты откуда берешь? Тоже в Эдит вводишь? Тогда пиши
Код:
with ADOQuery do begin
 Close;
 SQL.text:='select * from t_table where '+EditPole.Text+'=:f';
 Parametrs.ParamByName('f').value:=edit1.text;
 open;
end;
Где EditPole - Эдит куда вводишь имя поля.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.10.2010, 00:10   #5
WALL
Пользователь
 
Регистрация: 04.10.2010
Сообщений: 67
По умолчанию

ошибку выбивает

простите пожа

Код:
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Описание_квартиры');
ADOQuery1.SQL.Add('WHERE Город  like ' + a + '%' + Edit3.Text +  '%' + a );
ADOQuery1.SQL.Add(' and Район like' + a + '%' + Edit1.Text +  '%' + a);
ADOQuery1.Active:=True;

Последний раз редактировалось Stilet; 19.10.2010 в 09:41.
WALL вне форума Ответить с цитированием
Старый 19.10.2010, 09:46   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
ошибку выбивает
Еще бы )
Во-первых: Тут телепатов нет - запомни это.
Во-вторых: Рекомендую в твоем случае:
Код:
with ADOQuery1 do begin
 Active:=False;
 SQL.Text:='SELECT * FROM Описание_квартиры WHERE (Город  like :k) and (Район like :r)';
 end;
 with Parameters do begin
  ParamByName('k').Value := a + '%' + Edit3.Text +  '%' + a;
  ParamByName('r').Value := a + '%' + Edit1.Text +  '%' + a;
 end;
 Active:=True;
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск через Edit rombler69 БД в Delphi 9 12.05.2013 17:12
Проблема с Update через AdoQuery kmvteam БД в Delphi 4 12.05.2010 11:26
Извлечь данные из access через AdoQuery kmvteam БД в Delphi 11 05.05.2010 09:43
Как удобнее всего организовать в SQL поиск по полю где много лишних символов? Bendebej SQL, базы данных 0 30.03.2010 10:14
База данных в Access, ADOQuery, организовать поиск monushka БД в Delphi 27 23.10.2009 20:45