触发器PL / SQL中的IF语句

Question

我在Oracle中有一个存储过程，该过程通过构造SQL代码并使用Oracle的PL / SQL EXECUTE命令执行它来为所有表动态创建触发器（因为它们触发了相同的存储过程）（尽管我正在使用SQL Commander进行测试） 。 如何在触发器内正确创建if语句？ 下面是我的代码，该代码从IF语句开始的行中获取语法错误。

CREATE OR REPLACE TRIGGER "DATABASE"."TABLE_TRIGGER"
AFTER INSERT OR DELETE OR UPDATE ON TABLE
FOR EACH ROW
DECLARE
v_op VARCHAR2(20);
BEGIN

IF INSERTING THEN
  v_op := 'INSERT';
ELSIF UPDATING THEN
  v_op := 'UPDATE'; 
ELSE 
  v_op := 'DELETE';
END IF;

PKG.STORED_PROC(v_op, ' - MY_COLUMN: ' || :NEW.MY_COLUMN || '', 'MY_TABLE');

END;

这是我用于生成SQL代码的代码示例。

PROCEDURE CREATE_TRIGGERS(
            IN_TABLE_OMIT IN VARCHAR2,  -- IN_TABLE_OMIT is a list of tables to not create a trigger on, as CSV
            OUT_RESULT    OUT VARCHAR2) 
AS
    v_table_results SYS_REFCURSOR;
    v_column_results SYS_REFCURSOR;
    v_template_head VARCHAR2(512);
    v_template_body VARCHAR2(512);
    v_template_operation VARCHAR(512);
    v_template_column VARCHAR2(128);
    v_template_data VARCHAR2(1024);
    v_template_foot VARCHAR2(512);
    v_result VARCHAR2(1024);
BEGIN
    -- Create a template for each trigger
    v_template_head := 'CREATE OR REPLACE TRIGGER "MY_DB"."MY_TABLE_TRIGGER"' || chr(10);
    v_template_head := v_template_head || 'AFTER INSERT OR DELETE OR UPDATE ON MY_TABLE' || chr(10);
    v_template_head := v_template_head || 'FOR EACH ROW' || chr(10) || 'DECLARE' || chr(10) || 'v_op VARCHAR2(20);' || chr(10) || 'BEGIN' || chr(10) || chr(10);
    v_template_operation := 'IF INSERTING THEN v_op := ''INSERT''; ELSIF UPDATING THEN v_op := ''UPDATE''; ELSE v_op := ''DELETE''; END IF;' || chr(10);
    v_template_body := 'MY_DB.STORED_PROC(' || chr(10) || 'v_op,' || chr(10);
    v_template_column := ''' - MY_COLUMN: '' || :NEW.MY_COLUMN || ';
    v_template_foot := '''MY_TABLE'');' || chr(10) || chr(10) || 'END;';
    -- Insert double quotes into template
    -- Loop through each table
    FOR LOOP_TABLE IN (SELECT TABLE_NAME FROM USER_TABLES ORDER BY TABLE_NAME) LOOP
        IF INSTR(IN_TABLE_OMIT, LOOP_TABLE.TABLE_NAME) != 0 OR INSTR('AUDIT_TABLE', LOOP_TABLE.TABLE_NAME) != 0 THEN
            FOR LOOP_COLUMN IN (SELECT COLUMN_NAME FROM ALL_TAB_COLUMNS WHERE TABLE_NAME = LOOP_TABLE.TABLE_NAME) LOOP
                v_template_data := v_template_data || REPLACE(v_template_column, 'MY_COLUMN', LOOP_COLUMN.COLUMN_NAME);
            END LOOP;
            v_template_head := REPLACE(v_template_head, 'MY_TABLE', LOOP_TABLE.TABLE_NAME);
            v_template_data := v_template_data || ''''',' || chr(10);
            v_template_foot := REPLACE(v_template_foot, 'MY_TABLE', LOOP_TABLE.TABLE_NAME);
            v_result := v_template_head || v_template_operation || v_template_body || v_template_data || v_template_foot;
            v_template_data := '';
            OUT_RESULT := chr(10) || v_result;
        ELSE
            dbms_output.put_line('Searched for ' || LOOP_TABLE.TABLE_NAME || ' in ' || IN_TABLE_OMIT);
        END IF;
    END LOOP;
END; 

Answer 1

从生成的触发器语句中删除所有分号时，触发器已成功创建。