اريد تحويل بيانات من اكسل الى جدول في الاوراكل

[abdul_twab]

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

[Momen]

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

[abdul_twab]

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

[mobaid]

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

[abdul_twab]

ارجو تجربة هذا المثال على جدول واعطائ ملف مرفق حيث انني قمت بالتجربة واعطى رسالة خطأ !!!!
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;

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

[abdul_twab]

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

[abdul_twab]

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

get_from_excel.txt

[abdul_twab]

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

[عبداللطيف]

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

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

وشكراً

[abdul_twab]

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

[muh_adas2005]

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

ممكن و صلة اخي