Oracle 9i veritabanı verilerinin dışarıya CSV formatında taşınması

Oracle 9i veritabanından dışarıya CSV formatında tabloların verilerini almak için alttaki komutu çalıştırırak bir paket oluşturabilir ve ardından hangi tablolardan verilerin dışarıya CSV formatında alınması isteniyorsa o tabloları ve hedef dosya dizinini gösterek dışarıya CSV formatında alma işlemi başarıyla tamamlanır.

SQL Server üzerine migration gibi durumlarda Oracle 9i verilerinin taşınması istendiğinde oldukça hızlı ve eksiksiz bir çözüm sunmaktadır.

create or replace procedure dump_table_to_csv( p_tname in varchar2,

                                                  p_dir   in varchar2,

                                                  p_filename in varchar2 )

       is

          l_output        utl_file.file_type;

           l_theCursor     integer default dbms_sql.open_cursor;

          l_columnValue   varchar2(4000);

         l_status        integer;

           l_query         varchar2(1000)

                          default 'select * from ' || p_tname;

          l_colCnt        number := 0;

          l_separator     varchar2(1);

          l_descTbl       dbms_sql.desc_tab;

      begin

          l_output := utl_file.fopen( p_dir, p_filename, 'w' );

          execute immediate 'alter session set nls_date_format=''dd-mon-yyyy hh24:mi:ss'' ';

         dbms_sql.parse(  l_theCursor,  l_query, dbms_sql.native );

          dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );

           for i in 1 .. l_colCnt loop

             utl_file.put( l_output, l_separator || '"' || l_descTbl(i).col_name|| '"' );

             dbms_sql.define_column( l_theCursor, i, l_columnValue, 4000 );

             l_separator := ',';

          end loop;

          utl_file.new_line( l_output );

          l_status := dbms_sql.execute(l_theCursor);

           while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop

              l_separator := '';

              for i in 1 .. l_colCnt loop

                  dbms_sql.column_value( l_theCursor, i, l_columnValue );

                  utl_file.put( l_output, l_separator || l_columnValue );

                  l_separator := ',';

              end loop;

              utl_file.new_line( l_output );

         end loop;

         dbms_sql.close_cursor(l_theCursor);

          utl_file.fclose( l_output );

          execute immediate 'alter session set nls_date_format=''dd-MON-yy'' ';

     exception

         when others then

              utl_file.fclose( l_output );

  end;

   /

Ardından /tmp/ dizini altında test1.csv adında bir text dosyası oluturulmakta ve MVXCORSA şeması altındaki MITAU adlı tablonun içindeki veriler dışarıya alınmaktadır.

SQL> exec dump_table_to_csv('MVXCORSA.MITAU','/tmp/', 'test1.csv')