Oracle级联删除yu级联更新

苗朗

　　SQL与ORACLE的外键约束--级联删除
　　最近软件系统中要删除一条记录,就要关联到同时删除好多张表,他们之间还存在着约束关系.所以考虑到在创建表时加上约束关系,具体如下:
　　SQL的外键约束可以实现级联删除与级联更新;
　　ORACLE则只充许级联删除。
　　SQL级联删除与级联更新使用格式：
CREATE TABLE A001（ID INT PRIMARY KEY，NAME VARCHAR（20））
CREATE TABLE A002（ID INT REFERENCES A001（ID）ON DELETE CASCADE ON UPDATE CASCADE，AGE TINYINT）
　　ORACLE级联删除使用格式：
CREATE TABLE A001（ID INT PRIMAY KEY，NAME VARCHAR2（20））
CREATE TABLE A002（ID INT REFERENCES A001（ID）ON DELETE CASCADE，AGE NUMBER（2，0））
　　
--------------
CREATE TABLE groups
(
id VARCHAR2(16) CONSTRAINT pk_groupid PRIMARY KEY,
name VARCHAR2(32),
description VARCHAR2(50)
)
TABLESPACE userspace;
　　
CREATE TABLE usringrp
(
group_id VARCHAR2(16) CONSTRAINT fk_uing_grpid
REFERENCES groups(id)
ON DELETE CASCADE,
user_id VARCHAR2(16)
)
TABLESPACE userspace;
　　---------------
PowerDesigner
参照完整性约束
　　
限制（Restrict）。不允许进行修改或删除操作。若修改或删除主表的主键时，如果子表中存在子记录，系统将产生一个错误提示。这是缺省的参照完整性设置。
置空(Set Null)。如果外键列允许为空，若修改或删除主表的主键时，把子表中参照的外键列设置为空值（NULL）。
置为缺省(Set Default)。如果指定了缺省值，若修改或删除主表的主键时，把子表中参照的外键设置为缺省值（Default）。
级联(Cascade)。把主表中主键修改为一个新的值时，相应修改子表中外键的值；或者删除主表中主键的记录时，要相应删除子表中外键的记录。
　　
　　----------------------------------------------------------------------------------------------------------------------------------
     
　　触发器：就像程序里的goto一样，要谨慎使用。优点是可以在不改变源码的情况下使用来实现某些功能；缺点是可控性差。
　　我平时比较少用触发器，主要是因为程序逻辑不对的时候不容易发现错误，有时数据量大了也可能产生性能上的问题，但这个东西总有用武之地，在很多场合还是会起到巨大的作用。
      这两天就遇到一个问题，有两张表的一个字段需要进行同步更新，也就是A表修改时要把对应的B表的记录字段修改，反过来B表修改时也要把A表的修改，保持两边数据的一个同步，这个可以在前台很容易的实现，但开发人员不想修改代码了，就考虑在后台用trigger实现。
     功能很简单，但在实现时遇到一个问题，就是A上的DML触发了上面的TRIGGER，然后这个TRIGGER去更新B表，这样
就会触发B表上的触发器，而B表上的TRIGGER又会更新A表，这样就迭代触发，没有结束了，也就是会产生变异表（mutating）
     我不知道ORACLE的触发器是否有属性来限制这种情况的发生，但以前做SQL SERVER时知道有种Instaed of的触发器，他表示当DML启动他后，他将以TRIGGER里的代码来代替这个DML动作，也就是DML不会真正的执行，只会启动INSTEAD TRIGGER，最终执行的是TRIGGER里面的编码。
     查看了Docs，看到ORACLE也支持这个类型的触发器，但这个只能建立到视图上，不能基于表建立，我要的功能肯定是可以实现的，在这里我把原表进行了rename，引如了两张视图，名字就是以前的表名，这样对于他们前台应用就做了个
