获取MS SQL库数据字典

SELECT  sysobjects.name  AS   [ table ] , sysproperties. [ value ]   AS  表说明,       syscolumns.name  AS  field, properties. [ value ]   AS  字段说明, systypes.name  AS  type,       syscolumns.length,  ISNULL ( COLUMNPROPERTY (syscolumns.id, syscolumns.name,        ' Scale ' ),  0 )  AS  小数位数, syscolumns.isnullable  AS   isnull ,        CASE   WHEN  syscomments. text   IS   NULL         THEN   ''   ELSE  syscomments. text   END   AS   [ Default ] ,        CASE   WHEN   COLUMNPROPERTY (syscolumns.id, syscolumns.name,  ' IsIdentity ' )        =   1   THEN   ' √ '   ELSE   ''   END   AS  标识,  CASE   WHEN   EXISTS           ( SELECT   1           FROM  sysobjects          WHERE  xtype  =   ' PK '   AND  name  IN                    ( SELECT  name                   FROM  sysindexes                   WHERE  indid  IN                             ( SELECT  indid                            FROM  sysindexkeys                            WHERE  id  =  syscolumns.id  AND  colid  =  syscolumns.colid)))        THEN   ' √ '   ELSE   ''   END   AS  主键 FROM  syscolumns  INNER   JOIN       sysobjects  ON  sysobjects.id  =  syscolumns.id  INNER   JOIN       systypes  ON  syscolumns.xtype  =  systypes.xtype  LEFT   OUTER   JOIN       sysproperties properties  ON  syscolumns.id  =  properties.id  AND        syscolumns.colid  =  properties.smallid  LEFT   OUTER   JOIN       sysproperties  ON  sysobjects.id  =  sysproperties.id  AND        sysproperties.smallid  =   0   LEFT   OUTER   JOIN       syscomments  ON  syscolumns.cdefault  =  syscomments.id WHERE  (sysobjects.xtype  =   ' U ' )