SQL convet .csv

Question

PROCEDURE PROC_EXCEL (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 
tmp:=tmp||chr(10);
text_io.put(file_nm,tmp);
tmp:='';
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;
Edited by: 928060 on 2012/8/30 下午 6:31

Answer 1

Hi,
What is the problem? What can anyone do with your code if you do not articulate your problem or what error you are getting?
What is your Forms version?