plsql查询oracle数据表时，将备注显示成列名 生成脚本

-- 定义要查询的表名
DECLARE
v_table_name VARCHAR2(100) := 'YOUR_TABLE_NAME';
v_sql VARCHAR2(4000);
v_column_list VARCHAR2(4000);
BEGIN
-- 初始化列列表
v_column_list := '';
-- 遍历表中的列，获取列名和注释
FOR col IN (
SELECT column_name, comments
FROM USER_COL_COMMENTS
WHERE table_name = UPPER(v_table_name)
) LOOP
-- 构建列列表，使用注释作为列名
IF v_column_list IS NOT NULL THEN
v_column_list := v_column_list || ', ';
END IF;
v_column_list := v_column_list || col.column_name || ' AS "' || col.comments || '"';
END LOOP;
-- 构建完整的SQL查询语句
v_sql := 'SELECT ' || v_column_list || ' FROM ' || v_table_name;
-- 输出构建好的SQL语句
DBMS_OUTPUT.PUT_LINE('Generated SQL: ' || v_sql);
-- 执行动态SQL语句
EXECUTE IMMEDIATE v_sql;
EXCEPTION
WHEN OTHERS THEN
-- 捕获并输出异常信息
DBMS_OUTPUT.PUT_LINE('Error: ' || SQLERRM);
END;
/