بتاريخ: 4 أبريل 200917 سنة comment_152865 السلام عليكم انا اخذت الكود ده من هذا الموقع بس في مشكلة ارجو مساعدتي فيها المشكلة ان الكود ده مش بيشتغل علي client machain مع العلم انه بيشتغل علي جهازي الخاص ارجو المساعدة declare CURSOR c_cur IS SELECT cod,FULL_N_ARABIC,FULL_N_ENGLISH,res_no,PASS_NO,civil_id,JOB_NAME,NATIO_NAME FROM v_v; 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'); OPEN c_cur; c1:=1; 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; 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; تقديم بلاغ
بتاريخ: 6 أبريل 200917 سنة comment_153006 السلام عليكم ورحمة الله وبركاته اخي الكريم اعتقد ان المشكلة المواجه لك هي ان العنوان الذي تحفظ فية الناتج هو ممكن يكون غير متاح للجهاز ان يكتب علية و يحفظ علية الناتج من الكود فاذا حللت مشكلة الباث اعتقد ان المشكلة سوف تحل ان شاء الله والله الموفق تقديم بلاغ
بتاريخ: 6 أبريل 200917 سنة كاتب الموضوع comment_153080 أشكرك أخي علي مرورك بس المشكلة انه مش بيشتغل علي أجهزة الكلينت هو بيرمي علي السيرفر بس مش بيرمي علي أجهزة الكلينت هي دي المشكلة لو عندك حل ياريت تساعدني اشكرك مره اخري تقديم بلاغ
بتاريخ: 4 أغسطس 201114 سنة comment_214647 يرجى استخدام CLIENT_OLE2 بدلا من OLE2 مع العلم ان Client_Ole2 موجودة مع الWebUtil Library تقديم بلاغ
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.