كيف يمكن تظبيط ال ODBC لربط ميكروسوفت اكسس مع اوراكل ؟
يوجد سيرفر عليه داتابيز اوراكل وممكن اتصل به عن طريق ال Toad and SQL ولكن عند محاولة الاتصال به من خلال MS Access Data Link لا تعمل و تعطى رسالة ODBC Connection Failed
ارجوا المساعدة
شكرا مقدما

see this link http://www.orafaq.com/node/60

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

DECLARE
CURSOR c_cur IS
SELECT PART_NO,PART_ID,PART_ID_DATE,PART_NAME,PART_MOB,PART_TEL,PART_REG_DATE,PART_ADDR
ESS
FROM   PARTS;
MyApplication OLE2.OBJ_TYPE;
args OLE2.LIST_TYPE;
wb OLE2.OBJ_TYPE;
wss OLE2.OBJ_TYPE;
wbs OLE2.OBJ_TYPE;
cell OLE2.OBJ_TYPE;
went ole2.obj_type;
c1 number(4);
c2 number(4);

args1 OLE2.LIST_TYPE;
nm_of_col number:=8;
begin MyApplication := OLE2.CREATE_OBJ('Excel.Application');
OLE2.SET_PROPERTY(MyApplication , 'Visible',1);
wbs := OLE2.GET_OBJ_PROPERTY(MyApplication ,'Workbooks');
wb := OLE2.INVOKE_OBJ(wbs,'Add');
wss := OLE2.GET_OBJ_PROPERTY(MyApplication ,'ActiveSheet');
OLE2.SET_PROPERTY(wss , 'Value','Sheet1');
;
:global.nm1:=STUDENT NO;
for gg in 1..8 loop
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 1);
OLE2.ADD_ARG(args, gg);
cell := OLE2.GET_OBJ_PROPERTY(wss,'Cells', args);
OLE2.SET_PROPERTY(cell, 'Value',name_in( 'global.nm'||gg)); 
OLE2.DESTROY_ARGLIST(args);
ole2.release_obj(cell);
end loop;
-----------------------------------------------------------------------------------------------
OPEN c_cur;
c1:=2; 
LOOP

fetch c_cur into :global.1,:global.2,:global.3,:global.4,:global.5,:global.6,:global.7,:global.8;
exit when c_cur%NOTFOUND; 
--c2:=1; 
--end if;
for vv in 1..nm_of_col loop 
args := OLE2.CREATE_ARGLIST; 
OLE2.ADD_ARG(args, c1);
OLE2.ADD_ARG(args, vv);
cell := OLE2.GET_OBJ_PROPERTY(wss,'Cells', args);
OLE2.SET_PROPERTY(cell, 'Value',name_in( 'global.'||vv));
OLE2.DESTROY_ARGLIST(args);
ole2.release_obj(cell);
END LOOP;
c1:=c1+1; 
END LOOP;
CLOSE c_cur;
OLE2.DESTROY_ARGLIST(args);
args1 := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args1, 'C:\DOCS\EXAMPLE.xls');
--OLE2.INVOKE(wb, 'SaveAs', args1);
OLE2.DESTROY_ARGLIST(args1);
--OLE2.INVOKE(wb,'CLOSE');
--ole2.invoke(MYApplication,'Quit');

ole2.release_obj(wb);
ole2.release_obj(wbs);
ole2.release_obj(wss);
ole2.release_obj(wss);
ole2.release_obj(wb);

OLE2.RELEASE_OBJ(MyApplication);

END;

تم تعديل 21 مايو 200916 سنة بواسطة PALI.ORACLE

السلام عليكم
أود الاعتذار من اخي صاحب الموضوع ومن كل الاخوه الذين قراو الموضوع
حيث انني قمت بالرد على الموضوع ويبدو انني لم اقرأ الموضوع جيدا
مشاركتي السابقه كانت عن ربط الاوراكل بالاكسل
ولكن اخي صاحب الموضوع طالب ربط الاوراكل بالاكسس
أكرر اعتذاري ولكم مني كل الاحترام...