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