如何获取sql表的列数和列名,也值20分噢!!在线!
解决方案 »
- 关于hook一段汇编代码的问题
- 数据库中添加记录
- 安装 winxp最新更新后,我的紫光输入法居然不能用了
- ****************关于中英文对照的问题?再开帖???????????
- 求d+SQL2000开发完善的人事考勤薪资系统源码
- 关于资料行的锁定问题
- 简单问题100分相送在线等待!!1
- font.height为什么会是负值呢。
- delphi6.0的diagram页有谁使用过?介绍一下,或介绍一下那有相关资料。
- cxgridview不绑定数据源,添加数据问题.
- 急死了》》》》》做多表查询时,用什么ADO类控件的那个最好,ADOQuery还有ADODSetData,我都用过了不能查找出来
- 如何导出ORACLE数据库中某个用户的所有表结构?
select distinct sysobjects.[name] as [tblname], syscolumns.colid, syscolumns.[name] as [colname], systypes.[name] as [typename], syscolumns.prec, syscolumns.scale
from syscolumns, sysobjects, systypes
where sysobjects.id=syscolumns.id and systypes.type=syscolumns.type and sysobjects. type='u'
TABLENAME= CASE A.COLID WHEN 1 THEN F.NAME ELSE '' END,
COLNAME=A.NAME,XTYPE=A.XTYPE,TYPENAME=B.NAME,PKNAME=C.NAME,
CONAME= CASE B.XTYPE WHEN 167 THEN B.NAME+'('+LTRIM(STR(A.LENGTH))+')'
WHEN 108 THEN B.NAME+'('+LTRIM(STR(A.XPREC))+','+LTRIM(STR(A.XSCALE))+')'
ELSE B.NAME END,CANNULL= CASE A.ISNULLABLE WHEN 0 THEN 'NOT NULL' ELSE 'NULL' END,
ISKEY=CASE ISNULL(C.NAME,'') WHEN '' THEN 'NO' ELSE 'YES' END,A.ISCOMPUTED,
COMPUTEDTEXT=D.TEXT,DEFAULTVALUE=E.TEXT
FROM SYSCOLUMNS A
LEFT JOIN SYSTYPES B ON A.XTYPE=B.XTYPE
LEFT JOIN SYSINDEXES C ON A.ID=C.ID AND (C.STATUS & 64)=0 AND COLID=C.INDID
LEFT JOIN SYSCOMMENTS D ON A.ID=D.ID AND D.NUMBER=A.COLID
LEFT JOIN SYSCOMMENTS E ON E.ID=A.CDEFAULT
LEFT JOIN SYSOBJECTS F ON A.ID=F.ID AND F.XTYPE='U'
WHERE F.NAME='dtproperties'
ORDER BY F.ID,A.COLID全在这里面了,挑你想要的出来就可以了。
select distinct sysobjects.[name] as [tblname], syscolumns.colid, syscolumns.[name] as [colname]
from syscolumns, sysobjects where sysobjects.id=syscolumns.id and sysobjects.[name]='gbook'