Delphi 获得数据库中所有表名和表字段的方法

1、通过内置函数（GetTableNames、GetFieldNames）

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

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

2、通过SQL语句（例如：SQL SERVER）

--查看所有表名：

select name from sysobjects where type='U'

--查询表的所有字段名：

Select name from syscolumns Where ID=OBJECT_ID('表名')

来源：https://www.cnblogs.com/guorongtao/p/14366737.html