Oracle 错误日志表及异常处理包详解【源码】

最新推荐文章于 2024-04-19 02:52:17 发布

鱼丸丶粗面

最新推荐文章于 2024-04-19 02:52:17 发布

阅读量668

点赞数

分类专栏： Oracle 文章标签：异常处理包

本文链接：https://blog.csdn.net/qq_34745941/article/details/106395753

版权

Oracle 专栏收录该内容

150 篇文章 145 订阅

订阅专栏

文章目录

1 概述
2 效果演示
3 源码

1 概述

1. 目的：'快速定位程序异常'

2. 包处理的核心思想：'自治事务' -- 自治事务的 "提交、回滚" 与 主事务 之间互不影响

3. 错误异常记录逻辑大体一致，此处记录，方便需要使用时复制、粘贴

4. 验证思路：通过执行报错的过程，观察 '程序执行结果' 和 '日志表' 数据插入情况

2 效果演示

程序执行截图：
在这里插入图片描述

日志表查询截图：
在这里插入图片描述

3 源码

说明：
1. 测试中，共有 2 个用户 -- 模拟实际开发场景
   (1) odsdata: 存放业务数据
   (2) odscde : 执行具体操作
   -- 为了方便测试，也可以去掉所有 '属主 owner'

3.1 错误日志表

CREATE TABLE odsdata.ods_program_error_log (
  error_log_id        VARCHAR2(10) NOT NULL, -- CONSTRAINT pk_opel_error_log_id PRIMARY KEY
  owner               VARCHAR2(30),
  package_name        VARCHAR2(30),
  procedure_name      VARCHAR2(30),
  error_comment       VARCHAR2(1000),
  error_backtrace     VARCHAR2(400),
  error_stack         VARCHAR2(4000),
  call_stack          VARCHAR2(4000),
  error_date          DATE NOT NULL,
  oracle_execute_user VARCHAR2(50),
  um_id               VARCHAR2(50)
);

COMMENT ON TABLE odsdata.ods_program_error_log IS '程序错误日志表';
COMMENT ON COLUMN odsdata.ods_program_error_log.error_log_id IS '错误日志id';
COMMENT ON COLUMN odsdata.ods_program_error_log.owner IS '属主';
COMMENT ON COLUMN odsdata.ods_program_error_log.package_name IS '包名';
COMMENT ON COLUMN odsdata.ods_program_error_log.procedure_name IS '过程名';
COMMENT ON COLUMN odsdata.ods_program_error_log.error_comment IS '错误备注';
COMMENT ON COLUMN odsdata.ods_program_error_log.error_backtrace IS '错误跟踪';
COMMENT ON COLUMN odsdata.ods_program_error_log.error_stack IS '错误堆栈';
COMMENT ON COLUMN odsdata.ods_program_error_log.call_stack IS '调用堆栈';
COMMENT ON COLUMN odsdata.ods_program_error_log.error_date IS '错误时间';
COMMENT ON COLUMN odsdata.ods_program_error_log.oracle_execute_user IS 'oracle执行用户';
COMMENT ON COLUMN odsdata.ods_program_error_log.um_id IS '操作人员um账号';

GRANT SELECT, INSERT, UPDATE ON odsdata.ods_program_error_log TO odscde;

3.2 异常处理包

扩展：Oracle 序列详解（sequence）

package：

CREATE OR REPLACE PACKAGE odscde.pkg_ods_error_handle IS
  --*************************************************
  --功能说明:  错误日志
  --参数说明:  i_procedure_name  程序名
  --          i_error_comment   错误备注（手工添加的）
  --调用函数:
  --修改记录： create by YoYo 2020-12-17
  --*************************************************
  PROCEDURE exception_handle(i_procedure_name IN VARCHAR2,
                             i_error_comment  IN VARCHAR2);
END pkg_ods_error_handle;

package body：

