اريد بروجير يحول من اكسل الى ويضيف في جدول اوركل
من خلال الفورم ورجو ان يكون مرفق مثال على جدول dept مثلا وملف مرفق

راجع text_IO
هتلاقيها بتتعامل كويس مع القراءة والكتابة في ملفات الاكسل أو txt

اريد مثال مرفق على جدول dept

الحل مع " العنزاوي"
يوجد برنامج خاص يقوم بالسحب من excel sheet الى oracle واسمه wizport يمكنك تنزياه من الانترنت

ارجو تجربة هذا المثال على جدول واعطائ ملف مرفق حيث انني قمت بالتجربة واعطى رسالة خطأ !!!!
PROCEDURE get_from_xls IS

CONVID PLS_INTEGER;
APPID PLS_INTEGER;
i number;
x number;
v_name VARCHAR2(100);
v_BRN varchar2(10);
v_NO varchar2(10);

OUT_FILR TEXT_IO.FILE_TYPE;
BEGIN

synchronize;
-- Appid := dde.app_begin('C:\Program Files\Microsoft Office\Office\excel.exe C:\ora_xls\creadit.xls',dde.app_mode_minimized);
Appid := dde.app_begin('C:\Program Files\Microsoft Office\Office\excel.exe C:\oracle_excel\EMP_ALL.xls',dde.app_mode_minimized);

dde.app_focus(appid);
convid := dde.initiate('EXCEL',:BLOCK2.SHEET_NAME);

x := 0;

FOR I IN 2..100000 loop

dde.request(convid,'R' || to_char(i) ||'C1',v_brn,dde.cf_text,100000);
dde.request(convid,'R' || to_char(i) ||'C2',v_no,dde.cf_text,100000);
dde.request(convid,'R' || to_char(i) ||'C3',v_name,dde.cf_text,100000);

if substr(v_NAME,1,length(v_NAME)-2) is null then exit;
end if;

insert into employee(
NO ,
AR_NAME ,
CTY_NO ,
CTY_CTRY_NO ,
CTY_NO_RES ,
CTY_CTRY_NO_RES ,
CTRY_NO ,
DEPT_BRN_NO ,
DEPT_NO ,
EN_NAME ,
DOB ,
MARITAL_STATUS ,
EDUCATIONAL_STATUS ,
SEX ,
APPOINTMENT_DATE ,
IS_EMPLOYEE ,
BASIC_SAL ,
HAVE_SALES_ALL ,
OLD_VACATIONS_BAL ,
VACATIONS_BAL ,
RES_NO ,
RES_DATE ,
RES_END_DATE ,
CONTRACT_END_DATE ,
JT_NO)
VALUES(
TO_NUMBER(substr(v_NO,1,length(v_NO)-2)),
substr(v_NAME,1,length(v_NAME)-2),
1,
1,
1,
1,
1,
TO_NUMBER(substr(v_BRN,1,length(v_BRN)-2)),
1,
'NA',
SYSDATE,
1,
1,
1,
SYSDATE,
1,
0,
1,
0,
0,
1,
SYSDATE,
SYSDATE,
SYSDATE,
1);

x:= x + 1;
end loop;
COMMIT;
dde.terminate(convid);
dde.app_end(appid);
END;

----------------

هذا البروسيجر يعطى error
هل احد يقوم بتقويم ويعطينا الحل في ملف مرفق
وشكر

ملف مرفق لبروسيجر

get_from_excel.txt

اين الاخ عبداللطيف

تحياتي للجميع

الاخ abdul_twab سوف اراجع البروسيجر الذي اضفته منذ فترة مع ملف execel لان البروسيجر الذي اضفته كان محدد لملف معين

وشكراً

جزاك الله كل الخير في الدينا والاخرة

الحل مع " العنزاوي"
يوجد برنامج خاص يقوم بالسحب من excel sheet الى oracle واسمه wizport يمكنك تنزياه من الانترنت

ممكن و صلة اخي