如何从游标中获取，删除，提交

Question

我正在尝试从表中删除很多行。我想尝试将要删除的行放入游标中，然后继续对游标的每一行进行获取，删除，提交操作，直到它为空。

在下面的代码中，我们是fetching行，并将其放入TYPE。

我如何修改下面的代码以从图片中删除TYPE，而只是简单地fetch,delete,commit对光标本身进行操作即可。

    OPEN bulk_delete_dup;
    LOOP
        FETCH bulk_delete_dup BULK COLLECT INTO arr_inc_del LIMIT c_rows;

        FORALL i IN arr_inc_del.FIRST .. arr_inc_del.LAST
              DELETE FROM UIV_RESPONSE_INCOME 
              WHERE ROWID = arr_inc_del(i);

        COMMIT;
        arr_inc_del.DELETE;
        EXIT WHEN bulk_delete_dup%NOTFOUND;
    END LOOP;
    arr_inc_del.DELETE;
    CLOSE bulk_delete_dup;

Answer 1

为什么要分批提交？那只会减慢您的处理速度。除非有其他会话试图修改要删除的行，否则由于其他原因，这似乎是有问题的，最有效的方法是简单地使用单个DELETE删除数据，即

DELETE FROM uiv_response_income uri
 WHERE EXISTS( 
    SELECT 1
      FROM (<<bulk_delete_dup query>>) bdd
     WHERE bdd.rowid = uri.rowid
  )

当然，根据游标后面的查询的设计方式，可能会有更理想的书写方式。

如果您确实要消除“批量收集”（这会大大减慢该过程），则可以使用“ WHERE CURRENT OF”语法进行“删除”

SQL> create table foo
  2  as
  3  select level col1
  4    from dual
  5  connect by level < 10000;

Table created.

SQL> ed
Wrote file afiedt.buf

  1  declare
  2    cursor c1 is select * from foo for update;
  3    l_rowtype c1%rowtype;
  4  begin
  5    open c1;
  6    loop
  7      fetch c1 into l_rowtype;
  8      exit when c1%notfound;
  9      delete from foo where current of c1;
 10    end loop;
 11* end;
SQL> /

PL/SQL procedure successfully completed.

但是请注意，由于必须锁定行（使用FOR UPDATE子句），因此无法在循环中放入提交。进行提交将释放您使用FOR
UPDATE请求的锁，并且您将得到ORA-01002：提取顺序错误

SQL> ed
Wrote file afiedt.buf

  1  declare
  2    cursor c1 is select * from foo for update;
  3    l_rowtype c1%rowtype;
  4  begin
  5    open c1;
  6    loop
  7      fetch c1 into l_rowtype;
  8      exit when c1%notfound;
  9      delete from foo where current of c1;
 10      commit;
 11    end loop;
 12* end;
SQL> /
declare
*
ERROR at line 1:
ORA-01002: fetch out of sequence
ORA-06512: at line 7

如果删除锁定并避免使用WHERE CURRENT
OF语法，而是根据从游标中获取的值删除数据，则可能不会收到运行时错误。但是，这仍然是跨提交读取的，这是一种不好的做法，并且从根本上增加了您至少会间歇性地获得ORA-01555：快照太旧的错误的几率。与单个SQL语句或BULK
COLLECT选项相比，它也会非常缓慢。

SQL> ed
Wrote file afiedt.buf

  1  declare
  2    cursor c1 is select * from foo;
  3    l_rowtype c1%rowtype;
  4  begin
  5    open c1;
  6    loop
  7      fetch c1 into l_rowtype;
  8      exit when c1%notfound;
  9      delete from foo where col1 = l_rowtype.col1;
 10      commit;
 11    end loop;
 12* end;
SQL> /

PL/SQL procedure successfully completed.

当然，您还必须确保您的流程可重新启动，以防您处理行的某些子集并在流程终止之前进行一些未知的临时提交。如果DELETE足以导致不再从游标返回该行，则您的过程可能已经重新启动。但是总的来说，如果您尝试将单个操作分解为多个事务，则需要担心。