Вниз
Скачать: CL | DM;

При 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 © (08.07.02 09:33)
Отлично, теперь еще один раз и на этот раз вдумчиво


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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c
1-95274
AFROLOV
2002-07-15 13:18
2002.07.29
Передача параметра по ссылке


3-95265
big_bugzy
2002-07-09 15:11
2002.07.29
An unknown error has occurred


14-95567
MaximatorVeter
2002-07-03 20:36
2002.07.29
От Спида каждый день умирает 8220 человек!


1-95372
jen_bond
2002-07-15 11:19
2002.07.29
Возможно ли??


1-95423
Juliet
2002-07-16 13:06
2002.07.29
Как определить версию Word




   Наверх