从 refcursor 创建记录

Question

我想从 refcursor 创建记录。我的代码：

set serveroutput on    
DECLARE
  c_curs    SYS_REFCURSOR;
  v_id      NUMBER;
BEGIN

  pck_prov.get_value_type_list (1, c_curs); --> procedure called here
  -- I guess this is the place where record can be created from cursor.

  LOOP 
    FETCH c_curs
    INTO  v_id;--instead of fetching into variable I would like to fetch into row
    EXIT WHEN c_curs%NOTFOUND;
    DBMS_OUTPUT.PUT_LINE(v_id);--if fetching is done into row, only selected columns can be printed, like myrow.id
  END LOOP;
  CLOSE c_curs;
END;

请注意：我知道如何从使用 select 语句定义的游标创建记录，如 here 所述。我不知道如何对 refcursors 使用相同的技术。

编辑：

来自here 的代码正是我所需要的，但它会引发错误：

set serveroutput on
VAR c_curs refcursor;

EXECUTE pck_prov.get_value_type_list(1, :c_curs);


BEGIN
    FOR record_test IN :c_curs LOOP
        dbms_output.put_line(record_test.id);
    END LOOP;
END;

错误：错误 PLS-00456：项目 'SQLDEVBIND1Z_1' 不是游标。

只是为了澄清问题：

在我的数据库中大约有 200 个包。 每个包内部都有几个存储过程 - 通常每个过程都与来自不同表的列组合在一起。这就是为什么最好有一些动态创建的光标，这样我就可以像我发布的示例一样进行简单的选择。

Answer 1

从 Oracle 12.1 开始，您可以使用 DBMS_SQL.return_result 过程。 SQL Plus 自动显示隐式语句结果的内容。因此，DBMS_SQL 包中的RETURN_RESULT 过程允许您隐式传递它们，而不是定义显式引用游标参数。

DECLARE
  c_curs    SYS_REFCURSOR;
  v_id      NUMBER;
BEGIN

  pck_prov.get_value_type_list (1, c_curs);

  DBMS_SQL.return_result(c_curs); --> Passes ref cursor output implicitly
END;
/

事实上，不需要这个单独的 PL/SQL 块，您可以在原来的 pck_prov.get_value_type_list 过程本身中添加 DBMS_SQL.return_result(c_curs) 语句。

Answer 2

只需定义一个与游标匹配的 PL/SQL RECORD 类型并将 FETCH 放入其中。

DECLARE
  c_curs    SYS_REFCURSOR;
  TYPE rec_t IS RECORD ( object_name VARCHAR2(30), object_type VARCHAR2(30) );
  v_rec     rec_t;
BEGIN

  OPEN c_curs FOR 
       SELECT object_name, 
              object_type 
       FROM   dba_objects 
       WHERE  object_name like 'DBA%TAB%';  

  LOOP 
    FETCH c_curs
    INTO  v_rec;
    EXIT WHEN c_curs%NOTFOUND;
    DBMS_OUTPUT.PUT_LINE(v_rec.object_name || ' - ' || v_rec.object_type);
  END LOOP;
  CLOSE c_curs;
END;

DBA_ADVISOR_SQLA_TABLES - VIEW
DBA_ADVISOR_SQLA_TABVOL - VIEW
DBA_ADVISOR_SQLW_TABLES - VIEW
DBA_ADVISOR_SQLW_TABVOL - VIEW
DBA_ALL_TABLES - VIEW
etc...