ITPub博客

首页 > 数据库 > Oracle > pl/sql for循环中处理异常不跳出循环

pl/sql for循环中处理异常不跳出循环

原创 Oracle 作者:a871544728 时间:2014-04-17 14:54:44 0 删除 编辑
在for循环内部处理异常,处理后程序继续执行                   

以下是测试程序,程序用来统计一个用户下的表信息,当表不存在时则说明在是另外一个用户的表,其中有几个表不存在。
表名都在  itsp_mapping.init_os_spec  中
                                                           
-------------------------                                   
create or replace procedure find_test
as
declare
v_tab_col_sum number(10);
v_sql varchar2(500);
tableid  number(5):=10000;
not_exists exception;
pragma exception_init(not_exists,-942);
begin
  for tname in (select coretablename from itsp_mapping.init_os_spec) loop       --取出表名      
    tableid:=tableid+1;
    begin
    v_sql:='select count(1) from rmzh.'||tname.coretablename;
    execute immediate v_sql into v_tab_col_sum;
    dbms_output.put_line(tableid||'---'||tname.coretablename||'        --rmzh---         '||v_tab_col_sum);
    exception
    when not_exists then
      if tname.coretablename in ('TB_INTF_RCGDXX','INTF_SYNC_TELANTHIS','INTF_ESBLOG','T_WORK_SHEET','CUT_WORKSHEET') then
        dbms_output.put_line(tableid||'---'||tname.coretablename||'        --not in both!!!!!!---        ');
      else
      v_sql:='select count(1) from infores.'||tname.coretablename;
      execute immediate v_sql into v_tab_col_sum;
      dbms_output.put_line(tableid||'---'||tname.coretablename||'        --infores---        '||v_tab_col_sum);
      end if;
    end;
  end loop;
  end;
                                                     

来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/28713356/viewspace-1144067/ ,如需转载,请注明出处,否则将追究法律责任。

上一篇: ORACLE WITH AS 用法
请登录后发表评论 登录
全部评论

注册时间:2013-07-08

  • 博文量
    28
  • 访问量
    140520