CREATE OR REPLACE PACKAGE BODY odscde.pkg_ods_error_handle IS
  --*************************************************
  --功能说明:  错误日志
  --参数说明:  i_procedure_name  程序名
  --          i_error_comment   错误备注（手工添加的）
  --调用函数:
  --修改记录： create by YoYo 2020-12-17
  --*************************************************
  PROCEDURE exception_handle(i_procedure_name IN VARCHAR2,
                             i_error_comment  IN VARCHAR2) IS
    PRAGMA AUTONOMOUS_TRANSACTION; -- !!! 自治事务
    v_log_info odsdata.ods_program_error_log%ROWTYPE;
  BEGIN
    v_log_info.error_log_id        := '1'; -- 异常错误id（一般是 "获取序列号"，此处仅演示）
    v_log_info.procedure_name      := i_procedure_name; -- 程序名
    v_log_info.error_comment       := i_error_comment;
    v_log_info.oracle_execute_user := sys_context('USERENV', 'SESSION_USER'); -- oracle执行用户
    v_log_info.um_id               := nvl(sys_context('USERENV', 'OS_USER'),
                                          USER); -- 操作人员um账号
    v_log_info.error_backtrace     := dbms_utility.format_error_backtrace; -- 错误跟踪
    v_log_info.error_stack         := dbms_utility.format_error_stack; -- 错误堆栈
    v_log_info.call_stack          := dbms_utility.format_call_stack; -- 调用堆栈
    v_log_info.error_date          := SYSDATE;
  
    -- 可选列
    ---- 包属主
    v_log_info.owner := substr(v_log_info.error_backtrace,
                               instr(v_log_info.error_backtrace, '"', 1) + 1,
                               (instr(v_log_info.error_backtrace, '.', 1) -
                               instr(v_log_info.error_backtrace, '"', 1) - 1));
    ---- 包名
    v_log_info.package_name := substr(v_log_info.error_backtrace,
                                      instr(v_log_info.error_backtrace,
                                            '.',
                                            1) + 1,
                                      (instr(v_log_info.error_backtrace,
                                             '"',
                                             1,
                                             2) - instr(v_log_info.error_backtrace,
                                                         '.',
                                                         1) - 1));
  
    -- 插入数据
    INSERT INTO odsdata.ods_program_error_log
      (error_log_id,
       owner,
       package_name,
       procedure_name,
       error_comment,
       error_backtrace,
       error_stack,
       call_stack,
       error_date,
       oracle_execute_user,
       um_id)
    VALUES
      (v_log_info.error_log_id,
       v_log_info.owner,
       v_log_info.package_name,
       v_log_info.procedure_name,
       v_log_info.error_comment,
       v_log_info.error_backtrace,
       v_log_info.error_stack,
       v_log_info.call_stack,
       v_log_info.error_date,
       v_log_info.oracle_execute_user,
       v_log_info.um_id);
  
    COMMIT;
  END exception_handle;
END pkg_ods_error_handle;

3.3 测试程序

演示报错：违反唯一性约束

stu_info：

CREATE TABLE odsdata.stu_info (
  sno   NUMBER(10) CONSTRAINT pk_si_sno PRIMARY KEY,
  sname VARCHAR2(50) NOT NULL
);

GRANT SELECT, INSERT, UPDATE ON odsdata.stu_info TO odscde;

INSERT INTO odsdata.stu_info(sno, sname) VALUES(1, '瑶瑶');
COMMIT;

package:

CREATE OR REPLACE PACKAGE odscde.pkg_ods_error_test AS
  PROCEDURE ods_error_test(o_flag    OUT VARCHAR2,
                           o_message OUT VARCHAR2);
END pkg_ods_error_test;

package body：

CREATE OR REPLACE PACKAGE BODY odscde.pkg_ods_error_test AS
  PROCEDURE ods_error_test(o_flag    OUT VARCHAR2,
                           o_message OUT VARCHAR2) IS
    i_procedure_name VARCHAR2(30) := 'ods_error_test';
  BEGIN
    INSERT INTO odsdata.stu_info (sno, sname) VALUES (1, '瑶瑶');
    COMMIT;
  
    o_flag    := 'Y';
    o_message := '执行成功！';
  EXCEPTION
    WHEN OTHERS THEN
      o_flag    := 'N';
      o_message := '执行失败！';
      pkg_ods_error_handle.exception_handle(i_procedure_name => i_procedure_name,
                                            i_error_comment  => '' -- 关键入参、出参
                                            );
  END ods_error_test;
END pkg_ods_error_test;