Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Поиск ADO   Найти похожие ветки 

 
Aleksandra   (2012-02-19 22:55) [0]

Здравствуйте? Есть кнопка поиска:
procedure TForm2.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.SQL.Add("and Автор like" + a + "%" + Edit2.Text +  "%" + a);
ADOQuery1.SQL.Add("and Название like" + a + "%" + Edit3.Text +  "%" + a);
ADOQuery1.Active:=True ;
end;

и кнопка очистить
procedure TForm2.Button2Click(Sender: TObject);
begin
Edit1.Text:=" ";
Edit2.Text:=" ";
Edit3.Text:=" ";
end;

Произвожу поиск - выдаются результаты, нажимаю очистить, затем снова поиск и в итоге - пустая таблица? В чем же дело?


 
sniknik ©   (2012-02-19 23:09) [1]

это кара небесная за то что используешь ADOQuery, а не ADODataSet, и не используешь параметры.


 
Anatoly Podgoretsky ©   (2012-02-20 09:42) [2]

> Aleksandra  (19.02.2012 22:55:00)  [0]

После очистки надо присваивать новые значения.


 
MsGuns ©   (2012-02-20 13:21) [3]

Перед

ADOQuery1.Active:=True ;
поставье

ShowMessage(ADOQuery.SQL.Text);
и думаю у Вас не будет вопросов к форуму :)



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
2-1335937740
Александр_12
2012-05-02 09:49
2013.03.22
Возможно ли управлять PowerPoint


2-1334127903
Gimbomba
2012-04-11 11:05
2013.03.22
Проблема с bde table в Embarcadero Delhpi XE2


15-1346868099
Nic
2012-09-05 22:01
2013.03.22
Как сделать онлайн сервис?


15-1352375486
Пользователь интернета
2012-11-08 15:51
2013.03.22
А я говорю, Delphi жив!


15-1346248538
tesseract
2012-08-29 17:55
2013.03.22
Пэйнтбол