Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > добавление из базы в listbox

Автор: dize 4.8.2009, 10:22

Есть база данных access, в ней таблица "Dengi" со столбиком Kod_klienta. Как сделать отображение всех записей из бд в листбоксе?
Пробовал:

Код


procedure Tgroupz.ListBox1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ADOQ_kod.First;
While not ADOQ_kod.eof do 
 begin

 ListBox1.Items.add(ADOQ_kod.fieldbyname('Kod_klienta').AsString); 

 ADOQ_kod.Next;
 end
end;
end.

Не отображает.

Автор: Romikgy 4.8.2009, 10:48

Цитата(dize @ 4.8.2009, 09:22

)

ADOQ_kod

активен ?

Автор: dize 4.8.2009, 10:50

Нет. При попытке сделать активным ругается "Missing SQL property".

Автор: Romikgy 4.8.2009, 10:53

1. кода мало
2. попробуй так

Код


procedure Tgroupz.ListBox1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ADOQ_kod.active:=true;
ADOQ_kod.First;
While not ADOQ_kod.eof do 
 begin
 ListBox1.Items.add(ADOQ_kod.fieldbyname('Kod_klienta').AsString); 
 ADOQ_kod.Next;
 end
end;

при условии что SQL запрос правильный и прописан

Добавлено @ 10:54

Цитата(dize @ 4.8.2009, 09:50

)

Missing SQL property

видать не прописан :(

Добавлено @ 10:56
вроде так должно работать

Код


procedure Tgroupz.ListBox1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ADOQ_kod.active:=false;
ADOQ_kod.SQL.Text:='select Kod_klienta from Dengi;';
ADOQ_kod.open;
ADOQ_kod.First;
While not ADOQ_kod.eof do 
 begin
 ListBox1.Items.add(ADOQ_kod.fieldbyname('Kod_klienta').AsString); 
 ADOQ_kod.Next;
 end;
 ADOQ_kod.active:=false;
end;

Автор: dize 4.8.2009, 11:06

К сожалению и так не работает =\

Автор: Romikgy 4.8.2009, 11:09

тогда тестовый проект прикрепляй бум смотреть конкретнее ибо

Цитата(Romikgy @ 4.8.2009, 09:53

)

1. кода мало

Автор: Данкинг 4.8.2009, 11:40

Цитата(dize @ 4.8.2009, 11:22

)

Пробовал:

Вот именно так и надо, как ты делаешь. Похоже, у тебя инфа в квери не выбрана или какой-то такой глюк. Т.е. как раз в AdoQuery.SQL.Text ничего нет.

Автор: dize 7.8.2009, 11:26

Ссылка на проект:
http://depositfiles.com/files/ns6h7umam

Автор: Romikgy 7.8.2009, 12:18

воть

Автор: dize 7.8.2009, 12:56

Благодарю

Автор: dize 10.8.2009, 09:46

Интересно только, почему листбокс не хочет отображать данные сразу, а только при нажатии на кнопку, ведь это не совсем удобно.
И еще один вопрос, раз уж выложил исходник, может кто подскажет из-за чего на одной форме работают комбобоксы, а на других нет. Заранее спасибо.

Автор: Romikgy 10.8.2009, 13:22

Цитата(dize @ 10.8.2009, 08:46

)

И еще один вопрос, раз уж выложил исходник,

правила форума читайте!!!

Цитата(dize @ 10.8.2009, 08:46

)

может кто подскажет из-за чего на одной форме работают комбобоксы, а на других нет.

вопрос не понятен ... (создай новую тему там и спроси )

Цитата(dize @ 10.8.2009, 08:46

)

а только при нажатии на кнопку, ведь это не совсем удобно.

поставь код из кнопки в другое место там где хочешь ...

PS почитай про программирование на дельфи ...... совет !