透明的切换，然后在两个视图上建立INSTEAD触发器，将任何两个视图上的更新都传播到后面的两个基表，这样不管你更新那个视图，我都可以捕获到数据，以代码在后面更新，也不存在互相触发，因为触发器修改的对象已经转移到表了，而此时表上是没有trigger的，呵呵！！！
　　过程如下
　　--创建测试表
SQL> create table mytest1(row_num number,row_name varchar2(50));
　　表被创建
　　SQL> create table mytest2(row_num number,row_name varchar2(50));
　　表被创建
　　--测试数据
SQL> INSERT INTO MYTEST1 VALUES(1,'Fhhh!!!');
　　1 行 已插入
　　SQL> INSERT INTO MYTEST2 VALUES(1,'Watch your mouth!!!');
　　1 行 已插入
　　SQL>COMMIT;
　　提交完成
　　
　　--先在一个表上创建触发器
SQL> CREATE OR REPLACE TRIGGER TRI_TEST1
2 BEFORE UPDATE
3 ON MYTEST1
4 FOR EACH ROW
5 DECLARE
6 lv_new VARCHAR2(20);
7 lv_parent VARCHAR2(20);
8 BEGIN
9 lv_new := :new.row_name;
10 lv_parent := :OLD.row_name;
11 IF lv_new <> lv_parent THEN
12 UPDATE MYTEST2
13 SET ROW_NAME = :NEW.ROW_NAME
14 WHERE ROW_NUM = :NEW.ROW_NUM;
15 END IF;
16 DBMS_OUTPUT.PUT_LINE(lv_new || lv_parent);
17 END;
18 /
触发器被创建
　　
　　--测试更新
SQL> set serveroutput on
SQL> UPDATE MYTEST1 SET ROW_NAME = 'DO it!!!';
DO it!!! Fhhhh!!!
　　1 行 已更新
　　--更新成功
SQL> SELECT * FROM MYTEST2;
　　ROW_NUM ROW_NAME
---------- --------------------------------------------------
1 DO it!!!
　　
　　--另外张表创建触发器
SQL> CREATE OR REPLACE TRIGGER TRI_TEST2
2 BEFORE UPDATE
3 ON MYTEST2
4 FOR EACH ROW
5 DECLARE
6 lv_new VARCHAR2(20);
7 lv_parent VARCHAR2(20);
8 BEGIN
9 lv_new := :new.row_name;
10 lv_parent := :OLD.row_name;
11 IF lv_new <> lv_parent THEN
12 UPDATE MYTEST1
13 SET ROW_NAME = :NEW.ROW_NAME
14 WHERE ROW_NUM = :NEW.ROW_NUM;
15 END IF;
16 DBMS_OUTPUT.PUT_LINE(lv_new || lv_parent);
17 END;
18 /
　　
　　--产生了变异表，更新失败
SQL> update mytest1 set row_name = 'mouthkkkkkoo';
　　update mytest1 set row_name = 'mouthkkkkkoo'
　　ORA-04091: table MYTEST1 is mutating, trigger/function may not see it
ORA-06512: at "TRI_TEST2", line 8
ORA-04088: error during execution of trigger 'TRI_TEST2'
ORA-06512: at "TRI_TEST1", line 8
ORA-04088: error during execution of trigger 'TRI_TEST1'
　　
--更新失败
SQL> update mytest2 set row_name = 'mouthkkkkkoo';
　　update mytest2 set row_name = 'mouthkkkkkoo'
　　ORA-04091: table MYTEST2 is mutating, trigger/function may not see it
ORA-06512: at "TRI_TEST1", line 8
ORA-04088: error during execution of trigger 'TRI_TEST1'
ORA-06512: at "TRI_TEST2", line 8
ORA-04088: error during execution of trigger 'TRI_TEST2'
　　--删除触发器
SQL> drop trigger TRI_TEST2;
　　触发器被删掉
　　SQL> drop trigger TRI_TEST1;
　　触发器被删掉
　　
--创建视图
SQL> CREATE VIEW V_TEST1 AS SELECT * FROM MYTEST1;
　　视图被创建
　　SQL> CREATE VIEW V_TEST2 AS SELECT * FROM MYTEST2;
　　视图被创建
　　--基于视图创建Instead触发器
SQL> CREATE OR REPLACE TRIGGER TRI_TEST1
2 INSTEAD OF UPDATE
3 ON V_TEST1
4 FOR EACH ROW
5 DECLARE
6 lv_new VARCHAR2(20);
7 lv_parent VARCHAR2(20);
8 BEGIN
9 lv_new := :new.row_name;
10 lv_parent := :OLD.row_name;
11 IF lv_new <> lv_parent THEN
12 UPDATE MYTEST2
13 SET ROW_NAME = :NEW.ROW_NAME
14 WHERE ROW_NUM = :NEW.ROW_NUM;
15 UPDATE MYTEST1
16 SET ROW_NAME = :NEW.ROW_NAME
17 WHERE ROW_NUM = :NEW.ROW_NUM;
18 END IF;
19 DBMS_OUTPUT.PUT_LINE(lv_new || lv_parent);
20 END;
21 /
触发器被创建
　　SQL> CREATE OR REPLACE TRIGGER TRI_TEST2
2 INSTEAD OF UPDATE
3 ON V_TEST2
4 FOR EACH ROW
5 DECLARE
6 lv_new VARCHAR2(20);
7 lv_parent VARCHAR2(20);
8 BEGIN
9 lv_new := :new.row_name;
10 lv_parent := :OLD.row_name;
11 IF lv_new <> lv_parent THEN
12 UPDATE MYTEST2
13 SET ROW_NAME = :NEW.ROW_NAME
14 WHERE ROW_NUM = :NEW.ROW_NUM;
15 UPDATE MYTEST1
16 SET ROW_NAME = :NEW.ROW_NAME
17 WHERE ROW_NUM = :NEW.ROW_NUM;
18 END IF;
19 DBMS_OUTPUT.PUT_LINE(lv_new || lv_parent);
20 END;
21 /
触发器被创建
　　--功能已经实现
SQL> update v_test1 set row_name = 'I with you!!!';
　　1 行 已更新
　　SQL> commit;
　　提交完成
　　SQL> select * from v_test2;
　　ROW_NUM ROW_NAME
---------- --------------------------------------------------
1 I with you!!!
　　
SQL> update v_test2 set row_name = 'Don't me!!!';
　　1 行 已更新
　　SQL> commit;
　　提交完成
　　SQL> select * from v_test1;
　　ROW_NUM ROW_NAME
---------- --------------------------------------------------
1 Don't me!!!