PL/SQL块多记录返回问题：传入多表查询结果集输出异常

嘿，我来帮你搞定这个PL/SQL的问题！要实现传入多个表名并输出每个表的查询结果到屏幕，核心得用动态SQL——毕竟静态SQL没法直接把变量当表名用。下面给你两种实用方案，按需选就行：

方案1：针对固定结构的表，用REF CURSOR+DBMS_OUTPUT打印 #

如果你的目标表结构类似（比如都有EMPNO、ENAME这类字段），这个简单方案就能搞定：

DECLARE
    -- 定义存储表名的集合类型
    TYPE table_name_list IS TABLE OF VARCHAR2(30);
    -- 替换成你要查询的表名列表
    v_tables table_name_list := table_name_list('EMP', 'DEPT', 'SALGRADE');
    v_sql VARCHAR2(1000);
    v_result SYS_REFCURSOR;
    -- 这里的变量要和表的字段类型对应，按需调整
    v_id NUMBER;
    v_name VARCHAR2(50);
    v_desc VARCHAR2(50);
BEGIN
    FOR i IN v_tables.FIRST .. v_tables.LAST LOOP
        -- 打印分隔线和表名，方便区分结果
        DBMS_OUTPUT.PUT_LINE('====================================');
        DBMS_OUTPUT.PUT_LINE('正在查询表: ' || v_tables(i));
        DBMS_OUTPUT.PUT_LINE('====================================');
        
        -- 拼接动态SQL语句
        v_sql := 'SELECT empno, ename, job FROM ' || v_tables(i);
        
        -- 执行动态SQL并打开游标
        OPEN v_result FOR v_sql;
        
        -- 逐行读取结果并打印
        LOOP
            FETCH v_result INTO v_id, v_name, v_desc;
            EXIT WHEN v_result%NOTFOUND;
            
            DBMS_OUTPUT.PUT_LINE('ID: ' || v_id || ', 名称: ' || v_name || ', 描述: ' || v_desc);
        END LOOP;
        
        CLOSE v_result;
        DBMS_OUTPUT.PUT_LINE(''); -- 空行分隔不同表的结果
    END LOOP;
EXCEPTION
    WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('出错啦: ' || SQLERRM);
        IF v_result%ISOPEN THEN
            CLOSE v_result;
        END IF;
END;
/

方案2：通用版，适配任意结构的表 #

如果你的表结构各不相同，用DBMS_SQL可以自动识别列名和类型，完美适配所有表：

DECLARE
    TYPE table_name_list IS TABLE OF VARCHAR2(30);
    v_tables table_name_list := table_name_list('EMP', 'DEPT');
    v_cursor_id INTEGER;
    v_col_count INTEGER;
    v_col_desc DBMS_SQL.DESC_TAB; -- 存储列的描述信息
    v_varchar VARCHAR2(4000);
    v_number NUMBER;
    v_date DATE;
    v_sql VARCHAR2(1000);
BEGIN
    FOR i IN v_tables.FIRST .. v_tables.LAST LOOP
        DBMS_OUTPUT.PUT_LINE('------------------------------------');
        DBMS_OUTPUT.PUT_LINE('表名: ' || v_tables(i));
        DBMS_OUTPUT.PUT_LINE('------------------------------------');
        
        -- 构建查询所有列的动态SQL
        v_sql := 'SELECT * FROM ' || v_tables(i);
        
        -- 初始化DBMS_SQL游标
        v_cursor_id := DBMS_SQL.OPEN_CURSOR;
        DBMS_SQL.PARSE(v_cursor_id, v_sql, DBMS_SQL.NATIVE);
        DBMS_SQL.DESCRIBE_COLUMNS(v_cursor_id, v_col_count, v_col_desc);
        
        -- 根据列类型定义变量绑定
        FOR j IN 1 .. v_col_count LOOP
            CASE v_col_desc(j).col_type
                WHEN 2 THEN DBMS_SQL.DEFINE_COLUMN(v_cursor_id, j, v_number);
                WHEN 12 THEN DBMS_SQL.DEFINE_COLUMN(v_cursor_id, j, v_date);
                ELSE DBMS_SQL.DEFINE_COLUMN(v_cursor_id, j, v_varchar, 4000);
            END CASE;
        END LOOP;
        
        -- 执行查询
        v_col_count := DBMS_SQL.EXECUTE(v_cursor_id);
        
        -- 打印列名表头
        FOR j IN 1 .. v_col_desc.COUNT LOOP
            DBMS_OUTPUT.PUT(RPAD(v_col_desc(j).col_name, 20)); -- 对齐显示
        END LOOP;
        DBMS_OUTPUT.PUT_LINE('');
        DBMS_OUTPUT.PUT_LINE(RPAD('-', v_col_desc.COUNT*20, '-'));
        
        -- 逐行读取并打印结果
        LOOP
            EXIT WHEN DBMS_SQL.FETCH_ROWS(v_cursor_id) = 0;
            
            FOR j IN 1 .. v_col_desc.COUNT LOOP
                CASE v_col_desc(j).col_type
                    WHEN 2 THEN 
                        DBMS_SQL.COLUMN_VALUE(v_cursor_id, j, v_number);
                        DBMS_OUTPUT.PUT(RPAD(NVL(TO_CHAR(v_number), 'NULL'), 20));
                    WHEN 12 THEN 
                        DBMS_SQL.COLUMN_VALUE(v_cursor_id, j, v_date);
                        DBMS_OUTPUT.PUT(RPAD(NVL(TO_CHAR(v_date, 'YYYY-MM-DD HH24:MI:SS'), 'NULL'), 20));
                    ELSE 
                        DBMS_SQL.COLUMN_VALUE(v_cursor_id, j, v_varchar);
                        DBMS_OUTPUT.PUT(RPAD(NVL(v_varchar, 'NULL'), 20));
                END CASE;
            END LOOP;
            DBMS_OUTPUT.PUT_LINE('');
        END LOOP;
        
        DBMS_SQL.CLOSE_CURSOR(v_cursor_id);
        DBMS_OUTPUT.PUT_LINE('');
    END LOOP;
EXCEPTION
    WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('错误信息: ' || SQLERRM);
        IF DBMS_SQL.IS_OPEN(v_cursor_id) THEN
            DBMS_SQL.CLOSE_CURSOR(v_cursor_id);
        END IF;
END;
/

注意事项 #

1. 先执行SET SERVEROUTPUT ON;开启DBMS_OUTPUT的输出功能（SQL*Plus、PL/SQL Developer等工具都支持）
2. 确保执行PL/SQL的用户有目标表的查询权限
3. 如果表名包含特殊字符或大小写敏感，要给表名加双引号，比如'"MY_CUSTOM_TABLE"'

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