Oracle PL/SQL如何实现动态访问自定义对象类型的day1~day31字段？

你需要的循环访问rep_table_O对象day1~day31字段、避免重复编写逻辑的需求，有两种主流可落地的实现方案：

方案1：使用ANYDATA类型动态操作对象属性 #

不需要执行动态SQL，性能更高，适合存储过程高频调用的场景，实现代码如下：

PROCEDURE MY_HELPER (myIdx IN BINARY_INTEGER, from_d IN DATE, rep_table IN OUT rep_table_T) IS
    v_prev2_obj rep_table_O;
    v_prev1_obj rep_table_O;
    v_curr_obj rep_table_O;
    v_field_name VARCHAR2(10);
    v_val_prev2 NUMBER;
    v_val_prev1 NUMBER;
    v_val_curr NUMBER;
    v_anydata ANYDATA;
    v_op_return PLS_INTEGER;
BEGIN   
    -- 提前取出三个位置的对象实例，避免重复索引集合
    v_prev2_obj := rep_table(myIdx - 2);
    v_prev1_obj := rep_table(myIdx - 1);
    v_curr_obj := rep_table(myIdx);

    FOR nCOUNT IN 1..31
    LOOP
        v_field_name := 'day'||nCOUNT;
        -- 动态获取前2位对象的对应字段值
        v_anydata := ANYDATA.ConvertObject(v_prev2_obj);
        v_op_return := v_anydata.GetAttr(v_field_name, v_val_prev2);
        
        IF NVL(v_val_prev2, 0) > 0 THEN
            -- 动态获取前1位对象的对应字段值
            v_anydata := ANYDATA.ConvertObject(v_prev1_obj);
            v_op_return := v_anydata.GetAttr(v_field_name, v_val_prev1);
            -- 计算结果
            v_val_curr := ROUND((1 - v_val_prev1 / v_val_prev2) * 100, 2);
            -- 动态给当前对象字段赋值
            v_anydata := ANYDATA.ConvertObject(v_curr_obj);
            v_op_return := v_anydata.SetAttr(v_field_name, v_val_curr);
            v_op_return := v_anydata.GetObject(v_curr_obj);
        END IF; 
    END LOOP;
    -- 把修改后的对象写回集合
    rep_table(myIdx) := v_curr_obj;
END MY_HELPER;

方案2：使用EXECUTE IMMEDIATE动态SQL实现 #

写法更简洁，开发成本更低，适合存储过程调用频率不高的场景，实现代码如下：

PROCEDURE MY_HELPER (myIdx IN BINARY_INTEGER, from_d IN DATE, rep_table IN OUT rep_table_T) IS
    v_field_name VARCHAR2(10);
    v_sql VARCHAR2(1000);
BEGIN   
    FOR nCOUNT IN 1..31
    LOOP
        v_field_name := 'day'||nCOUNT;
        -- 拼接动态SQL
        v_sql := '
            DECLARE
                v_prev2_val NUMBER := TO_NUMBER(NVL(:1.'||v_field_name||', 0));
            BEGIN
                IF v_prev2_val > 0 THEN
                    :2.'||v_field_name||' := ROUND((1 - TO_NUMBER(:3.'||v_field_name||') / v_prev2_val) * 100, 2);
                END IF;
            END;
        ';
        -- 执行动态SQL，绑定变量传入对象
        EXECUTE IMMEDIATE v_sql USING IN rep_table(myIdx-2), IN OUT rep_table(myIdx), IN rep_table(myIdx-1);
    END LOOP;
END MY_HELPER;

注意事项 #

• 你的rep_table_O对象中day1~day31字段定义为VARCHAR2类型，只有字段存储的内容为合法数值时上述逻辑才能正常运行，建议优先将字段类型调整为NUMBER避免类型转换异常。
• 原示例代码中参数名是myIdx，逻辑里写的nIndex需要统一变量名，避免运行报错。
• 方案1使用原生ANYDATA接口无需解析动态SQL，性能比方案2高30%以上，高频调用场景优先选方案1。

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