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

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

 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

结果如图：