如何解决Oracle存储过程ORA-01002: fetch out of sequence报错

AI 小北

2026-8-27

问题原因

你遇到的ORA-01002: fetch out of sequence错误由两个核心逻辑错误导致：

错误遍历了作为输出参数的返回游标：P_RESPONSE是要返回给上层调用方的结果集游标，你在存储过程内部写循环把这个游标所有数据全部FETCH完毕，游标指针已经移动到结果集末尾。当存储过程执行结束返回给调用方后，调用方再尝试FETCH这个已经遍历完、且查询到数据分支没有重新打开的游标，就会触发乱序抓取错误。
游标循环逻辑顺序写反：你写的循环是先判断%NOTFOUND再执行FETCH，游标刚打开还没做第一次FETCH时，%NOTFOUND属性值为NULL而非TRUE，第一次循环不会触发退出，会直接进入FETCH逻辑；取完最后一行数据后，下一次循环判断%NOTFOUND依然是FALSE（只有最后一次FETCH无数据返回时%NOTFOUND才会被设为TRUE），会多执行一次空FETCH，进一步导致游标状态异常。

另外原代码还有一个隐藏bug：无数据分支重开的P_RESPONSE只返回USERNAME1个字段，和有数据分支返回的9个字段结构不匹配，就算游标位置正确，调用方按固定结构FETCH时也会触发字段数量/类型不匹配错误。

修复方案

核心原则：作为OUT参数返回给上层的SYS_REFCURSOR，不要在存储过程内部执行FETCH遍历。判断用户是否存在完全可以用独立的统计查询实现，不需要操作返回游标，具体修改点如下：

删除原代码中遍历P_RESPONSE的循环逻辑，避免破坏游标返回状态
用主键匹配计数的方式判断用户是否存在，由于REQUESTSUBMITTERS.USERNAME是主键，匹配结果最多1条，性能无损耗
对齐两个分支返回的游标字段结构，无数据时除USERNAME返回'NA'外，其余字段返回NULL，保证列数量、别名和有数据分支完全一致
两个分支都通过OPEN P_RESPONSE FOR的方式初始化返回游标，保证返回给调用方的游标始终处于可从头抓取的初始状态

修复后的完整存储过程代码：

create or replace PROCEDURE GET_REQUESTSUBMITTER (
    P_USERNAME         IN   REQUESTSUBMITTERS.USERNAME%TYPE,
    P_RESPONSE         OUT  SYS_REFCURSOR,
    SPRESULT           OUT  VARCHAR2,
    SPRESPONSECODE     OUT  VARCHAR2,
    SPRESPONSEMESSAGE  OUT  VARCHAR2
)
AS
    L_MATCH_CNT NUMBER;
BEGIN
    -- 统计匹配的用户数量，不操作返回游标
    SELECT COUNT(1) 
      INTO L_MATCH_CNT
      FROM REQUESTSUBMITTERS 
     WHERE UPPER(USERNAME) = UPPER(P_USERNAME);

    IF L_MATCH_CNT = 0 THEN
        -- 无匹配记录，返回结构对齐的默认值
        OPEN P_RESPONSE FOR
            SELECT 
                'NA' AS USERNAME,
                CAST(NULL AS VARCHAR2(50)) AS GEN,
                CAST(NULL AS VARCHAR2(100)) AS FIRSTNAME,
                CAST(NULL AS VARCHAR2(100)) AS LASTNAME,
                CAST(NULL AS VARCHAR2(200)) AS EMAILID,
                CAST(NULL AS VARCHAR2(200)) AS OFFICELOCATION,
                CAST(NULL AS VARCHAR2(100)) AS TITLE,
                CAST(NULL AS VARCHAR2(100)) AS MANAGER,
                CAST(NULL AS VARCHAR2(100)) AS DEPARTMENT
            FROM DUAL;
        SPRESULT := 'NOK';
        SPRESPONSECODE := 'GETREQSUBMTR-002';
        SPRESPONSEMESSAGE := CONCAT('SUBMITTER RECORD NOT FOUND FOR USER - ', P_USERNAME);
    ELSE
        -- 存在匹配记录，直接打开游标返回，不在过程内抓取
        OPEN P_RESPONSE FOR
            SELECT USERNAME, GEN, FIRSTNAME, LASTNAME, EMAILID, OFFICELOCATION, TITLE, MANAGER, DEPARTMENT
              FROM REQUESTSUBMITTERS 
             WHERE UPPER(USERNAME) = UPPER(P_USERNAME);
        SPRESULT := 'OK';
        SPRESPONSECODE := 'GETREQSUBMTR-001';
        SPRESPONSEMESSAGE := CONCAT('SUBMITTER RECORD FOUND FOR USER - ', P_USERNAME);
    END IF;
END GET_REQUESTSUBMITTER;
/

补充：如果确实需要在存储过程内遍历游标做逻辑处理，正确的循环顺序是先FETCH再判断退出条件，参考写法如下（禁止对要返回给上层的OUT游标使用该写法）：
LOOP
    FETCH P_RESPONSE INTO L_REQUESTSUBMITTER;
    EXIT WHEN P_RESPONSE%NOTFOUND;
    -- 此处编写单行数据处理逻辑
END LOOP;

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