![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
При SQL запросе запрос проходит 1 раз
alexvan © (2002-07-06 18:57:00)Ситуация такая. Я обращаюсь к полю таблицы значение которого забито в 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;
alexvan (2002-07-08 09:48:00) [1]Я постараюсь!
Anatoly Podgoretsky (2002-07-08 09:43:00) [2]alexvan © (08.07.02 09:33)
Отлично, теперь еще один раз и на этот раз вдумчиво
roottim (2002-07-08 09:34:00) [3]
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тока народ мутиш
alexvan (2002-07-08 09:33:00) [4]Да!!!
Anatoly Podgoretsky (2002-07-08 09:29:00) [5]alexvan © (08.07.02 09:23)
Ты лучше ответь пробовал или нет
Johnmen (2002-07-08 09:27:00) [6]Так я о том, где она находится, и не спрашивал !!!
alexvan (2002-07-08 09:23:00) [7]Она у меня на столе
Johnmen (2002-07-08 09:12:00) [8]>alexvan ©
А ты не пробовал прочитать хотя бы одну книгу по основампрограммирования БД в Дельфи ? Скорее всего - нет ! А жаль...
alexvan (2002-07-08 09:05:00) [9]А что я делаю? Этой переменной значение присваивается при каждом OnChange, а в Query1.SQL
Select ...
From ...
Where (Field=:переменная)
dimis (2002-07-08 08:59:00) [10]:) а в Query1 ТЫ НЕ ХОЧЕШЬ ПЕРЕДАТЬ ЗНАЧЕНИЕ ПЕРЕМЕННОЙ?