PL/SQL存储过程无数据时未触发错误提示问题咨询

我来帮你解决这个问题！你的存储过程当前的问题在于：当游标没有查询到匹配数据时，FOR循环根本不会执行，所以没有任何错误提示输出。咱们可以通过添加数据存在标记或者直接检查游标状态的方式，来处理无数据的场景，给输出参数返回明确的提示信息。

修改后的存储过程代码（简洁版，用FOR循环+存在标记） #

CREATE OR REPLACE PROCEDURE DDPROJ_SP (
    P_IDPROJ IN DD_PROJECT.IDPROJ%TYPE, 
    P_INFO OUT VARCHAR2, 
    p_check OUT VARCHAR2
) IS
    CURSOR cur_ddproj IS 
        SELECT * FROM dd_project WHERE idproj = p_idproj;
    lv_projinfo_txt VARCHAR2(100);
    lv_data_found BOOLEAN := FALSE; -- 标记是否查询到数据
BEGIN
    FOR rec_ddproj IN cur_ddproj LOOP
        lv_data_found := TRUE; -- 进入循环说明有数据，更新标记
        -- 拼接项目信息（这里假设你原本的拼接逻辑是完整的，我补全了基本字段）
        lv_projinfo_txt := rec_ddproj.idproj || ', ' || rec_ddproj.projname || ', ' || 
                           rec_ddproj.projstartdate || ', ' || rec_ddproj.projenddate;
        P_INFO := lv_projinfo_txt;
        p_check := 'SUCCESS'; -- 标记查询成功
    END LOOP;

    -- 循环结束后检查是否找到数据
    IF NOT lv_data_found THEN
        P_INFO := '错误提示：未找到ID为' || P_IDPROJ || '的项目记录';
        p_check := 'FAILURE'; -- 标记查询无结果
    END IF;
-- 捕获其他异常，避免存储过程崩溃并返回错误信息
EXCEPTION
    WHEN OTHERS THEN
        P_INFO := '执行异常：' || SQLERRM;
        p_check := 'ERROR';
END DDPROJ_SP;
/

另一种实现：显式游标方式（更灵活） #

如果你需要更精细地控制游标生命周期，可以用显式打开/获取/关闭的方式：

CREATE OR REPLACE PROCEDURE DDPROJ_SP (
    P_IDPROJ IN DD_PROJECT.IDPROJ%TYPE, 
    P_INFO OUT VARCHAR2, 
    p_check OUT VARCHAR2
) IS
    CURSOR cur_ddproj IS 
        SELECT * FROM dd_project WHERE idproj = p_idproj;
    rec_ddproj cur_ddproj%ROWTYPE;
BEGIN
    OPEN cur_ddproj;
    FETCH cur_ddproj INTO rec_ddproj;

    -- 直接检查游标是否无数据
    IF cur_ddproj%NOTFOUND THEN
        P_INFO := '错误提示：未找到ID为' || P_IDPROJ || '的项目记录';
        p_check := 'FAILURE';
    ELSE
        lv_projinfo_txt := rec_ddproj.idproj || ', ' || rec_ddproj.projname || ', ' || 
                           rec_ddproj.projstartdate || ', ' || rec_ddproj.projenddate;
        P_INFO := lv_projinfo_txt;
        p_check := 'SUCCESS';
        -- 如果需要处理多条数据，这里可以添加WHILE循环继续FETCH
    END IF;

    CLOSE cur_ddproj;
EXCEPTION
    WHEN OTHERS THEN
        -- 异常时确保游标关闭
        IF cur_ddproj%ISOPEN THEN
            CLOSE cur_ddproj;
        END IF;
        P_INFO := '执行异常：' || SQLERRM;
        p_check := 'ERROR';
END DDPROJ_SP;
/

测试调用示例 #

要验证效果，可以用匿名块调用存储过程，记得开启输出：

SET SERVEROUTPUT ON; -- SQL*Plus/PL/SQL Developer中开启输出
DECLARE
    v_result_info VARCHAR2(200);
    v_check_status VARCHAR2(10);
BEGIN
    -- 传入一个不存在的项目ID测试无数据场景
    DDPROJ_SP(P_IDPROJ => 9999, P_INFO => v_result_info, p_check => v_check_status);
    DBMS_OUTPUT.PUT_LINE('状态：' || v_check_status);
    DBMS_OUTPUT.PUT_LINE('信息：' || v_result_info);
END;
/

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