How to show the contents of a table selected in ListBox ?

[DCMNBD]

HI,
I m using delphi 5, ADOConnection, ADOTable, DBGrid, ListBox1, DataSource.

I have a database with tables (table1, table2, table3).
To populate the ListBox1 with tables (table1, table2, table3) I wrote the following code:
ADOConnection1.GetTableNames(ListBox1.Items, false); It some how works .

Now I want that when I click on table2(for example in ListBox1) it's contents shows in dbgrid1.

Best Regards.

 

[DelphiAaron]

in the listbox click event put something like

if ADOTable1.Active then ADOTable1.Close;
ADOTable1.TableName := ListBox1.Items[ListBox1.ItemIndex];
ADOTable1.Open;

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[DCMNBD]

Not working .....

When I run and I click in the ListBox I get an EstringListError with Index range exceeding limit (-1).

The following is the code :

procedure TFORM1.ListBox1Click(Sender: TObject);
begin

ADOConnection1.GetTableNames(ListBox1.Items, false);
if ADOTable1.Active then ADOTable1.Close;
ADOTable1.TableName := ListBox1.Items[ListBox1.ItemIndex];
ADOTable1.Open;
end;