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

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

Форум программистов > Delphi: Базы данных и репортинг > Items в DBComboBox

Автор: kulikoff 26.1.2006, 17:02

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

Автор: SPrograMMer 26.1.2006, 20:33

Цитата(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

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

Автор: SPrograMMer 29.1.2006, 21:34

Цитата(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