如题
解决方案 »
- delphi中的字符串是以null空字符做为结尾标记吗?
- 关于delphi内存泄漏的问题
- 各位大大,哪儿有BusinessSkin用的皮肤下载啊?还是要自己做的? 急啊!!
- 有什么办法用程序实现禁止删除,复制,移动,文件改名和下载.
- 还是memo写入文本的问题,大家帮忙
- 怎样对放在FTP服务器上的数据库进行查询、添加删除等操作?
- 在delphi的tidtcpserver组件中,怎么处理threads属性?
- 请问:用Delphi6+SQL Server2000开发的数据库软件如何打包成Setup安装程序
- Delphi调用c动态库 函数参数LPSTR在vc中回显正常
- 关于qrdbtext内容的分段.
- 怎么像ListView第2列写入字符?
- 我这里有录入试题的程序和代码,谁想要的话请留个Email,我发给你们
select count(*) from sysobjects where xtype = 'PK' and parent_obj = object_id(表名) and name = '字段'
count(*) >0则该字段是,否在不是
二: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 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='table_name' --如果要查询特定table,加上这句
order by a.id,a.colorder