Errores con ADO - SOLUCIONADO

[leandro]

Buenos dias para todos

Estoy tratando de pasar una de mis aplicaciones a harbour. Ya logre compilar con fivedit34 hasta ahora excelente. El problema parece ser que algunas de las funciones de ADO no estan permitidas en harbour. La aplicacion compila perfectamente pero cuando intento correrla sale el siguiente error

Code: Select all  Expand view

Application
===========
   Path and name: c:\cartera\R32_MENU.exe (32 bits)
   Size: 6,434,816 bytes
   Compiler version: Harbour 3.2.0dev (r1306132159)
   FiveWin  Version: FWH 15.01
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 10 secs
   Error occurred at: 24/01/2016, 11:17:28
   Error description: (DOS Error -2147352562) WINOLE/1007  Argument error: ACTIVECONNECTION
   Args:
     [   1] = O   ADODB.Connection

Stack Calls
===========
   Called from:  => TOLEAUTO:ACTIVECONNECTION( 0 )
   Called from: c:\cartera\prg\R32_PERI.prg => PPERIODOS( 44 )
   Called from: c:\cartera\prg\R32_PERI.prg => R32_PERI( 23 )
   Called from: c:\cartera\prg\ALYMA.prg => (b)TLYMA_AUTORIZA( 554 )
   Called from: c:\cartera\prg\ALYMA.prg => TLYMA:AUTORIZA( 554 )
   Called from: c:\cartera\prg\R32_MENU.prg => (b)MAIN( 130 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:CLICK( 715 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 924 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1597 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1152 )
   Called from: c:\cartera\prg\R32_MENU.prg => MAIN( 250 )
 

La linea del error es la siguiente:

Code: Select all  Expand view

oRsPeriodo:ActiveConnection( oLamcla:oCon )
 

Busque en el foro y encontré un mensaje, dice que quitando la linea se soluciona el problema.
Pero tampoco. No se si me haga falta incluir alguna librería.Ya que también me arroja un error cuando utilizo el siguiente código.

Code: Select all  Expand view

   for n := 0 to oLamcla:oRsConBus:Fields:Count() - 1
      ::xbrAdoSetField( cBrw, oLamcla:oRsConBus, n, aColNom, aColTam ,aColAli )
   next
 

Code: Select all  Expand view

   Time from start: 0 hours 0 mins 17 secs
   Error occurred at: 24/01/2016, 11:21:47
   Error description: (DOS Error -2147352567) WINOLE/1007  La operación no está permitida si el objeto está cerrado. (0x800A0E78): ADODB.Recordset
 

El error sale al llamar

Code: Select all  Expand view

:Fields:Count()
 

Saludos

[Armando]

Leandro, amigo:

Elimina la línea del ActiveConnection y haz lo siguiente

Code: Select all  Expand view

    oRsCia:Source               := "SELECT " +;
                                            "* " +;
                                        "FROM " +;
                                            "Empresas " +;
                                        "LIMIT 0"

    TRY
        oRsCia:Open(oRsCia:Source,oApp:oCon)                // Aquí está el cambio
    CATCH oError
        MsgStop( "No se ha podido abrir el RECORDSET de Empresa !", oApp:cAplicacion)
        ShowError(oError)
        Cierra()
        RETURN(.F.)
    END
 

Saludos

[leandro]

Excelente Armando Como Siempre Muchas Gracias

[Armando]

Leandro:

Gracias al foro que siempre está para apoyarnos.

Saludos