关于adoquery的问题 (100分)

  • 主题发起人 主题发起人 hanhongfei
  • 开始时间 开始时间
H

hanhongfei

Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个查询客户销售情况的表单,下面是程序的一段代码:
with datamodulekehu.adoquery do
begin
close;
sql.Clear ;
sql.add('select sum(shuliang) as sl,sum(jine) as je from zouhuo');
sql.add('where khmc=:p1');
if checkbox1.checked=true then sql.add(' and nian=:p2');
if checkbox2.checked=true then sql.add(' and yue=:p3');
Parameters.parambyname('p1').value:=trim(edit1.text);
if checkbox1.checked=true then
Parameters.parambyname('p2').value:=strtofloat(trim(edit2.text));
if checkbox2.checked=true then
Parameters.parambyname('p3').value:=strtofloat(trim(edit3.text));
try
open;
except
execsql;
end;
edit4.text:=fieldbyname('sl').asstring;
edit5.text:=fieldbyname('je').asstring;
end;
//表格显示//
with datamodulekehu.adoqueryzouhuo do
begin
close;
sql.clear;
sql.add('select * from zouhuo');
sql.add('where khmc=:p1');
if checkbox1.checked=true then sql.add(' and nian=:p2');
if checkbox2.checked=true then sql.add(' and yue=:p3');
Parameters.parambyname('p1').value:=trim(edit1.text);
if checkbox1.checked=true then
Parameters.parambyname('p2').value:=strtofloat(trim(edit2.text));
if checkbox2.checked=true then
Parameters.parambyname('p3').value:=strtofloat(trim(edit3.text));
try
open;
except
execsql;
end;
end;
当查询时为空(既没有业务发生时),在查询别的客户时出错!提示eof或bof 有一为空
盼望回复!!![:(][:(]
代码:
我的ado已经是2.7(在微软网站下载的)
 
你需要下载一个ado升级包,在网上搜索一下就可以找到
 
升级ADO。
 
给D6打上ADO补丁。
 
D5的话,打ADO的补丁,borland的。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
2K
import
I
I
回复
0
查看
3K
import
I
后退
顶部