При SQL запросе запрос проходит 1 раз

← →
alexvan (2002-07-06 18:57) [0]

Ситуация такая. Я обращаюсь к полю таблицы значение которого забито в DBComboBox, вытаскиваю значение этого поля на переменную N и делаю запрос

SELECT поле1
FROM таблица
WHERE (поле 2=:переменная);

В данном случае запрос должен проходить на OnChange ComboBox при любом изменении. Но у меня он проходит всего лишь один только раз при первом вытаскивании значения.

procedure Tfm1.ComboBox1Change(Sender: TObject);
begin
<Переменная>:=ComboBox1.Text;
Query1.Active:=True;
Query1.last;
if Query1.Fields[0].AsString <>"" THEN
Edit1.Text:= Query1.Fields[0].AsString;
else
MaskEdit1:="";
end;
end;

← →
dimis (2002-07-08 08:59) [1]

:) а в Query1 ТЫ НЕ ХОЧЕШЬ ПЕРЕДАТЬ ЗНАЧЕНИЕ ПЕРЕМЕННОЙ?

← →
alexvan (2002-07-08 09:05) [2]

А что я делаю? Этой переменной значение присваивается при каждом OnChange, а в Query1.SQL
Select ...
From ...
Where (Field=:переменная)

← →
Johnmen (2002-07-08 09:12) [3]

>alexvan ©

А ты не пробовал прочитать хотя бы одну книгу по основам программирования БД в Дельфи ? Скорее всего - нет ! А жаль...

← →
alexvan (2002-07-08 09:23) [4]

Она у меня на столе

← →
Johnmen (2002-07-08 09:27) [5]

Так я о том, где она находится, и не спрашивал !!!

← →
Anatoly Podgoretsky (2002-07-08 09:29) [6]

alexvan © (08.07.02 09:23)
Ты лучше ответь пробовал или нет

← →
alexvan (2002-07-08 09:33) [7]

Да!!!

← →
roottim (2002-07-08 09:34) [8]

procedure Tfm1.ComboBox1Change(Sender: TObject); begin Query1.Close; <Переменная>:=ComboBox1.Text; Query1.Open; Query1.last; if Query1.Fields[0].AsString <>"" THEN Edit1.Text:= Query1.Fields[0].AsString; else MaskEdit1:=""; end; end;

PS
и непиши так <Переменная>:=ComboBox1.Text тока народ мутиш

← →
Anatoly Podgoretsky (2002-07-08 09:43) [9]

← →
alexvan (2002-07-08 09:48) [10]

Я постараюсь!

При SQL запросе запрос проходит 1 раз Найти похожие ветки