将数据行内容的变化记入日志(第二部分)

日期： 2008-07-16 作者：Azim Fahmi 来源：TechTarget中国 英文

　　这里有关如何对数据行内容的变化记录日志的后续代码部分。 　　此问题提交于2004年10月26日 v_SINGLE_QUOTE char(1):=  chr(39);  vSep VARchar2(10); BEGIN   DBMS_OUTPUT.PUT_LINE(’create OR REPLACE TRIGGER ’ || GENERATE_TRIG_NAME(p_Table_Name));   DB……

我们一直都在努力坚持原创.......请不要一声不吭，就悄悄拿走。

我原创，你原创，我们的内容世界才会更加精彩！

【所有原创内容版权均属TechTarget，欢迎大家转发分享。但未经授权，严禁任何媒体（平面媒体、网络媒体、自媒体等）以及微信公众号复制、转载、摘编或以其他方式进行使用。】

微信公众号

TechTarget微信公众号二维码

TechTarget

官方微博

TechTarget中国官方微博二维码

TechTarget中国

电子邮件地址不会被公开。 必填项已用*标注

敬请读者发表评论，本站保留删除与本文无关和不雅评论的权力。

　　这里有关如何对数据行内容的变化记录日志的后续代码部分。

　　此问题提交于2004年10月26日


v_SINGLE_QUOTE char(1):=  chr(39);
 vSep VARchar2(10);


BEGIN
  DBMS_OUTPUT.PUT_LINE(’create OR REPLACE TRIGGER ’ || GENERATE_TRIG_NAME(p_Table_Name));
  DBMS_OUTPUT.PUT_LINE(’  AFTER update ON ’ || p_Table_Name);
  DBMS_OUTPUT.PUT_LINE(’  FOR EACH ROW’);
  DBMS_OUTPUT.PUT_LINE(’DECLARE ’);
  DBMS_OUTPUT.PUT_LINE(’  vTABLE_NAME     VARchar2(30) := ’ || v_SINGLE_QUOTE || p_Table_Name || v_SINGLE_QUOTE || ’;’);
  -- 创建 Key_Value
  DBMS_OUTPUT.PUT_LINE(’  vKEY_VALUE      VARchar2(100) ’);
  FOR c1rec IN c1(p_Table_Name) LOOP
    IF c1rec.POSITION = C1rec.LAST_POSITION THEN
      vSep:=’;’;
    ELSE
      vSep:=’||’’~’’|| ’;
    END IF;
    IF c1rec.data_type = ’DATE’ THEN
       DBMS_OUTPUT.PUT_LINE(’                  to_char(:new.’||c1rec.column_name||’,’’MM-DD-YYYY’’)’ || vSep );
    ELSIF c1rec.data_type = ’NUMBER’ THEN
       DBMS_OUTPUT.PUT_LINE(’                  to_char(:new.’||c1rec.column_name||’)’ || vSep );
    ELSE
       DBMS_OUTPUT.PUT_LINE(’                  :new.’||c1rec.column_name || vSep );
    END IF;
  END LOOP;
  DBMS_OUTPUT.PUT_LINE(’  vACTION_DATE    DATE := SYSDATE’);
  DBMS_OUTPUT.PUT_LINE(’  vUSER_NAME      VARchar2(30) := USER’);
  DBMS_OUTPUT.PUT_LINE(’BEGIN’);
  FOR c2rec IN c2(p_Table_Name) LOOP
    IF c2rec.column_id > 1 THEN
      BEGIN
        DBMS_OUTPUT.PUT_LINE(’  log_change_info (vTABLE_NAME, vKEY_VALUE, vACTION_DATE, vUSER_NAME, ’ );
        DBMS_OUTPUT.PUT_LINE(’                      ’||v_SINGLE_QUOTE||c2rec.COLUMN_NAME||v_SINGLE_QUOTE||’, :old.’||c2rec.COLUMN_NAME||’, :new.’||c2rec.COLUMN_NAME||’);’ );
      EXCEPTION
        WHEN OTHERS THEN
          dbms_output.put_line(’**** ’);
          dbms_output.put_line(’**** Error formatting column: ’||c2rec.column_ID);
          dbms_output.put_line(’**** ’);
      END;
    END IF;
  END LOOP;
  DBMS_OUTPUT.PUT_LINE(’end;’);
  DBMS_OUTPUT.PUT_LINE(’/’);
--EXCEPTION
--  WHEN OTHERS THEN
--    NULL;
END create_AUDIT_TRIG_DYNAMIC;
/

create OR REPLACE PROCEDURE log_change_info   (vTABLE_NAME    IN  VARchar2,
                            vKEY_VALUE     IN  VARchar2,
                            dACTION_DATE   IN  DATE,
                            vUSER_NAME     IN  VARchar2,
                            vCOLUMN_NAME   IN  VARchar2,
                            vOLD_VALUE     IN  VARchar2,
                            vNEW_VALUE     IN  VARchar2) IS
BEGIN
 IF (vNEW_VALUE IS NULL AND vOLD_VALUE IS NOT NULL) OR
     (vNEW_VALUE != vOLD_VALUE) OR
     (vNEW_VALUE IS NOT NULL AND vOLD_VALUE IS NULL) THEN
    insert INTO DATA_CHANGE_AUDIT
               (table_name,
                primary_key_value,
                column_name,
                action_date,
                old_value,
                new_value,
                user_name)
        VALUES (vTABLE_NAME,
                vKEY_VALUE,
                vCOLUMN_NAME,
                NVL(dACTION_DATE,SYSDATE),
                vOLD_VALUE,
                vNEW_VALUE,
                NVL(vUSER_NAME,USER));
  END IF;
END log_change_info;
/

作者

Azim Fahmi
Azim Fahmi

相关推荐