[export excel]Oracle Form導入sql查詢再導出CSV查詢結果( Using EXEC_SQL Package)

功能描述：一個簡單的Form，將調試好的SQL文本導入到Form文字框，再將SQL結果導出成CSV文件。

關鍵技朮：EXEC_SQL包的使用 

 

FORM_DLL函數與EXEC_SQL包總結(摘自网頁)：

 

一、FORMS_DDL函数 FUNCTION FORMS_DDL(statement VARCHAR2); 用于动态执行SQL语句与PL/SQL语句 注意事项： 1、参数statement的最大容量不能超过32K。 2、DDL类型的SQL语句，暗含一个commit命令。 二、EXEC_SQL包 用于动态执行DDL类型与DML类型的SQL语句。 EXEC_SQL包的一般使用步聚: 第一步:连接数据库: EXEC_SQL.Open_Connection /EXEC_SQL.Default_Connection 第二步:创建一个指针变量(游标): EXEC_SQL.Open_Cursor 第三步:为指针变量加载一个SQL语句(DDL、DML): EXEC_SQL.Open_Cursor 第四步:执行所加载一个SQL语句: EXEC_SQL.Execute 第五步:批量针变量(游标)与关闭数据库连接: EXEC_SQL.Is_Open、EXEC_SQL.Close_Cursor、EXEC_SQL.Close_Cursor、EXEC_SQL.Close_Cursor 三、总结 1、FORMS_DDL函数主要用于动态执行DDL类型的SQL语句(可以理解为因FORM中不能直接使用DDL类型的SQL语句。)。FORMS_DDL函数只能作用于当前FORM所连接的数据库。 2、EXEC_SQL包主要有两个重要用途： 第一：用于动态执行select语句并返回一个结果集。 第二：用于不同数据库之间数据访问。  

 

 

 

相關代碼：

[Import SQL Text] Button : WHEN-BUTTON-PRESSED

DECLARE dirname VARCHAR2(255); v_filename VARCHAR2(255); in_file Text_IO.File_Type; in_file_nm Text_IO.File_Type; in_file_nm2 Text_IO.File_Type; v_line VARCHAR2(1000); v_lines VARCHAR2(4000); BEGIN TOOL_ENV.GETVAR('TXT',DIRNAME); V_FILENAME:=GET_FILE_NAME(DIRNAME,NULL, 'SQL script (*.sql)|*.sql|' || 'ALL FILES (*.*)|*.*|' ); IF V_FILENAME IS NOT NULL THEN in_file_nm := Text_IO.Fopen( V_FILENAME,'r'); BEGIN loop Text_IO.Get_Line(in_file_nm, v_line); IF V_LINES IS NULL THEN V_LINES:=v_line; ELSE V_LINES:=V_LINES||' '||v_line; END IF; END LOOP; EXCEPTION WHEN no_data_found THEN Text_IO.Fclose(in_file_NM); END; :CON.SQL_DESC:=V_LINES; SYNCHRONIZE; TEXT_IO.FCLOSE(in_file_NM); END IF; END;  

 

[OK] Button to export CSV file : WHEN-BUTTON-PRESSED

DECLARE T_SQL VARCHAR2(8000); T_ALT NUMBER; BEGIN IF :CON.SQL_DESC IS NULL OR :CON.FILE_PATH IS NULL THEN T_ALT := SHOW_ALERT('L_FILE'); GO_ITEM('CON.FILE_PATH'); ELSE T_SQL:=:CON.SQL_DESC; BEGIN LP_SAVE_EXCEL0(:CON.FILE_PATH,T_SQL); --output excel EXCEPTION WHEN OTHERS THEN --MESSAGE(T_SQL); MESSAGE('EXPORT EXCEL ERROR..'||SQLERRM); END; HOST('EXPLORER '||:CON.FILE_PATH); GO_BLOCK('CON'); END IF; END; ---------------------------------------------------------- PROCEDURE LP_SAVE_EXCEL0 (t_file varchar2, t_sql varchar2) IS connection_id EXEC_SQL.CONNTYPE default exec_sql.default_connection; cursorID EXEC_SQL.CURSTYPE; nIgn number; columnValue varchar2(10000); ncols number; sep varchar2(1); colName varchar2(1000); colLen number; coltype number; tmp varchar2(32767); file_nm text_io.file_type; BEGIN file_nm := text_io.fopen(t_file,'w'); --tmp := t_label||chr(13); --text_io.put(file_nm,tmp); tmp:=''; cursorID := EXEC_SQL.OPEN_CURSOR; BEGIN EXEC_SQL.PARSE(cursorID, t_sql, exec_sql.V7); nIgn := EXEC_SQL.EXECUTE(cursorID); EXCEPTION WHEN OTHERS THEN MESSAGE('EXEC SQL ERROR, PLEASE CHECK YOUR SQL SCRIPT.. '||SQLERRM); END; sep := ''; for i in 1 .. 100000 loop begin exec_sql.describe_column(connection_id, cursorId, i, colName, colLen, colType); exec_sql.define_column(cursorID, i, columnValue, 40000); --title tmp:= tmp || sep ||colName; sep := ','; exception when exec_sql.invalid_column_number then ncols := i-1; exit; end; end loop; --output title if (exec_sql.fetch_rows(cursorID) > 0) then tmp:=tmp||chr(10); text_io.put(file_nm,tmp); tmp:=''; end if; while (exec_sql.fetch_rows(cursorID) > 0) loop sep := ''; for i in 1 .. ncols loop EXEC_SQL.COLUMN_VALUE(cursorID, i, columnValue); tmp:= tmp || sep || columnValue; sep := ','; end loop; tmp:=tmp||chr(10); tmp:=convert(tmp,'ZHT16BIG5','UTF8'); text_io.put(file_nm,tmp); tmp:=''; END LOOP; text_io.fclose(file_nm); EXEC_SQL.CLOSE_CURSOR(cursorID); EXEC_SQL.CLOSE_CONNECTION; END;