在Query中可能没有完全把数据取到客户端。要获得记录数,这样:
query1.FetchAll;
然后取query1.RecordCount—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————
query1.FetchAll;
然后取query1.RecordCount—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- 有关rave的问题
- 我是菜鸟,我要请教一下delphi中两数相除的类型问题?
- TIdudpServer使用中出现的疑问,望各位大虾帮忙?
- 如何安装 QuickReport.Professional.v4.03.For.Delphi6 ?
- 请问一个关于toolbar和coolbar的用法
- 对于Paradox的数据库中,用“locate”定位的问题。困惑!
- 好难的SQL语句。请高手帮忙,我是一点办法也没有了。(在线等待)帮忙UP也给加分。
- MouseMove 事件里如何得到鼠标移动到 DBGridEh 某行某列的值?
- 请问一下
- 请问如何用代码改变TField的Default Value??Hellllp?
- 因项目需要,需修改一个DELPHI3的程序,请大家帮忙,哪里可以下载DELPHI3
- 各位指教!我用htmlhelpworkshop工具制作帮助文件中,索引号怎么创建啊?急!
sql.add('select Count(*) from tb where No=3');Open后,query1.Fields.Fields[0].AsInteger就是记录数
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————
begin
close;
sql.clear;
sql.add('select * from tb where No= :No');
params.parambyname('No').value := 3;
open;
end;
if query1.RecordCount =0 then
edit1.Text :='';
试试看
真是的,我到CSDN不久,问了几个问题,每次都是自己解决,白送了两百多分:(
不过我还是感谢大家的支持,我会给你加分的。:)