VPF::Items в DBComboBox - Форум программистов

kulikoff

Дата 26.1.2006, 17:02 (ссылка)

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

Загрузка ...

Опытный

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

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

Как в Item's DBComboBox'a добавить значения, полученные в результате какого-то select'a? Т.е. выполнил запрос, он выбрал поля, и надо сделать так, чтоб эти поля стали итемсами в комбобоксе...

SPrograMMer

Дата 26.1.2006, 20:33 (ссылка)

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

Загрузка ...

Спамер :)

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

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

Цитата(kulikoff @ 26.1.2006, 17:02

)

Item's DBComboBox'a добавить значения, полученные в результате какого-то select'a

Цитата(kulikoff @ 26.1.2006, 17:02

)

он выбрал поля, и надо сделать так, чтоб эти поля ст

Т е. не значения полей, а именно наименования полей?
Тогда примерно так:

Код


procedure TForm1.Button1Click(Sender: TObject);
 Var
  I:Word;
begin
 ...
 DBComboBox1.Items.Clear;
 For I:=0 To Pred(Query1.FieldCount) Do
  DBComboBox1.Items.Add(Query1.Fields[I].DisplayName)
end;

Только почему это не в обычном ComboBox`е а в DB!? smile

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

животное = зверь
законченный гентушник

kulikoff

Дата 28.1.2006, 15:40 (ссылка)

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

Загрузка ...

Опытный

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

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

Сории, неправильно выразился, именно значения полей!!!

SPrograMMer

Дата 29.1.2006, 21:34 (ссылка)

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

Загрузка ...

Спамер :)

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

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

Цитата(kulikoff @ 28.1.2006, 15:40

)

неправильно выразился, именно значения полей

А если полей много - как их вставлять??!! smile

Если поле одно, по типу:

Код


Select Field1 From...

Тогда вот так:

Код


 DBComboBox1.Items.Clear;
 Query1.Active:=True;
 While Not Query1.EOF Do Begin
  DBComboBox1.Items.Add(Query1.Fields[0].AsString);
  Query1.Next
 End;

Добавлено @ 21:40

Цитата(SPrograMMer @ 29.1.2006, 21:34

)

как их вставлять

т е это таблица уже получается.... я хотел сказать smile

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

животное = зверь
законченный гентушник

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