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