异常处理
create or replace procedure pr_test3(v_bh in varchar2,v_xx out t_hq_ryxx%rowtype) is
begin select * into v_xx from t_hq_ryxx where bianh = v_bh; if sql%found then dbms_output.put_line('查找到数据了');
else
dbms_output.put_line('未查找到数据'); end if; exception when NO_DATA_FOUND then
--dbms_output.put_line('未查找到数据'); dbms_output.put_line('SQLCODE = ' || SQLCODE);--错误代码
dbms_output.put_line('SQLERRM = ' || SQLERRM);--错误信息 when others then
dbms_output.put_line('查找到出错'); end pr_test3;
/
隐式游标
create or replace procedure pr_test4(v_bh in varchar2) is
v_xm t_hq_ryxx%rowtype;
begin
--v_xm := '106';
pr_test3(v_bh, v_xm);
dbms_output.put_line('v_xm = ' || v_xm.ruzrq || v_xm.xingm);
end pr_test4;
create or replace procedure pr_test5 is
begin update t_hq_ryxx set bum = '' where bum is null; if SQL%ROWCOUNT > 0 THEN
dbms_output.put_line('更新了' || SQL%ROWCOUNT || '条记录');
else dbms_output.put_line('更新了0条记录');
end if;
commit;
end pr_test5;
/
