topic-31858

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Errores con ADO - SOLUCIONADO
Posted: Sun Jan 24, 2016 04:23 PM

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 (fw): Select all Collapse

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 (fw): Select all Collapse

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 (fw): Select all Collapse

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

Code (fw): Select all Collapse

   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 (fw): Select all Collapse

:Fields:Count()

Saludos

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Errores con ADO
Posted: Sun Jan 24, 2016 06:40 PM

Leandro, amigo:

Elimina la línea del ActiveConnection y haz lo siguiente

Code (fw): Select all Collapse

    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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Re: Errores con ADO
Posted: Mon Jan 25, 2016 03:11 PM

Excelente Armando Como Siempre Muchas Gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Errores con ADO - SOLUCIONADO
Posted: Mon Jan 25, 2016 04:02 PM

Leandro:

Gracias al foro que siempre está para apoyarnos.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion