Oracle云开发环境执行存储过程遇ORA-01001无效游标错误

我在Oracle云开发环境执行存储过程时触发ORA-01001: Invalid cursor错误，但相同代码在测试环境（oracle-test）运行正常。相关代码及排查情况如下：

存储过程代码 #

Create or replace package body "my_package" as

   Procedure my_proc (out_param OUT Ref cursor, in_param_1 IN Varchar2, in_param_2 IN Number) Is

   v_sql      Varchar2(200) : = '';

Begin
    v_sql = 'Select col1, col2, col3 from TableA 
              where col4 = ' || in_param_1 || ' AND col5 = ' || in_param_2 ;

    Open out_param For v_sql ;

Exception 
    When Others Then
       dbms_output.put_line ('Error in execution - ' || sqlErrm) ;
End ;

测试用PL/SQL代码 #

DECLARE
    TYPE rc IS REF CURSOR;
    out_data rc;

    my_col1 Varchar2(15) := '';
    my_col2 Number := 0;
    my_col3 Varchar2(10) := '';
Begin
   my_proc (out_data, 'MY PARAM1', 'MY PARAM2') ;
   Loop
       FETCH out_data INTO my_col1, my_col2, my_col3
       Exit When out_data%NOTFound

       dbms_output.put_line(my_col1 || ', ' || my_col2 || ', ' || my_col3);
   End Loop ;
End ;

已确认对象权限（已授予select/execute权限），排查过相关问题线程但未解决，且代码在测试环境可正常运行。

核心问题排查与修复 #

1. 动态SQL语法错误（最可能触发原因） #

代码存在3个关键语法问题，测试环境可能因宽松设置未暴露，但开发环境严格检查会导致游标无法正常打开：

• PL/SQL变量赋值需用:=而非=，原代码中v_sql = 'Select ...'应改为v_sql := 'Select ...'
• 字符串参数in_param_1未加单引号拼接，会生成无效SQL，正确写法为col4 = ''' || in_param_1 || '''（三个单引号实现转义）
• 测试代码中向Number类型参数传递字符串'MY PARAM2'，会触发隐式转换失败，需传递合法数字值

2. 开发环境环境差异排查 #

• 检查开发环境PLSQL_WARNINGS设置，是否开启了测试环境未启用的严格语法检查
• 验证开发环境TableA的结构（列名、数据类型）是否与测试环境完全一致，结构差异会导致动态SQL执行失败
• 确认开发环境用户是否直接拥有TableA的访问权限（存储过程执行时角色权限可能不生效）

3. 修复后的代码示例 #

优化后的存储过程（使用绑定变量更安全可靠）

Create or replace package body "my_package" as

   Procedure my_proc (out_param OUT Ref cursor, in_param_1 IN Varchar2, in_param_2 IN Number) Is

Begin
    -- 用绑定变量替代字符串拼接，避免语法错误与SQL注入
    Open out_param For 'Select col1, col2, col3 from TableA 
              where col4 = :1 AND col5 = :2' 
              USING in_param_1, in_param_2;

Exception 
    When Others Then
       dbms_output.put_line ('Error in execution - ' || sqlErrm) ;
       RAISE; -- 重新抛出异常便于上层捕获，避免隐藏错误
End ;

修正后的测试代码

DECLARE
    TYPE rc IS REF CURSOR;
    out_data rc;

    my_col1 Varchar2(15) := '';
    my_col2 Number := 0;
    my_col3 Varchar2(10) := '';
Begin
   my_proc (out_data, 'MY PARAM1', 123) ; -- 传递合法Number类型参数
   Loop
       FETCH out_data INTO my_col1, my_col2, my_col3;
       Exit When out_data%NOTFound;

       dbms_output.put_line(my_col1 || ', ' || my_col2 || ', ' || my_col3);
   End Loop ;
   CLOSE out_data; -- 显式关闭游标
End ;

额外建议 #

• 优先使用绑定变量替代字符串拼接，提升代码安全性与性能
• 异常处理中不要仅输出错误，建议重新抛出异常以便上层调用者处理
• 保持测试环境与开发环境的参数设置（如PLSQL_WARNINGS、NLS_DATE_FORMAT）一致，减少环境差异问题

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