在代码里调用一个没能传参数的存储过程时,报错!
代码是
with TStoredProc.Create(nil) do
try
ConnectionString := 'DATABASEURL=Biz:HAJ_DSDSEZHAJ_YWDB.Database';
StoredProcName := 'TESTPROC';
Execute;
finally
Free;
end;
存储过程是
create or replace procedure TestProc is
li_count integer;
ls_ndm varchar2(12);
ls_nmc varchar2(80);
begin
for s_aj in (select * from vw_aj_xtxx where ajbh is not null) loop
li_count :=0;
select count(*) into li_count from t_aj_ys where ajbh=s_aj.ajbh;
if li_count<=0 then
delete from vw_aj_xtxx where ajbh=s_aj.ajbh;
commit;
end if;
end loop;
end TestProc;