Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

При 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 вся ветка

Форум: "Базы";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.006 c
3-95256
Nikolka
2002-07-09 11:33
2002.07.29
Не запускается приложение с локальной БД


14-95566
Извращенец
2002-06-28 16:57
2002.07.29
Музика для игры типа Энигматики


3-95203
alexvan
2002-07-06 16:57
2002.07.29
Как в SQL запрос вставить переменную


14-95552
Arkady
2002-06-27 08:11
2002.07.29
Зависание BDE


14-95538
ProgMan
2002-06-25 10:52
2002.07.29
Курение?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский