使用Trigger實現兩個Table同步更新資料

建立一個Trigger ,  使  A_TEST 中插入或更新或刪除一筆資料， A_TEST_LOG 表中同步作業，保持兩個Table中的資料一致 。 

 

CREATE TABLE TONY.A_TEST
(
  TCO_NO  VARCHAR2(25 BYTE)                     NOT NULL,
  LOC     VARCHAR2(50 BYTE)                     NOT NULL,
  QTY     VARCHAR2(6 BYTE)
)
TABLESPACE TEST_DATA
PCTUSED    0
PCTFREE    10
INITRANS   1
MAXTRANS   255
STORAGE    (
            INITIAL          1M
            NEXT             1M
            MINEXTENTS       1
            MAXEXTENTS       2147483645
            PCTINCREASE      0
            BUFFER_POOL      DEFAULT
           )
LOGGING
NOCOMPRESS
NOCACHE
NOPARALLEL
MONITORING; 

 

CREATE TABLE TONY.A_TEST_LOG
(
  TCO_NO  VARCHAR2(25 BYTE)                     NOT NULL,
  LOC     VARCHAR2(50 BYTE)                     NOT NULL,
  QTY     VARCHAR2(6 BYTE)
)
TABLESPACE TEST_DATA
PCTUSED    0
PCTFREE    10
INITRANS   1
MAXTRANS   255
STORAGE    (
            INITIAL          1M
            NEXT             1M
            MINEXTENTS       1
            MAXEXTENTS       2147483645
            PCTINCREASE      0
            BUFFER_POOL      DEFAULT
           )
LOGGING
NOCOMPRESS
NOCACHE
NOPARALLEL
MONITORING;

 

 

CREATE OR REPLACE TRIGGER TONY.Trig_test 
    AFTER INSERT  OR  UPDATE OR DELETE  ON  TONY.A_TEST
    REFERENCING NEW AS NEW OLD AS OLD
    FOR EACH ROW
DECLARE
sqlstr varchar2(200);

BEGIN

  IF INSERTING THEN
    INSERT INTO TONY.A_TEST_LOG (Tco_No, Loc, Qty)
    VALUES   (:NEW.Tco_No, :NEW.Loc, :NEW.Qty);
  ELSIF UPDATING THEN
        UPDATE TONY.A_TEST_LOG
        SET    Tco_No=:NEW.Tco_No, Loc=:NEW.Loc, Qty=:NEW.Qty 
        WHERE  Tco_No=:OLD.Tco_No ; 
  ELSIF DELETING THEN
       DELETE FROM TONY.A_TEST_LOG  WHERE  Tco_No=:OLD.Tco_No ; 
  END IF;

EXCEPTION
  WHEN OTHERS THEN
    NULL;
END;
/