كيفية نقل ملفات الى اوركل

DECLARE
 j_number number(10);
 j_name varchar(200);
 j_job   varchar(200);
 j_mgr   number(10);
 j_minsal_s  varchar(200);
 j_maxsal_s  varchar(200);

 appid  pls_integer;
 convid pls_integer;
   j1 number := 1;
 j2 number := 1;
 j3 number := 1;
 j4 number := 1;
 j5 number := 1;
 j6 number := 1;
  rowcol  varchar(200);
 rowcol2 varchar(200);
 rowcol3 varchar(200);
 rowcol4 varchar(200);
 rowcol5 varchar(200);
 rowcol6 varchar(200);

 cursor mm is
	select empno,ename,job,mgr				  
	from emp;
BEGIN
 appid  := dde.app_begin('C:\Program Files\Microsoft Office\Office11\excel c:\abc.xls',
						 dde.app_mode_maximized);
 convid := dde.initiate('EXCEL', 'c:\abc.xls');
	open mm;

 loop
	fetch mm
		into j_number, j_name ,j_job, j_mgr;
		exit when mm%notfound;

	  rowcol  := 'R' || j1 || 'C1';
	  rowcol2 := 'R' || j2 || 'C2';
	  rowcol3 := 'R' || j3 || 'C3';
	  rowcol4 := 'R' || j4 || 'C4';
	  rowcol5 := 'R' || j5 || 'C5';
	  rowcol5 := 'R' || j6 || 'C6';																
   dde.poke(convid, rowcol,  j_number, dde.cf_text, 1000);
   dde.poke(convid, rowcol2, j_name, dde.cf_text, 1000);
   dde.poke(convid, rowcol3, j_job, dde.cf_text, 1000);
   dde.poke(convid, rowcol4, j_mgr,  dde.cf_text, 1000);

		 j1 := j1 + 1;
		j2 := j2 + 1;
		j3 := j3 + 1;
		j4 := j4 + 1;
		j5 := j5 + 1; 
		j6 := j6 + 1;
 end loop;
j5 := j5 + 1; 
j6 := j6 + 1;
 DDE.EXECUTE(convid, '[SAVE]', 99999);

end;

بس بصراحه انا مجربتش الكود بس اعتقد انه صح

ايهاب وجدى

اللى فات كان من الاوراكل الى الاكسل

و ده من الاكسل الى الاوراكل

DECLARE
  oo	 varchar(50);
  appid  pls_integer;
  convid pls_integer;
  nm	 number := 1;
  rowcol varchar(20);
BEGIN
  appid := dde.app_begin('C:\Program Files\Microsoft Office\Office11\excel c:\abc.xls',
  dde.app_mode_minimized);
  convid := dde.initiate('EXCEL', 'c:\abc.xls');
   loop
	rowcol := 'R' || nm || 'C1';
	dde.Request(convid, rowcol, oo, dde.cf_text, 99999);
	if length(oo) < 3 then
	  exit;
	end if;
	insert into ww values (oo);
	nm := nm + 1;
   end loop;
   commit;
   end;

ايهاب وجدى

السلام عليكم ورحمة الله وبركاتة

جزاك الله خيرا وانا هحاول اجرب الكود ان شاء الله

و يمكن ذلك ايضا عن طريق استخدام الODBC

في الاكسيس او الاكسل

و ذلك عن طريق عمل EXPORT من الضغط يمينا علي الجدول في الاكسيس ثم اختيار ODBC في خانة SAVE AS TYPE

ثم عمل السورس و اتباع التعليمات بالويزارد

كما يمكن ايضا استعمال DATA EXPORT AND IMORT WIZARD في الSQL SERVER لنقل ملفات الاكسيل الي اوراكل

بالتوفيق