Oracle PL/SQL实现：若任一插入过程未插入数据则不执行后续存储过程

要实现这个需求，核心思路是跟踪每个插入过程实际插入的行数，只要有一个过程没有插入任何数据（行数为0），就跳过最后的procedureTest。具体有两种常见实现方式，取决于你是否能修改现有的insert1/2/3过程：

方式一：修改插入过程，返回插入行数（推荐） #

这种方式最可靠，因为直接从过程内部获取插入的行数，不受外部会话影响。

步骤1：更新每个插入过程，添加输出参数返回插入行数 #

我们给每个insertX过程加一个OUT参数，用来返回本次执行插入的行数：

CREATE OR REPLACE PROCEDURE insert1(p_inserted_rows OUT NUMBER) IS
BEGIN
  -- 你的原有插入逻辑
  INSERT INTO table1 (col1, col2) VALUES ('val1', 'val2');
  
  -- 获取插入行数，赋值给输出参数
  p_inserted_rows := SQL%ROWCOUNT;
EXCEPTION
  WHEN OTHERS THEN
    -- 异常情况下，标记插入行数为0（可根据需求调整异常处理逻辑）
    p_inserted_rows := 0;
    RAISE; -- 保留原有异常抛出，避免吞掉错误
END;
/

-- 同理修改 insert2 和 insert3 过程
CREATE OR REPLACE PROCEDURE insert2(p_inserted_rows OUT NUMBER) IS
BEGIN
  INSERT INTO table2 (...) VALUES (...);
  p_inserted_rows := SQL%ROWCOUNT;
EXCEPTION
  WHEN OTHERS THEN
    p_inserted_rows := 0;
    RAISE;
END;
/

CREATE OR REPLACE PROCEDURE insert3(p_inserted_rows OUT NUMBER) IS
BEGIN
  INSERT INTO table3 (...) VALUES (...);
  p_inserted_rows := SQL%ROWCOUNT;
EXCEPTION
  WHEN OTHERS THEN
    p_inserted_rows := 0;
    RAISE;
END;
/

步骤2：在主块中判断，控制流程 #

主块中依次调用每个插入过程，检查返回的行数。只要有一个过程返回0，就标记为失败，最后根据标记决定是否执行procedureTest：

DECLARE
  v_rows1 NUMBER;
  v_rows2 NUMBER;
  v_rows3 NUMBER;
  v_all_inserted BOOLEAN := TRUE; -- 标记是否所有插入都成功
BEGIN
  -- 执行第一个插入，检查行数
  insert1(v_rows1);
  IF v_rows1 = 0 THEN
    v_all_inserted := FALSE;
  END IF;

  -- 只有前一个插入成功，才执行下一个（可选，若想无论前一个是否成功都执行所有插入，可去掉IF判断）
  IF v_all_inserted THEN
    insert2(v_rows2);
    IF v_rows2 = 0 THEN
      v_all_inserted := FALSE;
    END IF;
  END IF;

  IF v_all_inserted THEN
    insert3(v_rows3);
    IF v_rows3 = 0 THEN
      v_all_inserted := FALSE;
    END IF;
  END IF;

  -- 所有插入都成功（都插入了至少一行），才执行后续存储过程
  IF v_all_inserted THEN
    procedureTest();
  END IF;

EXCEPTION
  WHEN OTHERS THEN
    -- 异常处理：打印错误信息，或写入日志
    DBMS_OUTPUT.PUT_LINE('执行出错: ' || SQLERRM);
    RAISE; -- 可选，根据业务需求决定是否向上抛出异常
END;
/

方式二：不修改原有过程，通过统计表行数判断（不推荐） #

如果无法修改现有的insertX过程，可以通过调用过程前后统计对应表的行数变化来判断是否有数据插入。但这种方式有局限性：如果有其他会话同时操作这些表，统计结果可能不准确。

DECLARE
  v_before NUMBER;
  v_after NUMBER;
  v_all_inserted BOOLEAN := TRUE;
BEGIN
  -- 检查 insert1 的插入情况
  SELECT COUNT(*) INTO v_before FROM table1;
  insert1();
  SELECT COUNT(*) INTO v_after FROM table1;
  IF v_after = v_before THEN
    v_all_inserted := FALSE;
  END IF;

  IF v_all_inserted THEN
    SELECT COUNT(*) INTO v_before FROM table2;
    insert2();
    SELECT COUNT(*) INTO v_after FROM table2;
    IF v_after = v_before THEN
      v_all_inserted := FALSE;
    END IF;
  END IF;

  IF v_all_inserted THEN
    SELECT COUNT(*) INTO v_before FROM table3;
    insert3();
    SELECT COUNT(*) INTO v_after FROM table3;
    IF v_after = v_before THEN
      v_all_inserted := FALSE;
    END IF;
  END IF;

  -- 所有插入都有数据变更，才执行 procedureTest
  IF v_all_inserted THEN
    procedureTest();
  END IF;

EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('执行出错: ' || SQLERRM);
    RAISE;
END;
/

关键说明 #

• 如果你的需求是只要有一个插入过程没插入数据，就立即停止后续的插入操作，那么用方式一中的IF v_all_inserted THEN包裹后续插入的逻辑即可；
• 如果需要无论前面的插入是否成功，都执行完所有插入过程，最后再判断是否执行procedureTest，只需要去掉那些IF判断，依次调用所有插入过程，最后统一检查三个行数是否都大于0即可。

内容的提问来源于stack exchange，提问作者4est