Oracle 11g FORALL 和 BULK DELETE 错误？

Question

您能帮我解决以下问题吗：

我正在使用 Oracle Database 11g Enterprise Edition Release 11.1.0.7.0 - 64bit Production，我需要删除一个表。
由于性能原因，我尝试使用 forall 将其删除，但这无法正常工作。假设我有下表：

create table test
 (id number (4) not null,
  parent_id number(4),
  constraint id_pk primary key (id),
  constraint fk_id
  foreign key (parent_id)
  references test(id)
 );

有以下记录：

ID         PARENT_ID  
---------- ---------- 
     1           
     2          3 
     3           
     4          5 
     5           
     6          7 
     7           
     8 

对于删除，我使用以下程序：

declare
   l_idx       number;
   l_err_cnt   number;

   type tp_tab_num is table of number
      index by binary_integer;

   a_pid       tp_tab_num;

   cursor c_pid
   is
      select     id
            from test
           where id <> 4
      start with parent_id is null
      connect by prior id = parent_id
      order by level desc, id;
begin
   open c_pid;

   fetch c_pid
   bulk collect into a_pid;

   begin
      forall i in a_pid.first .. a_pid.last save exceptions

         delete from test
               where id = a_pid (i);
   exception
      when others then
         l_err_cnt := sql%bulk_exceptions.count;
   end;

   close c_pid;

   for i in 1 .. l_err_cnt loop
      l_idx := sql%bulk_exceptions (i).error_index;
      dbms_output.put_line (   'Index:' || sql%bulk_exceptions (i).error_index
                            || ' Code: ' || sql%bulk_exceptions (i).error_code
                            || ' Message: ' || sqlerrm (-sql%bulk_exceptions (i).error_code)
                            || ' Pid: ' || a_pid (l_idx)
                           );
   end loop;
end;   

forall 的问题在于，如果未从表中删除子记录（例如，由于对其他表的外键约束 - 在我们的案例中，ID 为 4 的记录已从删除游标中排除） 尽管我正在使用保存异常，但 forall 不会删除未删除的子项的父项之后的任何其他记录。

删除过程的输出是：

Index:5 Code: 2292 Message: ORA-02292: integrity constraint (.) violated - child record found Pid: 5 -- Correct: due to constraint fk_id 

Index:6 Code: 2292 Message: ORA-02292: integrity constraint (.) violated - child record found Pid: 7 -- Incorrect: child with ID = 6 is already deleted 

Index:7 Code: 2292 Message: ORA-02292: integrity constraint (.) violated - child record found Pid: 8 -- Incorrect: ID 8 has no children 

请注意，如果我使用 for 循环而不是 forall，它可以正常工作。只有 ID 4 和 5 仍未删除。

谢谢！

Answer 1

当您将约束设置为DEFERRED 时，它应该可以工作。那么它只适用于COMMIT之后。

或使用单个 DELETE 语句：

delete from test
where id =any 
   (select id
    from test
    where id <> 4
    start with parent_id is null
    connect by prior id = parent_id);

编辑：

反过来做：

DELETE FROM TEST
WHERE ID <>ALL 
   (SELECT ID
    FROM TEST
    START WITH ID = 4
    CONNECT BY ID = PRIOR parent_id);

一些注意事项：

• 我更改了CONNECT BY 子句，即从底部开始 从上到下
• <>ALL () 等于 NOT IN ()
• 您还可以使用 START WITH ID IN (4,6)