Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

При 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 ТЫ НЕ ХОЧЕШЬ ПЕРЕДАТЬ ЗНАЧЕНИЕ ПЕРЕМЕННОЙ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо