Pregunta: | 63954 - DEVOLVER EN UN ADODBRECORDSET PROCEDURE ORACLE VB6 |
Autor: | Pablo Pons |
Hola a todos, Tengo un problema en devolver un procedimiento de oracle....muchos colocan su codigo y estan ahi perdiendo el tiempo en donde esta el problema....lo que quiero es que ayuden como puedo enlazar mi recordset al procedimiento almacenado de oracle....no envien links redireccionando a otras paginas salvo q esten bien....xq me estoy pasando 2 semanas en buscar en distintas paginas y no encuentro.... solo denme un ejemplo cualquiera pero pondre mi codigo de todas maneras como es que lo tengo les agradecere bastante. CABE DECIRLES QUE CUANDO TESTEO SALE BIEN LOS DATOS EL PROBLEMA ES EL VB6. create or replace package PK_OPTICA is TYPE tCURSOR IS REF CURSOR; PROCEDURE V_ITEM_VENTA (p_ALMACEN CHAR,p_MODULO CHAR, p_RETORNO OUT tCURSOR) IS BEGIN OPEN P_RETORNO FOR SELECT P.Item, I.Nombre,I.Presentacion, P.Precio,P.Costo,S.Stock FROM Precio P INNER JOIN Item I ON I.Item=P.Item INNER JOIN Stock S ON S.Item=P.Item WHERE p.fecha=(SELECT MAX(fecha) FROM precio X WHERE P.item=X.item GROUP BY item) AND p.IDRECORD=(SELECT MAX(X.IDRECORD) FROM precio X WHERE X.Fecha=P.Fecha AND P.item=X.item GROUP BY item) AND Almacen=p_ALMACEN AND Modulo=p_MODULO ORDER BY Nombre ; END V_ITEM_VENTA; Dim Cmd As New ADODB.Command Set Cmd = New ADODB.Command Dim RS As New ADODB.Recordset Dim j As Integer With Cmd .ActiveConnection = AdoCnConexion .CommandText = "PK_OPTICA.v_item_venta" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("p_INGRESOID", adChar, adParamInput, 8, "10000001") .Parameters.Append .CreateParameter("p_MODULO", adChar, adParamInput, 15, "FARMACIA") Set RS = .Execute ESTE ES EL ERROR Q ME DEVUELVE EL VB6 ORA-06550: línea 1, columna 7: PLS-00306: número o tipos de argumentos erróneos al llamar a 'V_ITEM_VENTA' ORA-06550: línea 1, columna 7: PL/SQL: Statement ignored PORFAVOR ESPERO QUE ME AYUDEN ES DE SUMA URGENCIA |