PL/SQL中如何依次遍历多个已提前打开的游标

你遇到的核心问题是FOR record IN 游标的隐式行为——这个语法会自动帮你完成打开、遍历、关闭游标的操作，如果你已经手动打开过游标，再用它就会触发"游标已打开"的错误。要实现预打开所有游标再依次遍历的需求，必须用显式游标操作，具体步骤和示例如下：

步骤说明 #

1. 先声明所有需要的游标，以及对应的数据记录变量（用%ROWTYPE匹配游标结构最方便）
2. 在程序执行初期，一次性打开所有游标，此时游标会锁定初始查询结果，后续的删除操作不会影响游标内的数据
3. 对每个已打开的游标，用FETCH ... INTO ...语句循环读取数据，直到游标%NOTFOUND（没有更多数据）
4. 单个游标遍历完成后，及时关闭该游标（避免占用数据库资源）

代码示例 #

DECLARE
    -- 声明5个游标，基于初始数据查询
    CURSOR cur1 IS SELECT col1, col2 FROM table1 WHERE condition1;
    CURSOR cur2 IS SELECT col3, col4 FROM table2 WHERE condition2;
    CURSOR cur3 IS SELECT col5 FROM table3 WHERE condition3;
    CURSOR cur4 IS SELECT col6, col7, col8 FROM table4 WHERE condition4;
    CURSOR cur5 IS SELECT col9 FROM table5 WHERE condition5;

    -- 声明对应游标记录变量
    rec1 cur1%ROWTYPE;
    rec2 cur2%ROWTYPE;
    rec3 cur3%ROWTYPE;
    rec4 cur4%ROWTYPE;
    rec5 cur5%ROWTYPE;
BEGIN
    -- 程序初期一次性打开所有游标，锁定初始数据
    OPEN cur1;
    OPEN cur2;
    OPEN cur3;
    OPEN cur4;
    OPEN cur5;

    -- 遍历游标1
    LOOP
        FETCH cur1 INTO rec1;
        EXIT WHEN cur1%NOTFOUND;
        
        -- 这里执行你的业务逻辑，比如删除操作
        DELETE FROM table1 WHERE col1 = rec1.col1;
        COMMIT; -- 按需提交，不影响已打开的游标数据
    END LOOP;
    CLOSE cur1; -- 用完及时关闭

    -- 遍历游标2
    LOOP
        FETCH cur2 INTO rec2;
        EXIT WHEN cur2%NOTFOUND;
        
        -- 游标2的业务逻辑
        DELETE FROM table2 WHERE col3 = rec2.col3;
        COMMIT;
    END LOOP;
    CLOSE cur2;

    -- 遍历游标3、4、5的逻辑以此类推
    LOOP
        FETCH cur3 INTO rec3;
        EXIT WHEN cur3%NOTFOUND;
        -- 业务操作
    END LOOP;
    CLOSE cur3;

    LOOP
        FETCH cur4 INTO rec4;
        EXIT WHEN cur4%NOTFOUND;
        -- 业务操作
    END LOOP;
    CLOSE cur4;

    LOOP
        FETCH cur5 INTO rec5;
        EXIT WHEN cur5%NOTFOUND;
        -- 业务操作
    END LOOP;
    CLOSE cur5;

EXCEPTION
    WHEN OTHERS THEN
        -- 异常处理：确保所有已打开的游标都被关闭
        IF cur1%ISOPEN THEN CLOSE cur1; END IF;
        IF cur2%ISOPEN THEN CLOSE cur2; END IF;
        IF cur3%ISOPEN THEN CLOSE cur3; END IF;
        IF cur4%ISOPEN THEN CLOSE cur4; END IF;
        IF cur5%ISOPEN THEN CLOSE cur5; END IF;
        RAISE; -- 重新抛出异常，保留错误信息
END;
/

关键注意点 #

• 游标一旦打开，查询结果就固定了，后续对表的增删改操作不会影响游标内的数据，完全符合你的需求
• 必须手动管理游标的打开和关闭，尤其要在异常分支里做兜底关闭，防止游标泄漏
• 如果游标查询的结果集很大，要注意内存占用问题，必要时可以考虑分批处理，但这是另一个优化方向

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