Sql Server 2000 2005 用Sql语句生成Sqlserver数据字典

Sql Server 2000 版本：

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 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' 
   left join syscomments e on a.cdefault=e.id left join sysproperties g on a.id=g.id 
   and a.colid=g.smallid  
   order by a.id,a.colorder

Sql Server 2005 版本：

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 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' 
   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  
   order by a.id,a.colorder