请问各位大哥大姐们: 在数据库中在有若干个字段,如何在TMemo中输出所有字段的字段名、字段类型、字段长度??? 小弟先行谢过了.
解决方案 »
- 如何获取某一个程序的启动参数?
- 为什么我的fastreport没有newpage?
- 在CXgrid中排序后选择某行获取到的值不是显示的该行的值
- 急!!mdi窗体排列
- 控件问题呀?不知道有没有能解决
- QR中实现套打,为什么预览数据都是正常,却只能打印部分数据?在线等,谢谢
- fastreport 中怎么打印指定DBGRID中的内容
- 请问如何数出test中有多少个'-',test:=aaa-aaaaa-aaa,test是个变量哦
- [求助]delphi与sql server 2000用BDE方式怎么连接
- xp控件那里寻,不是那种officeXp控件而是那种类xp按钮什么的...
- 有顾问的帮忙,问题解决,高兴ing....散分
- 如何控制EXECL画饼图?
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='orders' --如果只查询指定表,加上此条件
order by a.id,a.colorder
您还有没有更好的办法.
谢谢.
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Query1.Open;
for i:=0 to Query1.FieldCount-1 do
Memo1.Lines.Add(Query1.Fields[i].FieldName+':'+GetEnumName(TypeInfo(TFieldType),Integer(Query1.Fields[i].DataType))+':'+IntToStr(Query1.Fields[i].DataSize));
Query1.Close;
end;