VPF::динамическое заполнение ComboBox из бызы данных.

gambit

Дата 14.3.2007, 11:29 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

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

грубый пример но примерно так:
На форме есть таблица dbgrid из 2 столбцов(id,ФИО), ComboBox и label.

Так вот мне надо чтоб в ComboBox появились все значения столбца фио, а при выборе, в label записывалось значение id выбранного ФИО.

smile

Yanis

Дата 14.3.2007, 11:33 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Цитата(gambit @ 14.3.2007, 12:29

)

Так вот мне надо чтоб

Как вижу слово надо, так и хочется ответить "Больше тебе ничего не надо?" smile

Почему бы не сипользовать TDBComboBox и TDBText?

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

*щёлк*

Данкинг

Дата 14.3.2007, 11:35 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Ну, циклом проходим по таблице и добавляем значения в комбик, больше никак ИМХО.

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

There's nothing left but silent epitaphs.

gambit

Дата 14.3.2007, 11:37 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

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

Цитата(Yanis @ 14.3.2007, 11:33

)

Почему бы не сипользовать TDBComboBox и TDBText?

Цитата(gambit @ 14.3.2007, 11:29

)

чтоб в ComboBox появились все значения столбца фио

ama_kid

Дата 14.3.2007, 12:24 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

Что-то я не понял, видимо, проблему...
Такой код:

Код


var
 Con: TADOConnection; 
 aq:TADOQuery;

// функция:
Сon.ConnectionString:=' твоя строка подключения ';
aq.Connection:=Con;

aq.SQL.Text:='SELECT [name] FROM твоя_таблица';
try
 aq.Open;
except
end;
ComboBox1.Clear;
for i:=0 to aq.Recordcount-1 do
 begin
  ComboBox1.Items.Add(aq.Recordset.Collect[0]);
  aq.MoveNext;
 end;

у меня никогда не вызывал проблем...

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

самурай без меча подобен самураю с мечом, но только без меча

gambit

Дата 15.3.2007, 11:54 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

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

Использую код

Код


begin
ComboBox1.Clear;
form1.ADOTable1.First;
for i:=0 to form1.ADOTable1.RecordCount-1 do
begin
s:=form1.ADOTable1.Recordset.Collect[1]+' '+form1.ADOTable1.Recordset.Collect[2]+' '+form1.ADOTable1.Recordset.Collect[3];
ComboBox1.Items.Add(s);
application.ProcessMessages;
form1.ADOTable1.Next;
end;

На форме таблица

| а | b | c |
| 1 | 1 | 1 |
| 2 | 2 | 2 |
| 3 | 3 | 3 |
| 4 | 4 | 4 |
| 5 | 5 | 5 |

После выполнения в combobox1 должно появится
1 1 1
2 2 2
3 3 3
4 4 4
5 5 5

Запускаю и получаю
1 1 1
5 5 5
5 5 5
5 5 5
5 5 5
5 5 5

Начинаю проверять что не так, ставлю точку прерывания делаю по шагам и о чудо в итоге получаю
1 1 1
2 2 2
3 3 3
4 4 4
5 5 5

На радостях снимаю точку, запускаю и в итоге
1 1 1
5 5 5
5 5 5
5 5 5
5 5 5
5 5 5

Снятие оптимизации кода непомогает, что это может быть? Я уже измучился. smile

ama_kid

Дата 15.3.2007, 12:48 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

Если в дебаге на данном участке кода все нормально - вывод: скорее всего какой-то другой код еще вступает в действие и выполняет работу с комбобоксом. Приведи полностью проект...

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

самурай без меча подобен самураю с мечом, но только без меча

gambit

Дата 15.3.2007, 16:00 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

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

Лови

Это сообщение отредактировал(а) gambit - 15.3.2007, 17:11

gambit

Дата 15.3.2007, 16:28 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

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

Кстати там в реестре надо будет добавит ключ pach с путем к проге.
Просто это маленькая часть огромного комплекса. И лови то что готово от бызы данных. Она должна лежать в папке pach.

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

brick.rar 17,17 Kb

ama_kid

Дата 15.3.2007, 16:46 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

во-первых, из-за того, что у меня не открывалась по умолчанию таблица, я добавил еще открытие таблицы:

Код


...
ComboBox1.Clear;
try
 ADOTable1.Open;
except
end;
form1.ADOTable1.First;
...

Не совсем понятно, почему у тебя она открывается, ну да ладно...
Во вторых: замени

Код

form1.ADOTable1.Next;

на

Код

form1.ADOTable1.MoveBy(1);

Должно заработать...

Добавлено:
Нет, нифига, чо-та не хочет... Копаем дальше... Вообще е совсем правильная концепция - использование TADOTable для получения информации...

Добавлено @ 16:58
А, блин...
Надо использовать конструкцию типа:
s:=form1.ADOTable1.Fields[1].AsString +' '+form1.ADOTable1.Fields[2].AsString+' '+form1.ADOTable1.Fields[3].AsString;

Это сообщение отредактировал(а) ama_kid - 15.3.2007, 16:54

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

самурай без меча подобен самураю с мечом, но только без меча

gambit

Дата 15.3.2007, 17:13 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

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

Цитата(ama_kid @ 15.3.2007, 16:46

)

s:=form1.ADOTable1.Fields[1].AsString +' '+form1.ADOTable1.Fields[2].AsString+' '+form1.ADOTable1.Fields[3].AsString;

Лови +

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