Ini pake form oracle developer......
semoga bermanfaat.
DECLARE
AppID PLS_INTEGER;
ConvID PLS_INTEGER;
I number := 1;
terus number := 1;
Nilai number;
vfield varchar2(30);
BEGIN
:cg$ctrl.TXT_NAMAFILE := 'c:\struktur1.xls';--alamat file
AppID := DDE.App_Begin('C:\Program Files\Microsoft Office\Office\excel.exe'||'
'||:cg$ctrl.TXT_NAMAFILE, DDE.App_Mode_Minimized);
begin
ConvID := DDE.Initiate('EXCEL', :cg$ctrl.TXT_NAMAFILE);
EXCEPTION
WHEN DDE.DDE_INIT_FAILED THEN
MESSAGE('Could not initialize DDE communication channel.');
RAISE FORM_TRIGGER_FAILURE;
WHEN DDE.DMLERR_NO_CONV_ESTABLISHED THEN
MESSAGE('Could not establish DDE communication channel.');
RAISE FORM_TRIGGER_FAILURE;
WHEN OTHERS THEN
MESSAGE('Error: '||TO_CHAR(SQLCODE)||' '||SQLERRM);
RAISE FORM_TRIGGER_FAILURE;
END;
while terus = 1
loop
I := I + 1;
DDE.Request(ConvID, 'R'||I||'C2', vfield, DDE.CF_TEXT,1000);
synchronize;
insert into....
terus := 1;
end loop;
first_record;
DDE.Terminate(ConvID);
DDE.App_End(AppID);
END;
Reka <[EMAIL PROTECTED]> wrote:Dear all,
Nanya donk, utk ambil data dr excel ke oracle gimana caranya?
thx
RekA
--
-----------I.N.D.O - O.R.A.C.L.E---------------
Keluar: [EMAIL PROTECTED]
Website: http://indo-oracle.lizt.org (NEW)
-----------------------------------------------
Bergabung dengan Indonesia Thin Client User Groups,
Terminal Server, Citrix, New Moon Caneveral, di:
http://indo-thin.vze.com
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indo-oracle" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
Yahoo! Music Unlimited - Access over 1 million songs. Try it free.
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life.
http://us.click.yahoo.com/A77XvD/vlQLAA/TtwFAA/PhFolB/TM
--------------------------------------------------------------------~->
--
-----------I.N.D.O - O.R.A.C.L.E---------------
Keluar: [EMAIL PROTECTED]
Website: http://indo-oracle.lizt.org (NEW)
-----------------------------------------------
Bergabung dengan Indonesia Thin Client User Groups,
Terminal Server, Citrix, New Moon Caneveral, di:
http://indo-thin.vze.com
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indo-oracle/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
