Populate ComboBox with Table Fields

Try this:

ComboBox1.Items.Assign(ADOQuery1.FieldList);

Maybe I misunderstood. If you want the combo to show the values from the categories field why not use a TDBLookupCombo instead of a normal combo

Good question.

The answer is because I tried and only got back the contents of the 'Categories' and not just the Different categorys.

Basically, the Lookup... returned ALL the data from the categories and with the comboBox i'm doing the following:

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from products');
ADOQuery2.SQL.Add('where Category ='''+sComboBox1.Text+'''');
ADOQuery2.Active:=True;
ADOQuery2.Open;

I have a list of the Category names hardcoded...and the code above then gives me all of just the selected Category.

What I want to do is just have the Different Categories populated automatically.

Hope this explaination helps!

I'll try the explain it a bit further:

I've got a Database to which I'm connected which contains 2 tables.

1. Products
2. Category

Catergory is the column name ---> Under Category I have:

Cereals
Frozen Food
Bakery & Cakes
etc...

I need the above populated in a comboxbox.

Hope this helps

Thanks

ST3VO

 ComboBox1.items.clear;
  for i:=0 to ADOQuery1.FieldCount-1 do
    ComboBox1.Items.Assign(ADOQuery1.Fields[i].FieldName);

Hi dinilud,

I got an error when I tried your code:

Here is the error Msg:

[Pascal Error] Product.pas(141): E2010 Incompatible types: 'TPersistent' and 'WideString'

Sorry my mistake. i didn't check that code.

var i:Integer;
begin
  ComboBox1.items.clear;
  for i:=0 to ADOQuery1.FieldCount-1 do
    ComboBox1.Items.Add(ADOQuery1.Fields[i].FieldName);

I'm still misunderstood....sorry about that.

Please read this!

I've got a Database to which I'm connected which contains 2 tables.

1. Products
2. Category

Catergory is the column name ---> Under Category I have:

Cereals                               <---- I want to display this list (Avoiding Duplicates if possible)
Frozen Food
Bakery & Cakes
etc...

I need the above populated in a comboxbox.

Hope this helps

Thanks

ST3VO

Then better use DBLookUp Combo box.

This is Using BDE.

Unit1.dfm
=========
object Form1: TForm1
  Left = 103
  Top = 168
  Width = 458
  Height = 299
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 32
    Top = 64
    Width = 369
    Height = 137
    DataSource = DataSource2
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 80
    Top = 16
    Width = 321
    Height = 21
    KeyField = 'Category'
    ListField = 'Category'
    ListSource = DataSource1
    TabOrder = 1
    OnClick = DBLookupComboBox1Click
    OnKeyDown = DBLookupComboBox1KeyDown
  end
  object Table1: TTable
    FieldDefs = <
      item
        Name = 'ItemName'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Category'
        DataType = ftString
        Size = 20
      end>
    StoreDefs = True
    TableName = 'Item'
    Left = 72
    Top = 32
  end
  object Query1: TQuery
    SQL.Strings = (
      'Select Distinct Category from Item')
    Left = 232
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 312
    Top = 64
  end
  object Query2: TQuery
    SQL.Strings = (
      'Select * from Item')
    Left = 216
    Top = 136
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 224
    Top = 144
  end
end

Unit1.pas
=========

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, DBCtrls;

type
  TForm1 = class(TForm)
    Table1: TTable;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBLookupComboBox1: TDBLookupComboBox;
    Query2: TQuery;
    DataSource2: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Table1.CreateTable;
  Table1.Open;
  Table1.AppendRecord(['Item1','Categ1']);
  Table1.AppendRecord(['Item2','Categ1']);
  Table1.AppendRecord(['Item3','Categ1']);
  Table1.AppendRecord(['Item4','Categ2']);
  Table1.AppendRecord(['Item5','Categ3']);
  Table1.AppendRecord(['Item6','Categ3']);
  Query1.Open;
  Query2.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Query2.Close;
  Query1.Close;
  Table1.Close;
  Table1.DeleteTable;
end;

procedure TForm1.DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key =VK_BACK then
  begin
     DBLookupComboBox1.KeyValue:=Null;
     DBLookupComboBox1Click(nil);
  end;
end;

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
  Query2.Close;
  if DBLookupComboBox1.KeyValue<>Null then
    Query2.SQL.Text:='Select * from Item where Category='+
                                         QuotedStr(DBLookupComboBox1.KeyValue)
  else Query2.SQL.Text:='Select * from Item';
  Query2.Open;
end;

end.

I'll try modifing the code to work without the BDE and get back to you. Thanks!

to avoid duplicating:
    Sql.Add('Select distinct(category) from products');
or
    Sql.Add('Select category from products');
    Sql.Add(' group by category');
 

Perfect!!! Exactly what I needed. Thanks a million :o)

Cheers

ST3VO