Проблемы с выборкой данных из таблиц.

← →
С.е.р.ж. (2002-05-19 19:12) [0]

Есть БД, созданная в InterBase, состоящая из нескольких таблиц.
Для ввода условий фильтрации таблиц используются несколько компонентов TEdid.
Данные передаются в качестве параметров запроса TQuery через св-во SQL и Params.
Фильтрация должна происходить при нажатии на TButton. Но в том-то и дело, что данные
не отфильтровываются. Нету вообще никакой реакции. в чем может быть дело? Данные типа
Numeric и Varchar.
Текст SQL-запроса:
select * from rashod
where KOLVO = :kol and TOVAR = :tov and POKUP = :pok
(вместо AND может быть и OR)
Текст обработчика OnClick:
procedure TForm1.SearchButtonClick(Sender: TObject);
begin
if not RashodQuery.Prepared then
RashodQuery.Prepare;
ParamByName("kol").Value:=StrToInt(KolvoEdit.Text);
RashodQuery.ParamByName("tov").Value:=TovarEdit.Text;
RashodQuery.ParamByName("pok").Value:=PokupEdit.Text;
RashodQuery.Active := True;

end;
Свойство DataType (Params) устанавливаtтся как ftInteger для Numeric и ftString для Varchar,
свойство ParamType - в ptInput.
(Это на примере книги Шумакова и Фаронова)
Помогите пожалуйста.

← →
kaif © (2002-05-20 01:50) [1]

А где RashodQuery.Active := False ?
Запрос надо закрыть и еще раз открыть.

← →
С.е.р.ж. (2002-05-20 21:19) [2]

Прошу прощения, просто не скопировал в кусок кода.
С ним всё равно не работает.

← →
Anatoly Podgoretsky © (2002-05-20 21:48) [3]

И как это выглядит "не работает" нет ни одной записи или наоборот все.

>>> ParamByName("kol").Value:=StrToInt(KolvoEdit.Text);
...и к чему относится это строчечка....?

Если это опечатка, то приводи полный текст и без опечаток !

← →
С.е.р.ж. (2002-05-21 20:54) [5]

Простите ещё раз пожалуйста. На выход в сеть у меня буквально несколько минут - отсюда опечатки.
Текст события:
procedure TForm1.SearchButtonClick(Sender: TObject);
begin
RashodQuery.Active:=False;
if not RashodQuery.Prepared then
RashodQuery.Prepare;
RashodQuery.ParamByName("kol").Value:=StrToInt(KolvoEdit.Text);
RashodQuery.ParamByName("tov").Value:=TovarEdit.Text;
RashodQuery.ParamByName("pok").Value:=PokupEdit.Text;
RashodQuery.Active := True;
end;

Все записи остаются на месте.
Делал похожий пример из статьи с этого сайта - всё получается. Как только пытаюсь написать своё - проблемы.
Если вам не сложно, то проконсультируйте письмом, пожалуйста.

Проблемы с выборкой данных из таблиц. Найти похожие ветки