Delphi怎样得到一个数据库表中所有字段的名字？

Question

在Delphi中，用ADO连SQL数据库，怎样得到一个数据库表中所有表名及每个表的字段的名字？
目的：能够把表名和字段都分别列出到下拉列表中，供选择。
怎样实现，最好能给出示例代码？谢谢了

Answer 1

正在看
http://expert.csdn.net/Expert/topic/2321/2321553.xml?temp=.7150995

Answer 2

adoconnection指向数据库：
ADOConnection1.GetFieldNames('tablename',combobox1.Items);

Answer 3

TListBox ListBox;
  TStringsList strings;  ADOConnection1->GetTableNames(listBox, false);
  ADOConnection1->GetFieldNames("table", strings);

Answer 4

获得表的名称
ADOConnection1.GetTableNames(combobox1.Items);
获得字段的名称
ADOConnection1.GetFieldNames('tablename',combobox1.Items);