OraFAQ Forum: Windows » How to return a TABLE datatype using ADODB

Home » Infrastructure » Windows » How to return a TABLE datatype using ADODB (Windows, Oracle 8i)

Show: Today's Messages :: Polls :: Message Navigator
E-mail to friend

How to return a TABLE datatype using ADODB [message #393202]

Fri, 20 March 2009 13:28

Jaime Stuardo
Messages: 57
Registered: March 2004

Member

Hello, I have an Oracle stored procedure that returns a TABLE type defined as follows:

Code: [Select all] [Show/ hide]

TYPE dataChunks IS TABLE OF VARCHAR2(4000) INDEX BY BINARY_INTEGER;

The TABLE is filled correctly, as I tested it using DBMS_OUTPUT.PUT_LINE instruction.

The procedure that fills it is defined as:

Code: [Select all] [Show/ hide]

  PROCEDURE SP_OBTIENE_DATOS_CSV ( v_opcion IN VARCHAR2, v_moneda IN VARCHAR2, v_rut_corredor IN NUMBER, 
                                   v_periodo_desde IN DATE, v_periodo_hasta IN DATE,
                                   v_poliza IN NUMBER, v_data OUT dataChunks );

Well... and this is the calling procedure in ASP, using MSDAORA provider:

Code: [Select all] [Show/ hide]

        Dim oConn, oCmd, oRs
        Set oConn = Server.CreateObject("ADODB.Connection")
        oConn.Open "Provider=MSDAORA;Password=blablabla;User ID=blablabla;Data Source=blablabla;"
        Set oCmd = Server.CreateObject("ADODB.Command")
        With oCmd
          .ActiveConnection = oConn
          .CommandType = 1
          .CommandText = "{ call PKG_EVOLUCION.SP_OBTIENE_DATOS_CSV ( ?, ?, " & _
                                                                     "?, ?, " & _
                                                                     "?, ?, {resultset 10000, v_data} ) }"
          .Parameters.Append .CreateParameter("v_opcion", 200, 1, Len(sInforme), sInforme)
          .Parameters.Append .CreateParameter("v_moneda", 200, 1, Len(sMoneda), sMoneda)
          .Parameters.Append .CreateParameter("v_rut_corredor", 131, 1, , iCorredor)
          .Parameters.Append .CreateParameter("v_periodo_desde", 7, 1, , DateSerial(Left(sPeriodoDesde, 4), Mid(sPeriodoDesde, 5, 2), "01"))
          .Parameters.Append .CreateParameter("v_periodo_hasta", 7, 1, , DateSerial(Left(sPeriodoHasta, 4), Mid(sPeriodoHasta, 5, 2), "01"))
          .Parameters.Append .CreateParameter("v_poliza", 131, 1, , sPoliza)
          Set oRs = .Execute
          oRs.Close          
          Set oRs = Nothing
        End With
        oConn.Close
        Set oConn = Nothing

The error I'm receiving in .Execute method is:

ORA-02005: implicit (-1) length not valid for this bind or define datatype

Any help will be greatly appreciated
Thanks

Jaime

Report message to a moderator

Previous Topic:	Auto backup
Next Topic:	Can't Install any Oracle successfully!!

Goto Forum:

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

]

Current Time: Sat May 03 06:07:44 CDT 2025