您现在的位置:龙卷风首页 ›› 网络编程 ›› 阅读文章

将SQL SERVER中所有表的列信息显示出来

显示数据库中的表信息

正在作一个关于SQL SERVER数据库导入Excel文件的程序,要读取数据库中的列的信息,从网上找了很多资料,终于总结出来比较理想的sql语句,执行后返回的列分别是:表名、列名、列类型、列长度、列描述、是否主键,语句如下:

SELECT SysObjects.Name as tb_name, SysColumns.Name as col_name, SysTypes.Name as col_type, SysColumns.Length as col_len, isnull(SysProperties.Value,SysColumns.Name) as col_memo,
case when SysColumns.name in
(select 主键=a.name
FROM syscolumns a
inner join sysobjects b on a.id=b.id and b.xtype='U' and b.name<>'dtproperties'
where 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
)))
and b.name=SysObjects.Name
)
then 1 else 0 end as is_key

FROM SysObjects,SysTypes,SysColumns
LEFT JOIN SysProperties ON (Syscolumns.Id = Sysproperties.Id AND
Syscolumns.Colid = Sysproperties.Smallid)

WHERE (Sysobjects.Xtype ='u' OR Sysobjects.Xtype ='v')
AND Sysobjects.Id = Syscolumns.Id AND SysTypes.XType = Syscolumns.XType
AND SysTypes.Name <> 'sysname' AND Sysobjects.Name Like '%' ORDER By SysObjects.Name, SysColumns.colid

结果如图:

Click to Open in New Window
 

作者 不见不散 本文仅代表作者观点,与龙卷风资讯网立场无关。

我来说两句

1 楼 妖精姐姐 发表于 2005-7-26 From IP: 218.18.134.3
唉,很久没来拍砖了。 因为在写1 Select Sysobjects.Name As Tb_name, Syscolumns.Name As Col_name, Systypes.Name As Col_type, Syscolumns.Length As Col_len, Isnull(Sysproperties.Value,Syscolumns.Name) As Col_memo, 2 Case When Syscolumns.Name In 3 (Select 主键=A.Name 4 From Syscolumns A 5 Inner Join Sysobjects B On A.Id=B.Id And B.Xtype='U' And B.Name<>'Dtproperties' 6 Where Exists(Select 1 From Sysobjects Where Xtype='Pk' And Name In ( 7 Select Name From Sysindexes Where Indid In( 8 Select Indid From Sysindexkeys Where Id = A.Id And Colid=A.Colid 9 ))) 10 And B.Name=Sysobjects.Name 11 ) 12 Then 1 Else 0 End As Is_key 13 14 From Sysobjects,Systypes,Syscolumns 15 Left Join Sysproperties On (Syscolumns.Id = Sysproperties.Id And 16 Syscolumns.Colid = Sysproperties.Smallid) 17 18 Where (Sysobjects.Xtype ='U' Or Sysobjects.Xtype ='V') 19 And Sysobjects.Id = Syscolumns.Id And Systypes.Xtype = Syscolumns.Xtype 20 And Systypes.Name <> 'Sysname' And Sysobjects.Name Like '%' Order By Sysobjects.Name, Syscolumns.Colid 这站长也太懒了,不完善回复系统。害的俺们都不能贴图片。弄的我的结果都显示不出来。
作者主页: 
内容/Content