使一个 PL/SQL 存储过程在发生异常时回滚所有更改?

Make a PL/SQL stored procedure roll back all changes when an exception occurs?

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

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;

我怎样才能让过程只回滚过程在这次调用中所做的更改?我想我应该以某种方式使用交易,但我不确定如何设置它。

请注意,我想在过程的代码中而不是在调用它的代码中修复此问题。

在 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;