SQLServer2008/2005 生成数据字典SQL语句

在网上版本的基础上调整成按表名排序，且排除数据库关系图相关的表sysdiagrams。

表头：表名 表说明 字段序号 字段名 标识 主键 类型 占用字节数 长度 小数位数 允许空 默认值 字段说明

发现的问题：字段序号可能不连续。

select 
表名=case when a.colorder=1 then d.name else '' end, 
表说明=case when a.colorder=1 then isnull(f.value,'') 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 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,''), 
字段说明=isnull(g.[value],'') 
from syscolumns a 
left join systypes b on a.xtype=b.xusertype 
inner join sysobjects d on a.id=d.id and d.xtype='u' and d.name<>'dtproperties' and d.name<>'sysdiagrams'  
left join syscomments e on a.cdefault=e.id 
left join sys.extended_properties g on a.id=g.major_id and a.colid=g.minor_id  
left join sys.extended_properties f on d.id=f.major_id and f.minor_id =0 
--where d.name='要查询的表' --如果只查询指定表,加上此条件 
order by d.name,a.id,a.colorder

 分别将“表头”和查询结果贴到Excel，双击调整Excel列宽即可得到一份完整的数据字典Excel文件。

参考：http://www.cnblogs.com/SoulStore/archive/2011/04/14/2015639.html