VPF::добавление из базы в listbox - Форум программистов

dize

Дата 4.8.2009, 10:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Есть база данных 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.

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

Это сообщение отредактировал(а) dize - 4.8.2009, 10:32

--------------------

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

Romikgy

Дата 4.8.2009, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

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

)

ADOQ_kod

активен ?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

dize

Дата 4.8.2009, 10:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

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

--------------------

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

Romikgy

Дата 4.8.2009, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

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;

Это сообщение отредактировал(а) Romikgy - 4.8.2009, 10:58

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

dize

Дата 4.8.2009, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

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

--------------------

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

Romikgy

Дата 4.8.2009, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

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

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

)

1. кода мало

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Данкинг

Дата 4.8.2009, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

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

)

Пробовал:

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

Это сообщение отредактировал(а) Данкинг - 4.8.2009, 11:41

--------------------

There's nothing left but silent epitaphs.

dize

Дата 7.8.2009, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

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

--------------------

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

Romikgy

Дата 7.8.2009, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

воть

Присоединённый файл ( Кол-во скачиваний: 5 )

manager.rar 446,94 Kb

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

dize

Дата 7.8.2009, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Благодарю

--------------------

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

dize

Дата 10.8.2009, 09:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) dize - 10.8.2009, 12:56

--------------------

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

Romikgy

Дата 10.8.2009, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

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

)

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

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

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

)

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

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

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

)

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

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

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

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »