http://www.wesoho.com/showlog.asp?log_id=1309
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.GetTableNames(ComboBox1.Items, False);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text<>'' then
begin
ADOConnection1.GetFieldNames(ComboBox1.Text,ComboBox2.Items);
end;
end;
其实关键是两个函数，GetTableNames和GetFieldNames，定义如下：
procedure TADOConnection.GetTableNames(List: TStrings;
SystemTables: Boolean);
procedure TADOConnection.GetFieldNames(const TableName: string;
List: TStrings);