Query.Close;
Query.SQL.Clear;
Query.SQL.Add('select sum()as A from table where ....');
Query.Open;
temp := Query.FieldByName('A').AsInteger;
Query.SQL.Clear;
Query.SQL.Add('select sum()as A from table where ....');
Query.Open;
temp := Query.FieldByName('A').AsInteger;
解决方案 »
- 求助--编写关于引入式HOOK API遇到的问题
- 输入框是一条线型,这是什么第三方控件还是tedit有这个属性?
- 兄弟们,一路走好,我会时常想念你们的!
- 这样的动态报表如何做?
- 散分没理由
- Mastering Delphi 6》 (由sybex 出版社出版,由Marco Cont 所写)在什么地方有电子书呀?
- 请问在delphi6中用那个控件播放swf文件
- 我在做数据库时遇到一个问题
- 程序在delphi环境下运行可以,为什么脱离delphi就不行
- delphi 如何用DLL模式开发数据库应用程序,给个exe+dll+datamoudl操作数据库简单实例
- 怎样修改普通文件夹的图标。
- 如何使用使sql语句查询返回一个结果??
Query.SQL.Clear;
Query.SQL.Add('select sum()as A from table where ....');
Query.Open;
temp := Query.FieldByName('A').AsInteger;
temp := Query.FieldByName('A').AsFloat;