如何根据表FK关系在PL/SQL中生成DELETE语句？

Question

是否可以通过脚本/工具使用Oracle PL/SQL基于表fk关系自动生成许多删除语句？

例如:我有表:CHICKEN(CHICKEN_CODE NUMBER),并且有30个表格,其中包含我需要删除的CHICKEN_CODE的fk引用; 还有其他150个表外键链接到我需要先删除的30个表.

是否有一些工具/脚本PL/SQL可以运行,以便根据FK关系为我生成所有必要的删除语句？

(顺便说一句,我知道有关关系的级联删除,但请注意:我不能在我的生产数据库中使用它,因为它很危险!)

我正在使用Oracle DataBase 10G R2.

请注意这个:

从SQL 2008中的外键关系生成删除语句？

另一个用户刚刚在SQL SERVER 2008中编写过,任何人都可以转换为Oracle 10G PL/SQL？我不能...... :-(

请假设V_CHICKEN和V_NATION是从根表中选择要删除的CHICKEN的条件:条件是:"根表上的COD_CHICKEN = V_CHICKEN和COD_NATION = V_NATION".

Answer 1

(我的第一个答案变得太长而且很难编辑,它得到了社区维基,这真的很烦人.这是脚本的最新版本.)

此脚本尝试通过递归执行级联删除.当存在循环引用时,它应该避免无限循环.但它要求所有循环引用约束都具有ON DELETE SET NULL或ON DELETE CASCADE.

CREATE OR REPLACE PROCEDURE delete_cascade(
    table_owner          VARCHAR2,
    parent_table         VARCHAR2,
    where_clause         VARCHAR2
) IS
    /*   Example call:  execute delete_cascade('MY_SCHEMA', 'MY_MASTER', 'where ID=1'); */

    child_cons     VARCHAR2(30);
    parent_cons    VARCHAR2(30);
    child_table    VARCHAR2(30);
    child_cols     VARCHAR(500);
    parent_cols    VARCHAR(500);
    delete_command VARCHAR(10000);
    new_where_clause VARCHAR2(10000);

    /* gets the foreign key constraints on other tables which depend on columns in parent_table */
    CURSOR cons_cursor IS
        SELECT owner, constraint_name, r_constraint_name, table_name, delete_rule
          FROM all_constraints
         WHERE constraint_type = 'R'
           AND delete_rule = 'NO ACTION'
           AND r_constraint_name IN (SELECT constraint_name
                                       FROM all_constraints
                                      WHERE constraint_type IN ('P', 'U')
                                        AND table_name = parent_table
                                        AND owner = table_owner)
           AND NOT table_name = parent_table; -- ignore self-referencing constraints


    /* for the current constraint, gets the child columns and corresponding parent columns */
    CURSOR columns_cursor IS
        SELECT cc1.column_name AS child_col, cc2.column_name AS parent_col
          FROM all_cons_columns cc1, all_cons_columns cc2
         WHERE cc1.constraint_name = child_cons
           AND cc1.table_name = child_table
           AND cc2.constraint_name = parent_cons
           AND cc1.position = cc2.position
        ORDER BY cc1.position;
BEGIN
    /* loops through all the constraints which refer back to parent_table */
    FOR cons IN cons_cursor LOOP
        child_cons   := cons.constraint_name;
        parent_cons  := cons.r_constraint_name;
        child_table  := cons.table_name;
        child_cols   := '';
        parent_cols  := '';

        /* loops through the child/parent column pairs, building the column lists of the DELETE statement */
        FOR cols IN columns_cursor LOOP
            IF child_cols IS NULL THEN
                child_cols  := cols.child_col;
            ELSE
                child_cols  := child_cols || ', ' || cols.child_col;
            END IF;

            IF parent_cols IS NULL THEN
                parent_cols  := cols.parent_col;
            ELSE
                parent_cols  := parent_cols || ', ' || cols.parent_col;
            END IF;
        END LOOP;

        /* construct the WHERE clause of the delete statement, including a subquery to get the related parent rows */
        new_where_clause  :=
            'where (' || child_cols || ') in (select ' || parent_cols || ' from ' || table_owner || '.' || parent_table ||
            ' ' || where_clause || ')';

        delete_cascade(cons.owner, child_table, new_where_clause);
    END LOOP;

    /* construct the delete statement for the current table */
    delete_command  := 'delete from ' || table_owner || '.' || parent_table || ' ' || where_clause;

    -- this just prints the delete command
    DBMS_OUTPUT.put_line(delete_command || ';');

    -- uncomment if you want to actually execute it:
    --EXECUTE IMMEDIATE delete_command;

    -- remember to issue a COMMIT (not included here, for safety)
END;