Home » Developer & Programmer » Forms » help me in transfer data from forms to xls
help me in transfer data from forms to xls [message #86393] Mon, 27 September 2004 21:42 Go to next message
shish mate
Messages: 49
Registered: February 2004
Member
can any one tell me how can i create .xls not csv file from oracle forms help me

Report message to a moderator

Re: help me in transfer data from forms to xls [message #86398 is a reply to message #86393] Tue, 28 September 2004 01:36 Go to previous messageGo to next message
AB
Messages: 41
Registered: July 2002
Member
Use file handling.
CLIENT_TEXT_IO.FOPEN /*To open the type of file you want*/
CLIENT_TEXT_IO.PUT /*Write to the opened file*/
CLIENT_TEXT_IO.FCLOSE /*Close the file*/

Regards
AB

Report message to a moderator

Re: help me in transfer data from forms to xls [message #86416 is a reply to message #86398] Tue, 28 September 2004 19:40 Go to previous message
shish mate
Messages: 49
Registered: February 2004
Member
my code is like this u can try this with table scott.emp but it only trans. numaric rows and not varchar rows plzzzzzzz help me yaar.

DECLARE

X NUMBER := 3;
Y NUMBER := 2;
ofile text_io.file_type;
FILE VARCHAR(100);
cursor a is select * from SCOTT.emp ;

BEGIN
FILE := 'C:WINDOWSDesktopXXX.XLS';
OFILE := TEXT_IO.FOPEN(FILE,'W');

text_io.put_line(ofile,'ID;PWXL;N;E);');
TEXT_IO.PUT_LINE(OFILE,'P;PGeneral');
TEXT_IO.PUT_LINE(OFILE,'P;P0');
TEXT_IO.PUT_LINE(OFILE,'P;P0.00');
TEXT_IO.PUT_LINE(OFILE,'P;P#,##0');
TEXT_IO.PUT_LINE(OFILE,'P;P#,##0.00');
TEXT_IO.PUT_LINE(OFILE,'P;P#,##0_);;(#,##0)');
TEXT_IO.PUT_LINE(OFILE,'P;P#,##0_);;[[Red]](#,##0)');
TEXT_IO.PUT_LINE(OFILE,'P;P#,##0.00_);;(#,##0.00)');
TEXT_IO.PUT_LINE(OFILE,'P;P#,##0.00_);;[[Red]](#,##0.00)');
TEXT_IO.PUT_LINE(OFILE,'P;P"$"#,##0_);;("$"#,##0)');
TEXT_IO.PUT_LINE(OFILE,'P;P"$"#,##0_);;[[Red]]("$"#,##0)');
TEXT_IO.PUT_LINE(OFILE,'P;P"$"#,##0.00_);;("$"#,##0.00)');
TEXT_IO.PUT_LINE(OFILE,'P;P"$"#,##0.00_);;[[Red]]("$"#,##0.00)');
TEXT_IO.PUT_LINE(OFILE,'P;P0%');
TEXT_IO.PUT_LINE(OFILE,'P;P0.00%');
TEXT_IO.PUT_LINE(OFILE,'P;P0.00E+00');
TEXT_IO.PUT_LINE(OFILE,'P;P##0.0E+0');
TEXT_IO.PUT_LINE(OFILE,'P;P# ?/?');
TEXT_IO.PUT_LINE(OFILE,'P;P# ??/??');
TEXT_IO.PUT_LINE(OFILE,'P;Pdd/mm/yyyy');
TEXT_IO.PUT_LINE(OFILE,'P;Pdd/mmm/yy');
TEXT_IO.PUT_LINE(OFILE,'P;Pdd/mmm');
TEXT_IO.PUT_LINE(OFILE,'P;Pmmm/yy');
TEXT_IO.PUT_LINE(OFILE,'P;Ph:mm AM/PM');
TEXT_IO.PUT_LINE(OFILE,'P;Ph:mm:ss AM/PM');
TEXT_IO.PUT_LINE(OFILE,'P;Ph:mm');
TEXT_IO.PUT_LINE(OFILE,'P;Ph:mm:ss');
TEXT_IO.PUT_LINE(OFILE,'P;Pdd/mm/yyyy h:mm');
TEXT_IO.PUT_LINE(OFILE,'P;Pmm:ss');
TEXT_IO.PUT_LINE(OFILE,'P;Pmm:ss.0');
TEXT_IO.PUT_LINE(OFILE,'P;P@');
TEXT_IO.PUT_LINE(OFILE,'P;P[[h]]:mm:ss');
TEXT_IO.PUT_LINE(OFILE,'P;P_("$"* #,##0_);;_("$"* (#,##0);;_("$"* "-"_);;_(@_)');
TEXT_IO.PUT_LINE(OFILE,'P;P_(* #,##0_);;_(* (#,##0);;_(* "-"_);;_(@_)');
TEXT_IO.PUT_LINE(OFILE,'P;P_("$"* #,##0.00_);;_("$"* (#,##0.00);;_("$"* "-"??_);;_(@_)');
TEXT_IO.PUT_LINE(OFILE,'P;P_(* #,##0.00_);;_(* (#,##0.00);;_(* "-"??_);;_(@_)');
TEXT_IO.PUT_LINE(OFILE,'P;FArial;M200');
TEXT_IO.PUT_LINE(OFILE,'P;FArial;M200');
TEXT_IO.PUT_LINE(OFILE,'P;FArial;M200');
TEXT_IO.PUT_LINE(OFILE,'P;FArial;M200');
TEXT_IO.PUT_LINE(OFILE,'P;EArial;M200;SB');
TEXT_IO.PUT_LINE(OFILE,'P;EArial;M200;SI');
TEXT_IO.PUT_LINE(OFILE,'P;EArial;M200;SU');
TEXT_IO.PUT_LINE(OFILE,'P;EArial;M200');
TEXT_IO.PUT_LINE(OFILE,'P;EArial;M220');
TEXT_IO.PUT_LINE(OFILE,'P;EArial;M400');
TEXT_IO.PUT_LINE(OFILE,'P;ECG Times;M400');
TEXT_IO.PUT_LINE(OFILE,'P;EMarigold;M400');
TEXT_IO.PUT_LINE(OFILE,'P;EArial;M400');
TEXT_IO.PUT_LINE(OFILE,'F;P0;DG0G8;M255');
TEXT_IO.PUT_LINE(OFILE,'B;Y15;X8;D0 0 14 7');
TEXT_IO.PUT_LINE(OFILE,'O;L;D;V0;K47;G100 0.001');
/*TEXT_IO.PUT_LINE(OFILE,'F;M495;R11');

TEXT_IO.PUT_LINE(OFILE,'C;Y1;X5;K"EMP TABLE DETAILS IN XLS FILE"');*/

FOR I IN A LOOP
Y := Y+1;
X := X+1;

/* TRASNFER OF EMPNO' */
TEXT_IO.PUT_LINE(OFILE,'O;L;D;V0;K47;G100 0.001');
TEXT_IO.PUT_LINE(OFILE,'C;Y'||Y||';X1;K'||I.EMPNO);

-----transfr of job
/*TEXT_IO.PUT_LINE(OFILE,'F;P0;FG0C;SSM0;Y'||Y||';X5');
TEXT_IO.PUT_LINE(OFILE,'C;K '||I.JOB);*/

END LOOP;

TEXT_IO.PUT_LINE(OFILE,'C;Y'||Y||';X4;K108172;ESUM(R[[-14]]C:R[[-1]]C)');


/* END OF TRANFER*/
/*TEXT_IO.PUT_LINE(OFILE,'F;P0;FG0C;SDSM6;X6');
TEXT_IO.PUT_LINE(OFILE,'C;K"JOB"');
TEXT_IO.PUT_LINE(OFILE,'F;P0;FG0C;SIM6;X7');
TEXT_IO.PUT_LINE(OFILE,'C;K"SAL"');
TEXT_IO.PUT_LINE(OFILE,'F;P0;FG0C;SSM7;X8');
TEXT_IO.PUT_LINE(OFILE,'C;K"DEPTNO"');*/
TEXT_IO.PUT_LINE(OFILE,'F;SIM6;Y8;X1');
TEXT_IO.PUT_LINE(OFILE,'F;P0;FG0C;SM8;Y9');
TEXT_IO.PUT_LINE(OFILE,'F;P0;FG0C;SM13;Y11');
TEXT_IO.PUT_LINE(OFILE,'F;X2');
TEXT_IO.PUT_LINE(OFILE,'F;X3');
TEXT_IO.PUT_LINE(OFILE,'F;X4');
TEXT_IO.PUT_LINE(OFILE,'F;X5');
TEXT_IO.PUT_LINE(OFILE,'F;X6');
TEXT_IO.PUT_LINE(OFILE,'F;X7');
TEXT_IO.PUT_LINE(OFILE,'F;X8');
TEXT_IO.PUT_LINE(OFILE,'F;SDM5;Y15;X1');
TEXT_IO.PUT_LINE(OFILE,'E');

Text_io.fclose(ofile);

END;

Report message to a moderator

Previous Topic: how to add the hrs at the end of each month?
Next Topic: Problem in Forms MDI Window
Goto Forum:
  

[ Syndicate this forum (XML) ] [ RSS ]

Current Time: Sat Feb 01 00:01:00 CST 2025
.:: Forum Home :: Blogger Home :: Wiki Home :: Contact :: Privacy ::.