Главная страница
    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
1-95302
Свой
2002-07-17 15:34
2002.07.29
Таймер


6-95462
snoup
2002-05-16 20:40
2002.07.29
Please помагите, как программно послать сообщение на определённый


3-95192
Анонимщик
2002-07-02 21:14
2002.07.29
Interbase, ISC4.gdb


1-95365
programmerts
2002-07-12 19:38
2002.07.29
Как удалить неудаляемый файл.


6-95475
Dmitry Sheenok
2002-05-18 12:18
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский