dbtext1.value:=query2.fieldbyname('abc').FieldName.value;
解决方案 »
- delphi 有没有保存一条数据库表记录的变量
- 我选用的数据库是通过ODBC来连接的,但总是要输入密码。请问,能把这个密码保存吗?
- 服务器运行时报错“由于系统缓冲区空间不足或列队已满,不能执行套接字上的操作。” 是什么原因
- delhpi的那里下载多媒体演示教程
- 窗口无法正常显示
- adoQuery中不能捕获到存储过程中的错误,为什么啊?
- 怎么为树节点添加右击弹出菜单??我吃完饭回来马上结贴!!!!
- 急,Uses包含tcpip,提示找不到tcpip.dcu,在线等待
- 关于DBgrid的问题??怎么样去解决那??
- 关于右键弹出菜单:为什么菜单弹出的位置总是和我的鼠标离得十万八千里?
- 有做过IC卡的朋友进来
- 请赐教!
query2.SQL.Clear;
query2.SQL.add('select sum(总价),abc from ruku');
query2.Open;
dbtext1.DataField:=query2.fieldbyname('abc').Value;
dbtext.datasource := datasourec1 ;
用个TEdit控件
Edit1.text := IntToStr(query2.fields[0].AsInteger);
你的字段中有空值
如果你使用的是oracle
那么这样做:
select sum(nvl(总价,0)),abc from ruku
其他的话你自己看看帮助啦
procedure Tform_user_list.wwDBEdit1Change(Sender: TObject);
begin
with wwquery2 do
begin
close;
sql.clear;
sql.add('select sum(bill_ar) from bill');
sql.add('where bill_ar>0 and acct_num like:"acct_numt"');
parambyname('acct_numt').asstring := wwdbedit1.text;
prepare;
open;
end;
label29.caption:=IntToStr(wwquery2.fieldbyname('bill_ar').AsInteger);
end;
with wwquery2 do
begin
close;
sql.clear;
sql.add('select sum(bill_ar) from bill');
sql.add('where bill_ar>0 and acct_num like:"acct_numt"');
parambyname('acct_numt').asstring := wwdbedit1.text;
prepare;
open;
label29.caption := IntToStr(WWquery2.fields[0].AsInteger);
end;
我用你的方法为何显示的数字是0,字段里有数字呀!