Using OLE2 library with Forms11g
Hello everyone.
I've got problem with using ole2 lib in forms in 11 version on Weblogic server.
I've got piece of code which works under oracle forms 6i:
DECLARE c_procedura CONSTANT VARCHAR2(100) := 'fail'; v_wbs OLE2.OBJ_TYPE; v_args OLE2.LIST_TYPE; v_jest BOOLEAN := FALSE; BEGIN p_app := OLE2.CREATE_OBJ('Excel.Application'); OLE2.SET_PROPERTY(p_app, 'Visible', 'False'); v_wbs := OLE2.GET_OBJ_PROPERTY(p_app,'Workbooks'); v_args := OLE2.CREATE_ARGLIST; OLE2.ADD_ARG(v_args, p_name); OLE2.INVOKE(v_wbs,'Open',v_args); v_jest := TRUE; OLE2.DESTROY_ARGLIST(v_args); OLE2.RELEASE_OBJ(v_wbs); v_jest := FALSE; EXCEPTION WHEN OLE2.OLE_ERROR THEN msg_alert('EXCEPTIOn1'); IF v_jest THEN OLE2.RELEASE_OBJ(v_wbs); END IF; WHEN OTHERS THEN msg_alert('EXCEPTIOn2'); IF v_jest THEN OLE2.RELEASE_OBJ(v_wbs); END IF; frm_blad.zglos(p_procedura => c_procedura); END; END;
Tagged:
0