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

Вниз

Как обьявить поле програмно ?   Найти похожие ветки 

 
Dmitriy O. ©   (2004-08-16 11:26) [0]

Во время разработки приложения поле обьявляется очень легко по правой кнопке мыши "добавить поля" как такую фишку организовать програмно ?. Есть такой код
query.SQL.Clear;
query.SQL.Add("select distinct NOMZAV from zaiav where N>=(select max(n)-50 from zaiav)");
query.Prepare;
query.Open;
Потом результаты выборки надо пернести в контрол
mrform.dzaiav.Items.Clear;
while not data.Query.Eof do begin
mrform.Dzaiav.Items.Add(data.querynomzav.asstring);
data.query.Next;
end;

Но естественно если поле заранее не обьявленно (NOMZAV) то компилятор ругается.
Так вот как обьявить это поле в коде во время выполнения проги ?


 
Соловьев ©   (2004-08-16 11:30) [1]


> mrform.Dzaiav.Items.Add(data.querynomzav.asstring);

mrform.Dzaiav.Items.Add(data.query.fields[0].asstring);


 
Соловьев ©   (2004-08-16 11:31) [2]

FieldByName("NOMZAV").AsString;


 
Dmitriy O. ©   (2004-08-16 11:33) [3]


> Соловьев ©   (16.08.04 11:30) [1]

Большое спасибо ! "Все гениальное просто" (с) не мое


 
Dmitriy O. ©   (2004-08-16 11:35) [4]


> ловьев ©   (16.08.04 11:31) [2]

Мда а ведь помнил когдато но забыл. Больше спасибо еще раз !



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

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

Наверх




Память: 0.45 MB
Время: 0.033 c
14-1093355614
Агент Смитт
2004-08-24 17:53
2004.09.12
Провайдеры в Донецке


14-1093435367
Суслик
2004-08-25 16:02
2004.09.12
Фотки с встречи дельфистов


14-1093002926
Тупой
2004-08-20 15:55
2004.09.12
Где можно скачать книги по Delphi 7",


14-1092981849
Qwer
2004-08-20 10:04
2004.09.12
Delphi 7 + CR9 !!!


14-1092977204
Рамиль
2004-08-20 08:46
2004.09.12
Ведение реестра акционеров эмитентом





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский