如何基于数据库object类型声明record类型用于REF CURSOR（无需虚表）

问题分析 #

你代码里的type_table%ROWTYPE用法错误：type_table是基于type_object的表类型，它的行元素类型就是type_object本身，但直接用type_object变量接收普通SELECT * FROM mytable的游标结果会报错——因为游标返回的是离散列集合，而非type_object的实例。

解决方案（无需创建虚表） #

方案1：基于目标表声明Record类型 #

如果type_object的属性与mytable的列结构完全对应，直接利用表的%ROWTYPE或列的%TYPE定义Record类型，这是最简便的方式：

CREATE OR REPLACE PACKAGE my_package AS
    -- 方式1：直接复用表的行类型作为Record类型
    TYPE type_record IS mytable%ROWTYPE;
    
    -- 方式2：自定义Record，逐个匹配表列类型（灵活性更高）
    -- TYPE type_record IS RECORD (
    --     col1 mytable.col1%TYPE,
    --     col2 mytable.col2%TYPE,
    --     -- 依次列出所有对应列
    -- );
    
    PROCEDURE process_data;
END my_package;
/

CREATE OR REPLACE PACKAGE BODY my_package AS
    PROCEDURE process_data IS
        l_rec type_record;
        l_refcursor SYS_REFCURSOR;
    BEGIN
        OPEN l_refcursor FOR 'SELECT * FROM mytable';
        LOOP
            FETCH l_refcursor INTO l_rec;
            EXIT WHEN l_refcursor%NOTFOUND;
            
            -- 如需转换为已有的type_object实例
            l_obj type_object := type_object(l_rec.col1, l_rec.col2, ...);
            -- 后续业务逻辑处理
        END LOOP;
        CLOSE l_refcursor;
    END process_data;
END my_package;
/

方案2：基于现有Object类型属性定义Record类型 #

如果不想依赖mytable，可以直接通过type_object的属性类型构建Record，确保属性与游标返回列的顺序、类型一致：

CREATE OR REPLACE PACKAGE my_package AS
    TYPE type_record IS RECORD (
        attr1 type_object.attr1%TYPE,
        attr2 type_object.attr2%TYPE,
        -- 依次列出type_object的所有属性
    );
    
    PROCEDURE process_data;
END my_package;
/

CREATE OR REPLACE PACKAGE BODY my_package AS
    PROCEDURE process_data IS
        l_rec type_record;
        l_refcursor SYS_REFCURSOR;
    BEGIN
        -- 注意：SELECT列的顺序要与Record属性顺序严格匹配
        OPEN l_refcursor FOR 'SELECT col1, col2, ... FROM mytable';
        LOOP
            FETCH l_refcursor INTO l_rec;
            EXIT WHEN l_refcursor%NOTFOUND;
            
            -- 转换为type_object实例
            l_obj type_object := type_object(l_rec.attr1, l_rec.attr2, ...);
            -- 业务逻辑处理
        END LOOP;
        CLOSE l_refcursor;
    END process_data;
END my_package;
/

额外方案：直接用Object类型接收游标数据（无需Record） #

如果可以修改游标查询语句，直接在SELECT中通过Object构造函数生成实例，就能用type_object变量接收：

DECLARE
    l_obj type_object;
    l_refcursor SYS_REFCURSOR;
BEGIN
    OPEN l_refcursor FOR 'SELECT type_object(col1, col2, ...) FROM mytable';
    LOOP
        FETCH l_refcursor INTO l_obj;
        EXIT WHEN l_refcursor%NOTFOUND;
        
        -- 直接操作Object属性
        DBMS_OUTPUT.PUT_LINE(l_obj.attr1);
    END LOOP;
    CLOSE l_refcursor;
END;
/

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