执行存储过程时出现了问题,不知如何解决,错误提示如下:"adoquery2: commandtext does not return a result set "
请高手指点一二,如何解决这个问题,谢谢
请高手指点一二,如何解决这个问题,谢谢
解决方案 »
- 三层结构中客户端调用远程方法参数传递不正确
- 如何使用Indy 的IdHTTP控件上传文件到Web服务器上?
- MD 气死我了。
- 01cn 精华(2003--2004,含软件工程,Delphi,java等等,请大家帮忙提前)
- 写了个帮助文件(.hm3或.chm类型的)怎么程序里打开,大虾帮忙,高分酬谢
- 在Delphi中如何获取cpu序列号?
- delphi编辑器界面设置问题
- access update问题
- 如何将实例化的类传给一个过程?在线等....
- 资源文件调用错误
- 高手!!!!!!!!!管道运行dos程序的问题。
- 如何对excelworksheet.cell.item[2,2]单元格的背景设置颜色?
var
sqlstr,sql:string;
i:integer;
begin
sqlstr:='select telnum from feemanger group by telnum having count(lostdate)>3 and cast(sum(lostfee)as int(8))>3000';
// datediff(month,cast(cast(lostdate as varchar(8))+''01'' as datetime),getdate())
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sqlstr);
adoquery1.open;
for i:=1 to adoquery1.RecordCount-1 do
begin
sql:= 'exec adduser '''+ adoquery1.FieldByName('telnum').AsString+'''';
adoquery2.close;
adoquery2.SQL .Clear ;
adoquery2.sql.Add(sql);
adoquery2.ExecSQL ;
adoquery2.Open ;
adoquery2.Next ;
end;
end;
//存储过程定义如下;
{procedure adduser
@tel varchar(30)
as
insert into sysforbiduser(telnum) values (@tel)}//出现的错误提示如下;commandtext does not return a result set
begin
sql:= 'exec adduser '''+ adoquery1.FieldByName('telnum').AsString+'''';
adoquery2.close;
adoquery2.SQL .Clear ;
adoquery2.sql.Add(sql);
adoquery2.ExecSQL ;
adoquery2.Open ; ////这是要作什么的。
adoquery2.Next ;
end;
adoquery2.Open ;
这里有错