Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
ВнизПоиск 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.081 c