急！！在delphi中如何导出数据库中表的设计信息

来源：百度知道 编辑：UC知道 时间：2024/06/20 05:06:15
我用的delphi5，SQL2000.现在想把数据库中表的设计信息导出到excel上，关键是怎么利用delphi提取数据库表的设计信息不知道，还请各位大人帮忙解决下
我是想导出的是表中的字段类型，备注还有是否主键，标识等等，而不是表的数据，一楼的能否详细点，最好给个例子，谢谢

这个需求基本跟delphi没啥关系, 唯一有点联系的就是导出Excel,主要的是生成数据库字典信息表; 导出Excel我就不说了 说点关键的 : 用SQL生成字典表

SELECT
表名 = CASE WHEN A.COLORDER=1 THEN D.NAME ELSE ' ' END,
--字段序号 = A.COLORDER,
字段名称 = A.NAME,
--标识 = CASE WHEN COLUMNPROPERTY( A.ID,A.NAME, 'ISIDENTITY ')=1 THEN '√ 'ELSE ' ' END,
/*主键 = CASE WHEN EXISTS(SELECT 1 FROM SYSOBJECTS WHERE XTYPE= 'PK ' AND PARENT_OBJ=A.ID AND NAME IN (
SELECT NAME FROM SYSINDEXES WHERE INDID IN(
SELECT INDID FROM SYSINDEXKEYS WHERE ID = A.ID AND COLID=A.COLID))) THEN '√ ' ELSE ' ' END,*/
类型 = B.NAME ,
占用字节数 = A.LENGTH,
--长度 = COLUMNPROPERTY(A.ID,A.NAME, 'PRECISION '),
--小数位数 = ISNULL(COLUMNPROPERTY(A.ID,A.NAME, 'SCALE '),0),
能否为空 = CASE WHEN A.ISNULLABLE=1 THEN '能'ELSE '否' END,
默认值 = ISNULL(E.TEXT, ' '),
表说明 = CASE WHEN A.COLORDER=1 THEN ISNULL(F.VALUE, ' ') ELSE ' '