752
社区成员
发帖
与我相关
我的任务
分享
alter proc sp111
( @x int,
@y int,
@z int output
)
as
begin
declare @r int
select @z=@x+@y,@r=@x-@y
select @x*1 col
union all
select @y*1 col
union all
select @z*1 col
return @r
end
integer valx,valy,valz,valr,valo;
valx=integer(sle_1.text);
valy=integer(sle_2.text);
lb_1.reset();
lb_2.reset();
declare spsub procedure for dbo.sp111
@x=:valx,@y=:valy,@z=:valz output;
execute spsub;
fetch spsub into :valz;
do while SQLCA.SQLCode=0
lb_1.additem(string(valz));
fetch spsub into :valz;
loop
fetch spsub into :valr,:valo;
sle_3.text=string(valr);
if SQLCA.sqlcode=-1 then
sle_3.text=sle_3.text+"_"+string(SQLCA.sqlerrtext);
end if
close spsub;