Oracle存储过程中的异常处理

[转]Oracle存储过程中的异常处理

                                      

1.问题来源
Oracle中可以用dbms_output.put_line来打印提示信息，但是很容易缓冲区就溢出了。
可以用DBMS_OUTPUT.ENABLE(1000000);来设置缓冲区的大小。
但是有大小，就有可能再溢出（程序写得太烂，错误不断，不好意思）。
于是想把异常信息写到一个表中。
2.建表
这个容易
create table wErrorLog
(
  procedure_name varchar2(50) not null
 ,err_msg        varchar2(255) not null
 ,sys_err_code   varchar2(10) not null
 ,sys_err_msg   varchar2(1000) not null
 ,create_time     date         not null
);
comment on table wErrorLog is 'log表,用于记录存储过程的错误';
comment on column wErrorLog.procedure_name is '过程名,出错的存储过程或函数';
comment on column wErrorLog.err_msg is '自定义出错信息';
comment on column wErrorLog.sys_err_code is 'Oracle系统的出错代码';
comment on column wErrorLog.sys_err_msg is 'Oracle系统的出错信息';
comment on column wErrorLog.create_time is '错误发生时间';
3.存储过程
CREATE OR REPLACE PROCEDURE prc_err_log
(
 i_procedure_name Varchar2
,i_err_msg        Varchar2
)
--写日志的过程,Albert Song 2005-06-28
--注意本过程没有进行commit或rollback操作
--用法
--Exception
--   WHEN OTHERS
--   Then
--      rollbak;
--      prc_err_log('prc_err_log','写日志表错误');
--      commit;
As
v_sqlcode Varchar(10);
v_sqlerrm Varchar(1000);
Begin
  v_sqlcode:=Sqlcode;
  v_sqlerrm:=Sqlerrm;
  Insert Into wErrorLog Values(i_procedure_name,i_err_msg,v_sqlcode,v_sqlerrm,Sysdate);
  Exception
   WHEN OTHERS
   Then
      v_sqlcode:=Sqlcode;
      v_sqlerrm:=Sqlerrm;
      Insert Into wErrorLog Values('prc_err_log','写日志表错误',v_sqlcode,v_sqlerrm,Sysdate);
END;
4.使用
create or replace procedure prc_test
As
v_data varchar2(255);
Begin
  Insert Into wErrorLog Values('prc,'错误','test','test',Sysdate);
  Select err_msg Into v_data from wErrorLog  where err_msg='no err msg';
  Exception
  When Others Then
  Rollback;
  prc_err_log('prc_test','测试prc_err_log');
  Commit;
  
end ;
5.测试
exec prc_test;
select * from wErrorLog;
6.说明
为什么不能在prc_err_log中commit？
目的是可以用在这样的地方
create or replace procedure prc_test_transaction
As
v_in Varchar2(255);
begin
  Insert Into testsql Values('11','55');
  If 1=1 Then 
  begin
            Select code Into v_in From testsql Where code='12323';
            exception
           when others  
           then 
             prc_err_log('prc_test_transaction','testsql表中不存在code为12323的记录');
      
            end;
 END IF;
 ...
 commit;
 
  Exception
   WHEN OTHERS
   Then
      rollback;
      prc_err_log('prc_err_log','出现了未知的错误');
      commit;
end ;
这种情况下，如果在第一个prc_err_log处commit会将已经执行的操作提交了。

后记：
我的目的只有一个，就是详细地记录程序的运行过程，最好是能知道哪一行程序出了异常。现在可以在err_msg里记录一些自定义的变量来跟踪程序状态了。
刚学Oracle不久，我觉得应该有更好的方法，但是我没有找到，自己也没有创造出来。
dbms_output有个new_line不知是不是可以防止缓冲区溢出呢？