Delphi 获得数据库中所有表名和表字段的方法 1、通过内置函数（GetTableNames、GetFieldNames）

1	ADOConnection1.GetTableNames(ComboBox1.Items, False);  //获取所有表名

　　

1	ADOConnection1.GetFieldNames(ComboBox1.Text,ComboBox2.Items);  //获取表的所有字段名