能否提供一个存储过程,打印出所有用户表的表名/字段名/字段类型/说明的清单？
感觉sql2000没有像access那样把字段说明显示在字段的旁边真是不方便啊？

------解决方案--------------------
--这是一个表的.

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 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, ' '),
字段说明 = isnull(g.[value], ' ')
FROM
syscolumns a
left join
systypes b
on
a.xusertype=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
left join
sysproperties f
on
d.id=f.id and f.smallid=0
where
d.name= '要查询的表 ' --如果只查询指定表,加上此条件
order by
a.id,a.colorder



------解决方案--------------------
這是老大寫的語句，可以查詢所有的用戶表的詳細信息。

如果需要查詢單獨表，加上下面注釋的條件即可.

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
--Where D.Name= '你要查詢的表名 '
Order By A.ID,A.ColOrder
------解决方案--------------------
如果只是需要表名/字段名/字段类型/说明這幾項，做下修改

Select
表名=Case When A.ColOrder=1 Then D.Name Else ' ' End,
字段序号=A.ColOrder,
字段名=A.Name,
类型=B.Name,
字段说明=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 sysproperties G On A.ID=G.ID And A.colid=G.smallid
--Where D.Name= 'tblCust '