Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проблемы с выборкой данных из таблиц. [D6, IB5.x]

С.е.р.ж. © (2002-05-19 19:12:00)
Есть БД, созданная в 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.
(Это на примере книги Шумакова и Фаронова)
Помогите пожалуйста.

С.е.р.ж. (2002-05-21 20:54:00) [1]
Простите ещё раз пожалуйста. На выход в сеть у меня буквально несколько минут - отсюда опечатки.
Текст события:
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;

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

Johnmen (2002-05-21 09:27:00) [2]
>>> ParamByName("kol").Value:=StrToInt(KolvoEdit.Text);
...и к чему относится это строчечка....?

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

Anatoly Podgoretsky (2002-05-20 21:48:00) [3]
И как это выглядит "не работает" нет ни одной записи или наоборот все.

С.е.р.ж. (2002-05-20 21:19:00) [4]
Прошу прощения, просто не скопировал в кусок кода.
С ним всё равно не работает.

kaif (2002-05-20 01:50:00) [5]
А где RashodQuery.Active := False ?
Запрос надо закрыть и еще раз открыть.

Наверх

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