6

假设我的AFTER ALTEROracle 数据库上有一个触发器,并且我重命名了某个数据库对象 ( ALTER ... RENAME TO ...)。在触发器中,如何确定数据库对象的新名称?似乎ORA_DICT_OBJ_OWNER,ORA_DICT_OBJ_NAMEORA_DICT_OBJ_TYPE函数都返回数据库对象的值。

例如:

CREATE OR REPLACE TRIGGER ADAM_BEFORE_AFTER BEFORE ALTER ON DATABASE
BEGIN
  DBMS_OUTPUT.put_line('Before alter: ' || ora_dict_obj_owner || '.' || ora_dict_obj_name || ' (' || ora_dict_obj_type || ')');
END;

CREATE OR REPLACE TRIGGER ADAM_AFTER_ALTER AFTER ALTER ON DATABASE
BEGIN
  DBMS_OUTPUT.put_line('After alter: ' || ora_dict_obj_owner || '.' || ora_dict_obj_name || ' (' || ora_dict_obj_type || ')');
END;

假设我重命名一个表:

ALTER TABLE USELESS_TABLE9 RENAME TO USELESS_TABLE10

数据库输出如下:

更改前:DEVELOPER.USELESS_TABLE9 (TABLE)
修改后:DEVELOPER.USELESS_TABLE9 (TABLE)

更新:不幸的是,我上面提供的输出不正确。输出实际上是由BEFORE DDL触发器和AFTER DDL我之前创建的触发器生成的,而不是BEFORE RENAMEandAFTER RENAME触发器生成的。我将继续调查BEFORE RENAMEAFTER RENAME触发器不触发的原因......

更新:似乎BEFORE RENAMEandAFTER RENAME触发器拒绝触发,但BEFORE ALTERandAFTER ALTER触发器确实如此。我已经相应地更新了这个问题。

4

1 回答 1

6

ALTER RENAME不会触发触发器,RENAME x TO y会。

至于您关于之前和之后名称的问题,我认为您必须解析 DDL 才能检索它们,如下所示:

CREATE OR REPLACE TRIGGER MK_BEFORE_RENAME BEFORE RENAME ON SCHEMA 
DECLARE 
  sql_text ora_name_list_t;
  v_stmt VARCHAR2(2000);
  n PLS_INTEGER; 
BEGIN  
  n := ora_sql_txt(sql_text);
  FOR i IN 1..n LOOP
   v_stmt := v_stmt || sql_text(i);
  END LOOP;

  Dbms_Output.Put_Line( 'Before: ' || regexp_replace( v_stmt, 'rename[[:space:]]+([a-z0-9_]+)[[:space:]]+to.*', '\1', 1, 1, 'i' ) );
  Dbms_Output.Put_Line( 'After: ' || regexp_replace( v_stmt, 'rename[[:space:]]+.*[[:space:]]+to[[:space:]]+([a-z0-9_]+)', '\1', 1, 1, 'i' ) );
END;

正则表达式当然可以写得更清楚,但它确实有效:

RENAME 
mktestx
TO                 mktesty;

Before: mktestx
After: mktesty

更新为了适应您更改的问题:

CREATE OR REPLACE TRIGGER MK_AFTER_ALTER AFTER ALTER ON SCHEMA 
DECLARE 
  sql_text ora_name_list_t;
  v_stmt VARCHAR2(2000);
  n PLS_INTEGER; 
BEGIN  
  n := ora_sql_txt(sql_text);
  FOR i IN 1..n LOOP
   v_stmt := v_stmt || sql_text(i);
  END LOOP;

  Dbms_Output.Put_Line( 'Before: ' || regexp_replace( v_stmt, 'alter[[:space:]]+table[[:space:]]+([a-z0-9_]+)[[:space:]]+rename[[:space:]]+to.*', '\1', 1, 1, 'i' ) );
  Dbms_Output.Put_Line( 'After: ' || regexp_replace( v_stmt, 'alter[[:space:]]+table[[:space:]]+.*to[[:space:]]+([a-z0-9_]+)', '\1', 1, 1, 'i' ) );
END;
于 2009-11-27T17:55:25.833 回答