如何在PL/SQL中动态使用column_name？代码报错寻求帮助

错误原因 #

报错PLS-00302: component 'V_ARRAY' must be declared的核心是代码第17行的写法错误：

dbms_output.put_line(t_array(k).v_array(k).column_name);

t_array(k)是CUSTOMER_ADDRESS表的行类型实例，不存在名为v_array的字段；v_array是独立定义的索引表，不能通过行记录去访问。

解决方案 #

要实现动态列名的输出，需要调整代码逻辑，避免静态访问动态列，同时修正编译错误。以下是两种可行的修改方案：

方案1：处理单行结果 #

如果确认每个动态查询只会返回一行数据，可直接将目标列的值存入单个变量，再输出列名和对应值：

set serveroutput on;
declare 
    type t_list_rec is record(
        table_name all_tab_columns.table_name%type,
        column_name all_tab_columns.COLUMN_NAME%type
    );
    type t_list is table of t_list_rec index by PLS_INTEGER;
    v_array t_list;
    v_col_value varchar2(4000); -- 存储动态列的值
begin
    select /*+ parallel(14) */ table_name, column_name 
    bulk collect into v_array 
    from all_tab_columns 
    where table_name='CUSTOMER_ADDRESS' and OWNER='MIG';
    
    for k in 1..v_array.count() loop
        -- 动态SQL仅查询目标列，而非整行
        EXECUTE IMMEDIATE
            'select /*+ parallel (16) */ ' || v_array(k).column_name || 
            ' from ' || v_array(k).table_name || 
            ' where not regexp_like (' || v_array(k).column_name || ',''[A-Za-z0-9.]'')'
        into v_col_value; 
        
        -- 直接输出列名和对应值
        dbms_output.put_line('列名: ' || v_array(k).column_name || ', 值: ' || v_col_value);
    end loop; 
end; 
/

方案2：处理多行结果 #

如果查询可能返回多行数据，使用批量收集将结果存入集合，循环输出所有值：

set serveroutput on;
declare 
    type t_list_rec is record(
        table_name all_tab_columns.table_name%type,
        column_name all_tab_columns.COLUMN_NAME%type
    );
    type t_list is table of t_list_rec index by PLS_INTEGER;
    v_array t_list;
    type t_col_values is table of varchar2(4000); -- 存储多行列值的集合
    v_col_values t_col_values;
begin
    select /*+ parallel(14) */ table_name, column_name 
    bulk collect into v_array 
    from all_tab_columns 
    where table_name='CUSTOMER_ADDRESS' and OWNER='MIG';
    
    for k in 1..v_array.count() loop
        -- 批量收集所有符合条件的列值
        EXECUTE IMMEDIATE
            'select /*+ parallel (16) */ ' || v_array(k).column_name || 
            ' from ' || v_array(k).table_name || 
            ' where not regexp_like (' || v_array(k).column_name || ',''[A-Za-z0-9.]'')'
        bulk collect into v_col_values; 
        
        -- 输出列名及所有对应值
        dbms_output.put_line('===== 列名: ' || v_array(k).column_name || ' =====');
        if v_col_values.count > 0 then
            for i in 1..v_col_values.count loop
                dbms_output.put_line('值: ' || v_col_values(i));
            end loop;
        else
            dbms_output.put_line('无符合条件的值');
        end if;
    end loop; 
end; 
/

关键修改点 #

1. 移除了原代码中不必要的t_array（整行存储），改为针对目标列的变量/集合存储，简化逻辑。
2. 修正输出语句：直接使用v_array(k).column_name获取列名，无需通过行记录访问。
3. 调整动态SQL，仅查询需要的目标列，避免整行查询带来的不必要开销和静态访问问题。

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