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

Вниз

CheckListBox & Query   Найти похожие ветки 

 
sensor-x   (2003-07-30 05:01) [0]

Уважаемые мастера, помогите разобраться, трабла у меня вот в чем: на форме есть Database1,Query1 и CheckListBox1.
Query1.SQL := select NAM from dbo.kp
Мне нужно чтобы при нажатии на кнопку (Button1) все строки из колонки NAM, таблицы kp, отобразились в CheckListBox"e
Листинг:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for I:= 0 to Query1.FieldCount - 1 do begin
CheckListBox1.Items.Add(Query1.Fields.Fields[i].AsString);
end;
end;

Только в итоге добавляется в листбокс одна (первая) строка. Подскажите в чем моя ошибка?
Заранее спасибо.


 
Evgeny V   (2003-07-30 05:24) [1]

По условию ты хочешь все записи(строки) по колонке NAM, а получаешь значения всех полей для одной записи. Надо так(считаем что запрос уже выполнился и еще не закрыт, сорьки код на си) -
void __fastcall TForm1::Button1Click(Sender *TObject)
{
while(!Query1.Eof)
{
CheckListBox1->Items->Add(Query1->FieldByName("NAM")->AsString);
Query1->Next();
}
}
Так как ты запрашиваешь одну колонку, можно вместо Query1->FieldByName("NAM")->AsString
делать Query1->Fields->Fields[0]->AsString Ну и вообще неплохо было бы очищать лист бокс перед заполнением:-)))



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

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

Наверх





Память: 0.44 MB
Время: 0.008 c
1-81809
Borealis
2003-08-11 23:30
2003.08.25
Что запустит ShellExecute?


1-81661
edicon
2003-08-12 00:42
2003.08.25
Мышь...


1-81668
HardClubber
2003-08-11 17:53
2003.08.25
Название программы


1-81628
ghost_by
2003-08-12 18:13
2003.08.25
вопрос про DBGrid.onDrawColumnCell


1-81723
Shuric
2003-08-08 21:03
2003.08.25
Графика





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