使用 DBMS_SQL.Execute_and_fetch - 获取 Ref 游标的游标号 (10g)

Question

使用Oracle 10g DBMS，我想在一个过程中应用DBMS_SQL.execute_and_fetch。我拒绝EXECUTE IMMEDIATE，因为我想绑定命名变量并且不依赖它们在语句中的顺序。

问题是我无法处理传递给我的过程的olist ref 游标参数的游标号。这是我正在尝试做的示例代码 sn-p。

PROCEDURE TestProc( vuserid INTEGER,
                    olist   OUT refcur)
IS
  cursor_num INTEGER;
  vsql       VARCHAR2(1000 CHAR);
BEGIN
  vsql := 'SELECT * FROM USERS WHERE USER_ID = :user_id';

  /*creates a new cursor. Need to use the cursor that is passed to my procedure*/
  /*cursor_num := dbms_sql.open_cursor; */

  /*Only available in 11g onwards        */
  /*cursor_num := dbms_sql.to_cursor_number(olist); */

  sys.dbms_sql.parse(cursor_num, vsql, sys.dbms_sql.native);
  sys.dbms_sql.bind_variable(cursor_num, ':user_id', vuserid);
  sys.dbms_sql.execute_and_fetch(cursor_num, FALSE);
END TestProc;

如何在我的特定情况下成功使用DBMS_SQL.execute_and_fetch 过程，其中用于获取的游标是我传入的引用游标？

Answer 1

我假设您正在寻找这个：

PROCEDURE TestProc (
      vUserid   INTEGER,
      olist              OUT   SYS_REFCURSOR)
IS
   cursor_num INTEGER;
   vSQL VARCHAR2(1000 CHAR);
    result NUMBER;
BEGIN   
    vSQL := 'SELECT * FROM USERS WHERE USER_ID = :user_id';

    cursor_num := DBMS_SQL.OPEN_CURSOR;
    DBMS_SQL.PARSE(cursor_num,vSQL,DBMS_SQL.NATIVE);
    DBMS_SQL.BIND_VARIABLE(cursor_num, ':user_id', vUserid);
    result := DBMS_SQL.EXECUTE(cursor_num);
    olist := DBMS_SQL.TO_REFCURSOR(cursor_num);

END TestProc;

然后调用块可以使用FETCH olist INTO... 或FETCH olist BULK COLLECT INTO... 来获取您的查询结果。

但您必须至少运行 Oracle 11，否则它不可用。