Oracle：仅回滚循环的崩溃迭代

Question

如果一个或多个迭代崩溃，我需要帮助完成回滚，并在它们成功时提交所有其他迭代。如果崩溃，它将回滚整个事务。我认为可以使用Savepoints来实现这一点，但我对它们不是很熟悉。以下是我尝试实现的基本示例。

    DECLARE 
      ...
    BEGIN
      FOR i IN 1 .. 10
      LOOP
        BEGIN
          -- Some DML and stored procs with DML
          INSERT INTO a .. .;
          INSERT INTO b .. .;
          INSERT INTO a .. .;
          DELETE FROM a .. .;
          UPDATE INTO c .. .;
          m_package.some_proc_with_dml;
        EXCEPTION
          WHEN OTHERS THEN
            merror   := merror + || ', ' || + sqlerrm;
            miserror := TRUE;
        END;
      END LOOP;

      COMMIT;

      IF miserror THEN
        raise_application_error(-20000, merror);
      END IF;

    END;

提前致谢。

- Jornia Kabakum

Answer 1

您可以设置一个 SAVEPOINT，然后回滚到该 SAVEPOINT，例如：

    DECLARE 
      ...
    BEGIN
      FOR i IN 1 .. 10
      LOOP
        BEGIN

        SAVEPOINT my_savepoint_name;

-- Some DML and stored procs with DML
          INSERT INTO a .. .;
          INSERT INTO b .. .;
          INSERT INTO a .. .;
          DELETE FROM a .. .;
          UPDATE INTO c .. .;
m_package.some_proc_with_dml;
        EXCEPTION
          WHEN OTHERS THEN
            merror   := merror + || ', ' || + sqlerrm;
            miserror := TRUE;

            ROLLBACK TO my_savepoint_name;

        END;
      END LOOP;

- schurik

Answer 2

另一种选择是将循环语句包装在嵌套调用的单独存储过程中，使用PRAGMA AUTONOMOUS_TRANSACTION。

- Vadzim