ADO question

something like this...

const
  CONN_STR='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
var
  Data:string;
  ADOTable:TADOTable;
begin
  ADOTable:=TADOTable.Create(nil);
  try
    Data:=ExtractFilePath(Application.ExeName) + '\sales.mdb';
    ADOConnection2.ConnectionString:=Format(CONN_STR, [Data]);
    ADOConnection2.LoginPrompt:=False;

    ADOTable.Connection:=ADOConnection2;
    ADOTable.TableName:='SalesUnit';
    ADOTable.Active:=True;
    //do whatever you are going to do with your table here...
  finally
    ADOTable.Free
  end
end;

I created the ADOTable component dinamically, I don't know if you want that or to drop a component in the form...

looks pretty strait forward, but the real problem I have is getting the data after I make the connection.  see the last part of my question.

Thanks

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Active := False;
  ADOQuery1.Connection:=ADOConnection2;
  ADOQuery1.SQL.Text := 'SELECT DISTINCT make FROM sales_units';
  ADOQuery1.Active := True;
  ComboBox3.Clear;
  while not ADOQuery1.EOF do
    ComboBox3.Items.Add(ADOQuery1.FieldByName('make').AsString);
end;

procedure TForm1.ComboBox3CloseUp(Sender: TObject);
begin
  ADOQuery2.Active := False;
  ADOQuery2.Connection:=ADOConnection2;
  ADOQuery2.SQL.Text :=''
                     + 'SELECT DISTINCT model FROM sales_units'
                     + ' WHERE make = '
                     + '''' + ComboBox3.Text + ''''
                     + '';
  ADOQuery2.Active := True;
  ComboBox4.Clear;
  while not ADOQuery2.EOF do
    ComboBox4.Items.Add(ADOQuery2.FieldByName('model').AsString);
end;

Ok,
no compile errors, but the program hangs and does not paint to the screen.

procedure TForm1.LoadComboBox3;
const
  CONN_STR='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
var
  Data:string;
  ADOTable:TADOTable;
begin
  ADOTable:=TADOTable.Create(nil);
  try
    Data:=ExtractFilePath(Application.ExeName) + '\sales.mdb';
    ADOConnection2.ConnectionString:=Format(CONN_STR, [Data]);
    ADOConnection2.LoginPrompt:=False;
    ADOTable.Connection:=ADOConnection2;
    ADOTable.TableName:='sales_units';
    ADOTable.Active:=True;
    //do whatever you are going to do with your table here...
    loadquery;
  finally
    ADOTable.Free
  end
end;

procedure TForm1.LoadQuery;
begin
    combobox3.Clear;
  ADOQuery1.Active := False;
  ADOQuery1.Connection:=ADOConnection2;
  ADOQuery1.SQL.Text := 'SELECT DISTINCT make FROM sales_units';
  ADOQuery1.Active := True;
  while not ADOQuery1.EOF do
    ComboBox3.Items.Add(ADOQuery1.FieldByName('make').AsString);
end;

I like this, because I can understand it, but Isn't there a way to do this just by using the ADOTable?

> populate Combobox3 with a list of the different text entries in the 'make' column

'SELECT DISTINCT make FROM sales_units' does exactly above requirements

How to do it using ADOTable ?

esoftbg,

Your solution is not producing the desired result.  The Count is right, but all the combobox items are the same (the first "make" in the list).

for example...

ComboBox3 should contain...

Allen
Imer
Multiquip

but I'm getting...

Allen
Allen
Allen

Sorry  :(

Oh, excuse me, I forgot something important:

  while not ADOQuery1.EOF do
  begin
    ComboBox3.Items.Add(ADOQuery1.FieldByName('make').AsString);
    ADOQuery1.Next; // it is very, very important !
  end;

esoftbg,

Your solution works and the question is yours.
Just one other thing...

Can you help with the sql query for this...

procedure TForm1.ComboBox4Change(Sender: TObject);
begin
  ADOQuery2.Active := False;
  ADOQuery2.Connection:=ADOConnection2;
  ADOQuery2.SQL.Text :=''
                     + 'SELECT price AND list FROM sales_units'  //  << This is not working
                     + ' WHERE model = '
                     + '''' + ComboBox4.Text + ''''
                     + '';
  ADOQuery2.Active := True;
  label10.Caption := 'Price: $' + AdoQuery2.FieldByName('price').AsString;
  label11.Caption := 'List Price: $' + AdoQuery2.FieldByName('list').AsString;
end;