Tquery可以获取一个表的数据类型吗?获取字段类型TField怎么写的,谢谢。
解决方案 »
- 怎么把一个字符串数组付值给ListView?
- richviewedit 复制网页格式不见了?
- 控件闪烁问题
- delphiv60 +Access2000中,ADOQuery中分支(IF)计算判断SQL语句如何写?
- SOCKET通信问题
- □■□■□程序分割,用DLL封装的Form如何取得主窗体的变量?□■□■
- releasecapture
- 一百分求助FLASH结束标志语句
- 在做程序员过程中,如果女朋友要你陪她,可你要工作,你该怎么办?
- 怎么控制word的最大化与最小化?
- access + adoquery 的 insert into 问题 (附代码)?
- 如何保存在DBGrid选中的多行数据,给外面使用
left join systypes b
on a.xtype=b.xusertype
where id=object_id('jobs')
/*
name name
-------------------------------------------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------------------------------------------
job_id smallint
job_desc varchar
min_lvl tinyint
max_lvl tinyint(所影响的行数为 4 行)
*/
procedure TForm1.Button1Click(Sender: TObject);
var
s: TFieldType;
begin
Memo1.Lines.Add(adoquery1.Fields[0].FieldName);
s := adoquery1.Fields[0].DataType;
case s of
ftSmallint: memo1.Lines.Add('smallint');
ftString: memo1.Lines.add('string');
ftInteger: memo1.Lines.Add('integer');
end;
{TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);
}
end;
query.fieldbyname('code').datatype就是字段的类型.
可能delphi中定义的字段类型的名称跟数据库中的类型名称有点不一样