| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск ADO [D7]

Aleksandra ©   (2012-02-19 22:55:00) 

Здравствуйте? Есть кнопка поиска:
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;

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

---

MsGuns   (2012-02-20 13:21:00) [1]

Перед

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

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

---

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

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

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

---

sniknik   (2012-02-19 23:09:00) [3]

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

---

Наверх