发生异常时，使 PL/SQL 存储过程回滚所有更改？

Question

我有一个程序可以对不同的表进行多次更新。如果过程中的任何地方发生任何错误，我希望所有更改都回滚。因此我使用了这个结构：

CREATE PROCEDURE foo (x NUMBER) IS
BEGIN
  -- Do some inserts here.
  INSERT INTO bar VALUES (x);
  -- Sometimes there might be an error.
  IF x = 3 THEN
    RAISE_APPLICATION_ERROR(-20000, 'Wooops...');
  END IF;
EXCEPTION
  WHEN OTHERS THEN
    --Rollback all the changes and then raise the error again.
    ROLLBACK;
    RAISE;
END foo;

问题在于，这会回滚自上次提交以来所做的所有事情，而不仅仅是过程所做的更改。例如，这将插入 4 和 5，但 1 和 2 将被回滚：

BEGIN
  FOR x IN 1..5 LOOP
    BEGIN
      foo(x);
    EXCEPTION
      WHEN OTHERS THEN
        NULL;
    END;
  END LOOP;
END;

如何让程序仅回滚在此调用期间程序所做的更改？我想我应该以某种方式使用事务，但我不确定如何设置它。

请注意，我想在过程的代码中解决这个问题，而不是在调用它的代码中。

Answer 1

在 Oracle 中，您可以使用 SAVEPOINTS。应该是这样的：

CREATE PROCEDURE foo (x NUMBER) IS
BEGIN
  SAVEPOINT update_bar;

  -- Do some inserts here.
  INSERT INTO bar VALUES (x);
  -- Sometimes there might be an error.
  IF x = 3 THEN
    RAISE_APPLICATION_ERROR(-20000, 'Wooops...');
  END IF;
EXCEPTION
  WHEN OTHERS THEN
    -- Rollback everything which was made after `SAVEPOINT update_bar`
    ROLLBACK TO update_bar;
    RAISE;
END foo;