VPF::поиск в БД с помощью ADOQuery - Форум программистов

Данкинг

Дата 23.2.2012, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Н-да, тогда так:

Код


var txt:string;
...
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
txt:='SELECT * FROM Каталог_книг';
if trim(Edit1.Text)<>'' then
 txt:=txt+' where Регистрационный_№ like "%' + Edit1.Text+'%"';
if trim(Edit2.Text)<>'' then
 txt:=txt+' where Автор like "%' + Edit2.Text+'%"';
if trim(Edit3.Text)<>'' then
 txt:=txt+' where Название like "%' + Edit3.Text+'%"';
txt:=stringreplace(txt,'where','and',[rfReplaceAll]);
txt:=stringreplace(txt,'Каталог_книг and','Каталог_книг where',[rfReplaceAll]);
ADOQuery1.SQL.Text:=txt;
ADOQuery1.Open;

Это сообщение отредактировал(а) Данкинг - 23.2.2012, 21:46

--------------------

There's nothing left but silent epitaphs.

belal

Дата 24.2.2012, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 23.2.2012

Репутация: нет
Всего: нет

Попробовала и так. Выводит первый результат, ввожу другую фамилию - пустая таблица. smile

При пустых Edit выводит всю таблицу.
С запросами вроде все в порядке. А повторный поиск никак не получается!

Это сообщение отредактировал(а) belal - 24.2.2012, 16:57

belal

Дата 24.2.2012, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 23.2.2012

Репутация: нет
Всего: нет

УРА!!!!!!!!!!!!!!!!!!!!!!!!! Работает!!!! smile

СПАСИБО БОЛЬШОЕ!!!!!!!!!!!!!!!!

Данкинг

Дата 24.2.2012, 17:13 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

И в чём косяк был?

--------------------

There's nothing left but silent epitaphs.

belal

Дата 24.2.2012, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 23.2.2012

Репутация: нет
Всего: нет

В компонентах. Для другого кода, который нашла в интернете, я делала два DataSource и еще ADOTable. А потом забыла убрать. Мой косяк.

Это сообщение отредактировал(а) belal - 24.2.2012, 17:20

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »