Benutzer-Werkzeuge

Webseiten-Werkzeuge


prog:plsql_spool_csv_apex

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen Revision Vorhergehende Überarbeitung
prog:plsql_spool_csv_apex [2016/10/31 13:34]
gpipperr
prog:plsql_spool_csv_apex [2016/10/31 13:34] (aktuell)
gpipperr [Quellen]
Zeile 1: Zeile 1:
 +=====Oracle PL/SQL - APEX - CSV Datei aus der DB mit DBMS_XMLGEN.CONVERT erzeugen =====
  
 +Unter http://www.apex-at-work.com/2015/02/custom-csv-export-in-apex.html habe ich eine sehr gute Idee für das einfache Erzeugen eines CSV Exports gefunden.
 +
 +
 +
 +
 +Hier das ganz auf größere Dateien umgebaut:
 +<code plsql>
 +declare
 +  -- ============================================
 +  -- First version => thanks to from http://www.apex-at-work.com/2015/02/custom-csv-export-in-apex.html
 +  -- read the parameter as clob
 +  -- ============================================
 +  v_blob blob;
 +  v_clob clob;
 +  v_tmp_clob clob;
 +  v_dest_offset  integer := 1;
 +  v_src_coffset  integer := 1;
 +  v_lang_context integer := dbms_lob.default_lang_ctx;
 +  v_warning      integer;
 +  v_length       integer;
 +  v_task         varchar2(200);
 +  v_row_count pls_integer :=0;
 +  v_chunk_size pls_integer:=200000;
 +  v_reads pls_integer     :=0;
 +  v_offset pls_integer    :=0;
 +  v_debug_loop_counter   pls_integer:=0;
 +  
 +begin
 +
 +  v_task:=apex_util.get_session_state('P26_EXPORT_TASK');
 +  -- create new temporary blob
 +  dbms_lob.createtemporary(v_blob, false);
 +
 +  begin
 +  
 +   v_clob:='PARAM_TABLE_NAME;PARAM_01;PARAM_02;PARAM_03;PARAM_04;PARAM_05;PARAM_06;PARAM_07;PARAM_08;PARAM_09;PARAM_10;PARAM_11;PARAM_12;PARAM_13;PARAM_14;PARAM_15;PARAM_16;PARAM_17;PARAM_18;PARAM_19;PARAM_20;PARAM_21;PARAM_22;PARAM_23;PARAM_24;PARAM_25;PARAM_26;PARAM_27;PARAM_28;PARAM_29;PARAM_30'||pkg_admin_props.G_CTRL;
 +            
 +    --Select CLOB
 +    if v_task='I_TABLE' then
 +
 +      select count(*) into v_row_count from crr_admin.t_param_i_backup;
 +
 +      -- how often we have to loop over the data
 +      v_reads:=ceil(v_row_count/v_chunk_size);
 +      for i  in 1 .. v_reads
 +      loop
 +        
 +         SELECT  DBMS_XMLGEN.CONVERT(XMLAGG(XMLELEMENT(E,COL_VALUE||CHR(13)||CHR(10))).EXTRACT('//text()').GETCLOBVAL(),1) into v_tmp_clob
 +           FROM  (
 +              SELECT PARAM_TABLE_NAME||';'||PARAM_01||';'||PARAM_02||';'||PARAM_03||';'||PARAM_04||';'||PARAM_05||';'||PARAM_06||';'||PARAM_07||';'||PARAM_08||';'||PARAM_09||';'||PARAM_10||';'||PARAM_11||';'||PARAM_12||';'||PARAM_13||';'||PARAM_14||';'||PARAM_15||';'||PARAM_16||';'||PARAM_17||';'||PARAM_18||';'||PARAM_19||';'||PARAM_20||';'||PARAM_21||';'||PARAM_22||';'||PARAM_23||';'||PARAM_24||';'||PARAM_25||';'||PARAM_26||';'||PARAM_27||';'||PARAM_28||';'||PARAM_29||';'||PARAM_30
 +             as COL_VALUE
 +             FROM crr_admin.T_PARAM_I_BACKUP
 +             ORDER BY 1 desc OFFSET v_offset ROWS FETCH NEXT v_chunk_size ROWS ONLY
 +            );
 +                       
 +        v_offset:=v_offset+v_chunk_size ;
 +        
 +       v_clob:=v_clob||v_tmp_clob;
 +       v_debug_loop_counter:=i;
 +
 +      end loop;
 +   
 +    end if;
 +
 +  exception
 +  when others then
 +    raise_application_error(-20001 , '-- Error read DATA at::'||$$plsql_unit||'v_row_count:='||v_row_count||' v_offset:='||v_offset||' v_reads::'||v_reads||' v_debug_loop_counter'||v_debug_loop_counter||' Error::'||sqlerrm);
 +  end;
 +
 +  begin
 +    -- tranform the input CLOB into a BLOB of the desired charset
 +    dbms_lob.converttoblob( dest_lob => v_blob
 +                            , src_clob => v_clob
 +                           , amount => dbms_lob.lobmaxsize
 +                           , dest_offset => v_dest_offset
 +                           , src_offset => v_src_coffset
 +                           , blob_csid => nls_charset_id('WE8MSWIN1252') --nls_charset_id('AL16UTF16')
 +                           , lang_context => v_lang_context
 +                           , warning => v_warning );
 +
 +  exception
 +  when others then
 +    raise_application_error(-20001 , '-- Error create BLOB ::'||$$plsql_unit||' :: '||sqlerrm);
 +  end;
 +
 +  -- determine length for header
 +  v_length := dbms_lob.getlength(v_blob);
 +
 +  -- first clear the header
 +  htp.flush;
 +  htp.init;
 +
 +  -- create response header
 +  owa_util.mime_header( 'text/csv', false, 'ISO-8859-1' ); --application/octet-stream -- UTF8
 +
 +  htp.p('Content-length: ' || v_length);
 +  htp.p('Content-Disposition: attachment; filename="CRR_parameter_export.csv"');
 +  htp.p('Set-Cookie: fileDownload=true; path=/');
 +
 +  owa_util.http_header_close;
 +
 +  -- download the BLOB
 +  wpg_docload.download_file( v_blob );
 +
 +
 +  insert
 +  into crr_admin.t_p_import_historie
 +    (
 +      id
 +    , import_task
 +    , import_user
 +    , import_date
 +    )
 +    values
 +    (
 +      t_p_import_historie_seq.nextval
 +    , pkg_admin_props.g_export_csv_param
 +    , nvl(sys_context('APEX$SESSION','APP_USER'),sys_context('USERENV','PROXY_USER'))
 +    , sysdate
 +    );
 +
 +  commit;
 +
 +  -- stop APEX
 +  apex_application.stop_apex_engine;
 +
 +exception
 +when others then
 +  dbms_lob.freetemporary(v_blob);
 +  raise;
 +end;
 +</code>
 +
 +
 +Das ganze wird in der "Pre-Rendering/Before Header" auf der Apex Page hinterlegt und damit als erstes in der Seite aufgerufen.
 +
 +
 +----
 +
 +==== Quellen ====
 +
 +  * http://www.apex-at-work.com/2015/02/custom-csv-export-in-apex.html
"Autor: Gunther Pipperr"
prog/plsql_spool_csv_apex.txt · Zuletzt geändert: 2016/10/31 13:34 von gpipperr