1 創(chuàng)建directory
? create or replace directory DIR
? as 'd:\temp';
? 為用戶(hù)賦予該directory的權(quán)限 grant all on directroy dir to public; 2 創(chuàng)建函數(shù)function create or replace function tofile(p_query in varchar2,
????????????????????????????????? p_separator in varchar2,
????????????????????????????????? p_dir in varchar2,
????????????????????????????????? p_filename in varchar2)
return number
is
? l_cursor????? integer default dbms_sql.open_cursor;
? l_output????? utl_file.file_type;
? l_columnValue varchar2(2000);
?l_status????? integer;
? l_colCnt????? number default 0;?
? l_separator?? varchar2(10) default '';
? l_cnt number? default 0;
? rec_tab?????? dbms_sql.desc_tab;
? col_num?????? number;
begin
? l_output := utl_file.fopen( p_dir,p_filename,'w' );
? dbms_sql.parse( l_cursor ,p_query, dbms_sql.native );?
? /*寫(xiě)入該SQL查詢(xún)結(jié)果的列名,以空格隔開(kāi)*/
? dbms_sql.describe_columns(l_cursor,l_colCnt,rec_tab);
? col_num := rec_tab.first;
? if( col_num is not null) then
???? loop
?????? utl_file.put( l_output , l_separator||rec_tab(col_num).col_name);
?????? col_num := rec_tab.next(col_num);
?????? l_separator :=' ';
????? EXIT WHEN (col_num IS NULL);
???? end loop;
? end if;
??? utl_file.new_line( l_output ); ? /*寫(xiě)入SQL查詢(xún)結(jié)果的列值*/
? for i in 1.. l_colCnt loop????
???????? dbms_sql.define_column( l_cursor , i,
???????????????????????????????? l_columnValue,2000);??????
? end loop;
? l_status :=dbms_sql.execute(l_cursor);
? loop
???? exit when ( dbms_sql.fetch_rows( l_cursor ) <= 0 );
???? l_separator :='';
???? for i in 1 .. l_colCnt loop????????????
??????? dbms_sql.column_value( l_cursor ,i,
????????????????????????????? l_columnValue);
??????? utl_file.put( l_output , l_separator || l_columnValue );?????
??????? l_separator := p_separator;
???? end loop;
???? utl_file.new_line( l_output );
???? l_cnt := l_cnt+1;
? end loop; dbms_sql.close_cursor( l_cursor );
? utl_file.fclose( l_output );
? return l_cnt;
end tofile; 3 創(chuàng)建執(zhí)行該function的存儲(chǔ)過(guò)程procedure create or replace procedure test_tofile
as
??? l_rows?????? number;
??? l_filename?? varchar2(100);
??? v_sql??????? varchar2(100);
??? l_temp?????? varchar2(100);
begin
??? v_sql := 'select to_char(sysdate,''yyyymmdd'') from dual'; EXECUTE IMMEDIATE v_sql
??????????????? INTO l_temp; l_filename := 'dbperform_'|| l_temp || '.txt';
?? l_rows := tofile( 'SELECT fs.tablespace_name TABLESPACE_NAME,
????????????????????????????? df.totalspace TABLESPACE_TOTAL_SIZE,
????????????????????????????? (df.totalspace - fs.freespace) MB_USED,
????????????????????????????? fs.freespace MB_FREE,
????????????????????????????? round(100 * (fs.freespace / df.totalspace),2) PCT_FREE
?????????????????????? FROM
?????????????????????? (SELECT tablespace_name, ROUND(SUM(bytes) / 1048576) TotalSpace FROM dba_data_files GROUP BY tablespace_name ) df,
?????????????????????? (SELECT tablespace_name, ROUND(SUM(bytes) / 1048576) FreeSpace FROM dba_free_space GROUP BY tablespace_name ) fs
??????????????????????? WHERE df.tablespace_name = fs.tablespace_name(+)
??????????????????????? order by PCT_FREE ASC',
??????????????????????? ',', 'DIR', l_filename ); dbms_output.put_line(l_rows);
end; /*這里的'DIR'指明了directory dir,不過(guò),由于是在WINDOWS環(huán)境,需要大寫(xiě)該directory名*/

4 調(diào)用該存儲(chǔ)過(guò)程 SQL>exec test_tofile();

轉(zhuǎn)載于:https://www.cnblogs.com/WindyGu/archive/2013/03/06/2946317.html

總結(jié)

以上是生活随笔為你收集整理的[Oracle 学习] Oracle中将查询语句执行结果导入文本文件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。