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','写日志表
错误',Sysdate); END; 4.使用 create or replace procedure prc_test As v_data varchar2(255); Begin Insert Into wErrorLog Values('prc,'
错误','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 test
sql Values('11','55'); If 1=1 Then begin Select code Into v_in From test
sql Where code='12323'; exception when others then prc_err_log('prc_test_transaction','test
sql表中不存在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不知是不是可以防止缓冲区溢出呢？ /*之前一直以为oracle的过程是没有return的,所以症结就在碰到异常
退出过程 我试过把所有异常都在前面
自定义,在前面出异常的地方,raise MyException,但是执行的时候会报错.
提示是碰到异常没得到处理. */ CREATE OR REPLACE PROCEDURE USER_CREATE ( v_recom_user varchar2,--推荐人 v_create_user varchar2,--创建者 v_balance_user varchar2,--结算者 v_manage_user varchar2,--管理者 v_reg_email varchar2,--
注册邮件 v_reg_pwd varchar2,--
注册密码 v_reg_ip varchar2,--
注册ip v_reg_date date,--
注册日期 v_user_id out number,--
用户ID v_result out varchar2 --结果返回参数 ) IS v_recom_userid number(15); v_create_userid number(15); v_balance_userid number(15); v_manage_userid number(15); v_userid number(15); v_count number(1):=0; v_isid number(15); MyException EXCEPTION; BEGIN v_result:=0; begin --检查创建者 SELECT REG_USER_ID INTO v_create_userid FROM USER_REGISTER WHERE REG_EMAIL = v_create_user; exception when no_data_found then v_result:=-601;return;--创建者帐号不存在 END; --检查推荐者 if v_recom_user is not null then begin SELECT REG_USER_ID INTO v_recom_userid FROM USER_REGISTER WHERE REG_EMAIL = v_recom_user; exception when no_data_found then v_result:=-602;return;--推荐人帐号不存在 end; end if; --检查结算者 if v_balance_user is not null then begin SELECT REG_USER_ID INTO v_balance_userid FROM USER_REGISTER WHERE REG_EMAIL = v_balance_user; exception when no_data_found then v_result:=-603;return;--结算者帐号不存在 end; END IF; --检查管理者 if v_manage_user is not null then begin SELECT REG_USER_ID INTO v_manage_userid FROM USER_REGISTER WHERE REG_EMAIL = v_manage_user; exception when no_data_found then v_result:=-604;return;--管理者帐号不存在 end; END IF; --检查
用户是否已经存在 --
自定义异常 begin SELECT COUNT(1) INTO v_count FROM USER_REGISTER WHERE REG_EMAIL = v_reg_email; if v_count = 1 then raise MyException; end if; exception when MyException then v_result:=-511;return;--重复 end; --
获取USERID begin SELECT IS_ID,IS_USER_ID INTO v_isid,v_userid FROM (SELECT IS_ID,IS_USER_ID FROM USER_ID_SELECT ORDER BY SYS_GUID()) WHERE ROWNUM = 1; exception when no_data_found then v_result:=-516;return;--
获取失败 END; SET TRANSACTION READ WRITE;-----创建事务 BEGIN --
删除已经分配的USERID DELETE USER_ID_SELECT WHERE IS_ID = v_isid; --插入
注册信息 INSERT INTO USER_REGISTER(REG_USER_ID,REG_EMAIL,REG_USER_PWD,REG_IP,REG_DATE) VALUES(v_userid,v_reg_email,v_reg_pwd,v_reg_ip,v_reg_date); EXCEPTION WHEN OTHERS THEN begin rollback;v_result:=-512; end;--RAISE_APPLICATION_ERROR(-20512,'
数据库内部
错误!'); END; v_user_id := v_userid; v_result:= 0; commit; END;
原文链接：/oracle/208153.html
