Oracle PL/SQL存储过程执行正常但无插入及更新效果求助

咱们一步步拆解你遇到的问题，从代码里的几个关键坑点入手：

1. UPDATE语句缺少WHERE条件，导致全表覆盖而非目标行 #

你的UPDATE语句是：

UPDATE DEPOT_IMPORT SET OPT_SITE_DEPOT = p_opt_site;

这会更新DEPOT_IMPORT表的所有行，每次循环都会把整个表的OPT_SITE_DEPOT覆盖成当前循环的p_opt_site值，最终所有行都会变成最后一次循环的结果。这绝对不是你想要的，必须加上WHERE条件匹配游标遍历的单行，比如用游标里的唯一标识组合（比如NUM_PUBLICATION_DECLA+CD_REGATE这类能准确定位的字段）：

UPDATE DEPOT_IMPORT 
SET OPT_SITE_DEPOT = p_opt_site
WHERE CD_REGATE = v_CodeSiteDepot 
  AND NUM_PUBLICATION_DECLA = v_NoPublication
  AND TYP_PARUTION_DECLA = v_TypeParution
  AND CD_POSTAL = v_codePostal
  AND ID_LIB_PREP = v_NiveauPrepa;

2. 游标字段映射可能存在错误 #

看你的游标定义和FETCH逻辑：

CURSOR V_CURS_CDIS_CTC IS 
SELECT DISTINCT CD_REGATE, OPT_SITE_DEPOT, TYP_PARUTION_DECLA, NUM_PUBLICATION_DECLA, CD_POSTAL, ID_LIB_PREP 
FROM DEPOT_IMPORT 
WHERE OPT_SITE_DEPOT = 81001210 OR OPT_SITE_DEPOT = 81001211;

fetch V_CURS_CDIS_CTC into v_CodeSiteDepot,v_OptionSiteDepot,v_TypeParution,v_NoPublication,v_codePostal,v_NiveauPrepa;

这里v_CodeSiteDepot对应游标里的CD_REGATE，但你后续查询LIBELLE表时用的是id_libelle = v_CodeSiteDepot。你说单独执行SELECT能得到正确值，那要确认：单独测试时用的id_libelle是不是游标返回的CD_REGATE值？如果不是，那就是字段映射错了，得把游标里对应id_libelle的字段赋值给v_CodeSiteDepot。

3. 未处理SELECT INTO的异常，隐藏执行错误 #

你的三个SELECT INTO语句：

SELECT LIB.LIB_LIBELLE INTO v_LibOptionSiteDepot FROM LIBELLE LIB WHERE typ_libelle = 'OSD' and id_libelle = v_CodeSiteDepot;
SELECT TYP.LIB_PARUTION INTO v_LibTypeParution FROM TYPE_PARUTION TYP WHERE id_type_parution = v_TypeParution;
SELECT LIB.VAL_LIBELLE INTO v_LibNiveauPrepa FROM LIBELLE LIB WHERE typ_libelle = 'PEC' and id_libelle = v_NiveauPrepa;

如果其中任何一条语句没有返回数据，PL/SQL会抛出NO_DATA_FOUND异常，但因为你没加EXCEPTION块处理，要么过程悄悄终止（你误以为执行无报错），要么变量值保留之前的旧值，导致后续逻辑混乱。建议在循环内或过程末尾添加异常捕获：

EXCEPTION
  WHEN NO_DATA_FOUND THEN
    INSERT INTO babas VALUES ('ERROR: No data found for params: ' || v_CodeSiteDepot || '/' || v_TypeParution || '/' || v_NiveauPrepa);
    CONTINUE; -- 继续循环，不终止整个过程
  WHEN OTHERS THEN
    INSERT INTO babas VALUES ('ERROR: ' || SQLERRM);
    CONTINUE;

这样能把错误日志插入babas表，方便定位哪一步出了问题。

4. babas表字段长度可能限制了日志完整性 #

如果babas表的存储字段（比如VARCHAR2）长度不够，你插入的长拼接字符串会被截断，看起来像是某些变量没赋值，误以为前面的SELECT没执行。可以把日志拆分插入，每个变量单独记录：

Insert into babas values ('v_CodeSiteDepot: ' || v_CodeSiteDepot);
Insert into babas values ('v_OptionSiteDepot: ' || v_OptionSiteDepot);
Insert into babas values ('v_TypeParution: ' || v_TypeParution);
-- 以此类推，每个变量单独插入，确保能看到完整值

5. 函数return_option_CDIS_CTC的输入输出可能不符预期 #

虽然单独执行SELECT能得到正确值，但函数接收参数后的逻辑可能有问题。建议在调用函数前后，把所有传入的参数都插入babas表，对比单独测试函数时的参数是否一致：

Insert into babas values ('Function input: ' || v_CodeSiteDepot || ',' || v_LibOptionSiteDepot || ',' || v_LibTypeParution || ',' || v_NoPublication || ',' || v_codePostal || ',' || v_LibNiveauPrepa);
p_opt_site := return_option_CDIS_CTC(v_CodeSiteDepot,v_LibOptionSiteDepot,v_LibTypeParution,v_NoPublication,v_codePostal,v_LibNiveauPrepa);
Insert into babas values ('Function output: ' || p_opt_site);

这样能确认函数的输入输出是否符合预期。

6. 事务未提交导致更新未生效 #

Oracle默认是手动提交事务，如果你的存储过程没有显式提交，调用后在当前会话外可能看不到更新结果。建议在过程末尾加上提交语句：

END LOOP;
CLOSE V_CURS_CDIS_CTC;
COMMIT; -- 提交所有修改，确保生效
END depot_enrichment;

额外优化建议 #

可以用FOR循环替代显式的OPEN/FETCH/CLOSE，更简洁且不易出错：

FOR rec IN V_CURS_CDIS_CTC LOOP
  -- 直接用rec.CD_REGATE、rec.OPT_SITE_DEPOT等字段，无需自己定义变量和FETCH
  Insert into babas values ('Parametres : ' || rec.CD_REGATE || ' / ' || rec.OPT_SITE_DEPOT || ' / ' || rec.TYP_PARUTION_DECLA || ' / ' || rec.NUM_PUBLICATION_DECLA || ' / ' || rec.CD_POSTAL || ' / ' || rec.ID_LIB_PREP);
  -- 后续逻辑直接使用rec的字段即可
END LOOP;

这样能避免字段映射错误的问题。

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