在不知道记录的列名的情况下打印 TABLE OF RECORDS TYPE 的值

Question

我创建了一个过程，它使用一个视图来打印（到 CSV），该视图的所有记录。 任何用户都可以删除并重新创建该视图，因此其列结构可以更改

有没有办法将 VIEW 的所有记录提取到集合中 并在不知道所有列名/不依赖列的情况下打印该集合的元素。

如果有什么办法，那么当我们的表也有几百列的时候也可以使用它。 这个问题已经问过我很多次了，但我找不到答案，现在每次我需要将不同的表转存到 csv 文件时，我都必须编辑我的程序

我通常用于假脱机的代码采用所有列名：-

cursor c1 is
select * 
from table1 nvr;
  
TYPE alldata_typ IS table of c1%rowtype;
    v_dta       alldata_typ;
  
BEGIN
  
  v_fname  := 'swe_WRF_.csv';

    v_file   := UTL_FILE.FOPEN('CDMP_OUT_DIR', v_fname, 'W');

    v_header :=  'FSA_CODE,FSA_NAME,PROVINCE,MAKE,SERIES,REPORT_YEAR,VEHICLE_COUNT';

    UTL_FILE.PUT_LINE(v_file, v_header);
  
  OPEN c1;
  loop
    FETCH c1 BULK COLLECT

     INTO v_dta LIMIT v_fetch_limit;

     exit when v_dta.count=0 ;

     
    FOR i IN 1..v_dta.count 
    LOOP

        UTL_FILE.PUT_LINE(v_file, 
                            v_dta(i).fsa_code ||', '||
                            v_dta(i).fsa_name ||', '||
                            v_dta(i).province ||', '||
                            v_dta(i).make ||', '||
                            v_dta(i).series ||', '||
                            v_dta(i).report_year ||','||
                            v_dta(i).vehicle_count
                            );

        v_count := v_count + 1;
end loop;
;

Answer 1

您需要使用动态 SQL 将所有列生成为 csv。 我重写了你的代码如下。希望对你有用。

declare
  v_cmd        varchar(4000);
  c1           SYS_REFCURSOR;
  v_tab_name   varchar2(100) := upper('TABLE_NAME');
  v_owner_name varchar2(100) := upper('OWNER_NAME');
  type record_type is record(
    line_data varchar2(4000));
  TYPE alldata_typ IS table of record_type;
  v_dta         alldata_typ;
  v_fname       varchar2(20);
  V_HEADER      varchar2(20);
  V_FETCH_LIMIT integer := 100;
  V_COUNT       integer;
BEGIN

  v_fname := 'swe_WRF_.csv';

  v_file   := UTL_FILE.FOPEN('CDMP_OUT_DIR', v_fname, 'W');

  select listagg(COLUMN_NAME, ',') within group(order by COLUMN_ID)
    into v_header --create header with all column
    from all_tab_columns
   where table_name = v_tab_name
     and OWNER = v_owner_name;

  UTL_FILE.PUT_LINE(v_file, v_header);

  select 'select ' || listagg(COLUMN_NAME, '||'', ''||') within group(order by COLUMN_ID) || ' as line_data from ' || v_tab_name
    into v_cmd --generate select statement
    from all_tab_columns
   where table_name = v_tab_name
     and OWNER = v_owner_name;

  OPEN c1 for v_cmd;
  loop
    FETCH c1 BULK COLLECT
    
      INTO v_dta LIMIT v_fetch_limit;
  
    exit when v_dta.count = 0;
  
    FOR i IN 1 .. v_dta.count LOOP
    
      UTL_FILE.PUT_LINE(v_file, 
                          v_dta(i).line_data
                         );
      --dbms_output.put_line(v_dta(i).line_data);
      v_count := v_count + 1;
    end loop;
  END LOOP;
end;

Answer 2

如果您使用的是 UTL_FILE，那么您就是在数据库服务器上写出文件。如果它只是 CSV，那么您可以使用调度程序从数据库直接运行 SQL*Plus 命令。

更多详情在这里https://connor-mcdonald.com/2018/06/20/the-death-of-utl_file/

但本质上，调度程序可以运行 SQL*Plus 会话，该会话还支持输出上的 CSV 标记。对于更大的数据量，它可能会比 UTL_FILE 快很多。