topic-17666

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Error al migrar a HARBOUR
Posted: Tue Dec 22, 2009 09:55 PM

Hola a todos...

Tengo la necesidad de utilizar el RDD SIX, para preguntar por unos datos mientras por otro lado trabajo con MYSQL y ADO.
Utilizaba xHarbour y no tenia problemas, pero frente a la necesidad de acceder a esos datos antiguos con SIX, migre un sistema a HARBOUR.. todo bien..pero tengo un error que no logro descrifrar.

Es mismo codigo funciona en xHarbour pero no en HARBOUR.. adjunto codigo y error.

Code (fw): Select all Collapse

Local oErrorAdo
           TRY
                    oDatos:oRcs:Skip()
           CATCH
              FOR EACH oErrorAdo IN oDatos:oCon:Errors
                    ShowError(oErrorAdo)
              NEXT
           END

El Error es

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Error al migrar a HARBOUR
Posted: Tue Dec 22, 2009 11:38 PM

Hola Adolfo...

he probado tu codigo, me da el mismo error con ambos compiladores

cuando se produce un error se genera un objeto "Error" por tal accederia al objeto de esta manera

esto es simplemente un test, se ejecuta perfectamente en ambos compiladores, pruebalo y nos comentas

Code (fw): Select all Collapse

#include "Fivewin.ch" 
#include "ado.ch"

FUNCTION MAIN() 
local oCon, lOk
 
lOk:=.t.
 
 if lOk
    TRY
       oCon:=TOleAuto():new("ADODB.Connection")
      
       
    CATCH oErroraDo
       ErrorCatch( oErrorAdo, "Error en OLE" )
    END
     
     
    TRY       
       oCon:connectionString := "Driver={MySQL ODBC 5.1 Driver};Server=EQUIPO;Port=3306;Database=test;User=root; Password=12345678;Option=3;"
       oCon:open()
    CATCH oErrorAdo

       ErrorCatch( oErrorAdo,"Error en OPEN"  )
       return .f.
    END
    
 endif
return nil

Function ErrorCatch( oError, cTitle )

   LOCAL cMensagemRetorno := ""
   local cArg, cArgs := ""

   if ValType( oError:Args ) == "A"
      for each cArg in oError:Args
         cArgs += cValToChar( cArg ) + CRLF
      NEXT
   endif
   cMensagemRetorno := "[Subsystem]"         + oError:SubSystem                 + CRLF +;
                       "[SubCode]"           + alltrim( str( oError:SubCode ) ) + CRLF +;
                       "[Operacion]"         + oError:Operation                 + CRLF +;
                       "[Descripcion]"       + oError:Description               + CRLF +;
                       "[Argumentos]"        + cArgs

RETURN( msgStop( cMensagemRetorno, cTitle ) )

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: Error al migrar a HARBOUR
Posted: Wed Dec 23, 2009 11:30 AM

Daniel

Gracias.. Pruebo y te comento...

Desde Chile
Adolfo

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

FiveTech Support Forums

Continue the discussion