如何通过PL/SQL动态使用列名游标访问数据游标中的数据？

嘿，我来帮你搞定这个问题！你的核心困扰在于：直接把emp_row.和列名字符串拼起来，PL/SQL根本不会把它当成游标行的列引用——它只会把这当成一段普通文本，自然没法拿到实际数据。要实现动态读取游标列的需求，咱们有两种靠谱的方案，一起来看看：

方法一：用DBMS_SQL包（更灵活，推荐） #

Oracle的DBMS_SQL包就是专门用来处理动态SQL的，它能帮咱们动态解析表结构、读取每列的值，完全适配你的需求。下面是完整的存储过程代码：

create or replace procedure sp_read_data(in_tb_nm varchar2) as
    v_cursor_id integer;
    v_col_count integer;
    v_col_names dbms_sql.varchar2_table;
    v_col_value varchar2(4000);
    v_dtl varchar2(32767) := '';
begin
    -- 初始化动态游标，打开目标表的查询
    v_cursor_id := dbms_sql.open_cursor;
    dbms_sql.parse(v_cursor_id, 'SELECT * FROM ' || in_tb_nm, dbms_sql.native);
    
    -- 执行查询并获取列名列表
    v_col_count := dbms_sql.execute(v_cursor_id);
    for i in 1..dbms_sql.num_columns(v_cursor_id) loop
        v_col_names(i) := dbms_sql.column_value(v_cursor_id, i);
    end loop;
    
    -- 逐行读取数据，动态获取每列的值
    while dbms_sql.fetch_rows(v_cursor_id) > 0 loop
        for i in 1..v_col_count loop
            -- 把当前列的值转成字符串
            dbms_sql.column_value(v_cursor_id, i, v_col_value);
            -- 拼进结果里，格式化一下
            v_dtl := v_dtl || rpad(v_col_names(i) || ': ' || v_col_value, 30, ' ');
        end loop;
        v_dtl := v_dtl || chr(10); -- 每行结束换个行，看着清爽
    end loop;
    
    -- 用完游标记得关掉
    dbms_sql.close_cursor(v_cursor_id);
    
    -- 这里可以把结果打出来看看
    dbms_output.put_line(v_dtl);
exception
    when others then
        if dbms_sql.is_open(v_cursor_id) then
            dbms_sql.close_cursor(v_cursor_id);
        end if;
        raise;
end sp_read_data;
/

这个方案的好处是：

• 完全支持你传入的表名参数in_tb_nm，不用硬编码表名
• 自动识别表的所有列，不管表结构怎么变都能适配
• 加了异常处理，保证游标不会因为报错一直开着浪费资源

方法二：保留双游标+动态SQL（适合你原来的思路） #

如果你就想用原来的双游标思路，那可以用EXECUTE IMMEDIATE动态执行赋值语句，把游标行里的列值读出来。代码如下：

create or replace procedure sp_read_data(in_tb_nm varchar2) as
    cursor c_emp is select * from test_table;
    cursor c_column_names is 
        select column_name from all_tab_columns 
        where table_name = upper(in_tb_nm)
        and owner = user; -- 加个owner避免找错同名表
    emp_row c_emp%rowtype;
    lc_record all_tab_columns.column_name%type;
    v_col_value varchar2(4000);
    v_dtl varchar2(32767) := '';
begin
    open c_emp;
    loop
        fetch c_emp into emp_row;
        exit when c_emp%notfound;
        
        -- 注意：游标只能遍历一次，所以每处理一行都要重新打开列名游标
        open c_column_names;
        loop
            fetch c_column_names into lc_record;
            exit when c_column_names%notfound;
            
            -- 动态执行赋值，从emp_row里拿到对应列的值
            execute immediate 'begin :val := :row.' || lc_record || '; end;'
                using out v_col_value, in emp_row;
                
            -- 拼进结果字符串
            v_dtl := v_dtl || rpad(lc_record || ': ' || v_col_value, 20, ' ');
        end loop;
        close c_column_names;
        v_dtl := v_dtl || chr(10);
    end loop;
    close c_emp;
    
    dbms_output.put_line(v_dtl);
exception
    when others then
        if c_emp%isopen then close c_emp; end if;
        if c_column_names%isopen then close c_column_names; end if;
        raise;
end sp_read_data;
/

这里要注意两个点： #

1. 每次处理一行数据时，必须重新打开c_column_names游标——因为游标只能从头到尾走一遍，不能回头重置
2. 如果in_tb_nm是外部输入的，最好先做合法性校验，避免SQL注入风险

为啥你的原代码跑不起来？ #

你原来写的lc_col_nm := 'emp_row.'||lc_record;其实只是生成了一段字符串（比如'emp_row.EMP_NAME'），但PL/SQL不会把这个字符串当成变量去解析取值，它就是一段普通文本，所以最终v_dtl里只会堆一堆这样的字符串，根本拿不到实际的表数据。

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