topic-28087

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

TDolphin - Como capturo el error que se produjo?
Posted: Fri Feb 14, 2014 08:35 AM

Hola.
Quiero capturar el error que se produce.

 TRY
      connect ::oCnx HOST cHost;
         USER "";
         PASSWORD "";
         PORT "";
         FLAGS 0;
         DATABASE ""
   CATCH oErr
      ::oCnx:= NIL
      MsgStop("Error al acceder a la base de datos. " + Chr(13) + "No se puede continuar.", ".:.")
      
      // Aca quiero que me muestre cual fue el error, si mal la contraseña si no existe la base de datos. etc. como hago esto?

   END

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Re: TDolphin - Como capturo el error que se produjo?
Posted: Fri Feb 14, 2014 09:35 AM

Entiendo po el código que ::oCnx es un data de una clase tuya que contendra la referencia al servidor, imagino.
Puedes añadir un gestor de errrores personalizado, y en función del código de error MySql visualizar el mensaje que corresponda.

Code (fw): Select all Collapse

connect ::oCnx HOST cHost;
         USER "";
         PASSWORD "";
         PORT "";
         FLAGS 0;
         DATABASE ""

 ::oCnx:bOnError:={|oServer,nError,lInternal,cExtra| CtrlError( oServer, nError, lInternal, cExtra )}
...
//---------------------------------------------------------------
STATIC FUNCTION CtrlError( oServer, nError, lInternal, cExtra )
   LOCAL cText := ""
   LOCAL oError
   hb_Default( @cExtra, "")

   SWITCH nError
   CASE 1062
      MsgAlert( 'Clave Primaria duplicada, registros no se ha grabado '+CRLF+;
               'Error '+Trim(Str(nError))+CRLF+;
                If( lInternal, "Internal Error:" + DOL_GETERROTEXT( nError ) , oServer:ErrorTxt() ) + " "+ CRLF + cExtra )
      EXIT
   CASE 1451
...
   OTHERWISE
      oError := ErrorNew()
      oError:SubSystem   = If( lInternal, "TDOLPHIN", "MYSQL" )
      oError:SubCode     = nError
      oError:Severity    = 2
      oError:Description = If( lInternal, "Internal Error:" + DOL_GETERROTEXT( nError ) , oServer:ErrorTxt() ) + " " + cExtra

      Eval( ErrorBlock(), oError )
   END

RETURN NIL

Busca en la documentación de MySql el código de error que quieres monitorizar y agregalo al siwtch. También debes decidir si generas error, o por el contrario puede seguir la ejecución.

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: TDolphin - Como capturo el error que se produjo?
Posted: Fri Feb 14, 2014 01:20 PM

gracias

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: TDolphin - Como capturo el error que se produjo?
Posted: Fri Feb 14, 2014 03:23 PM

Goosfancito;
TDolphin tiene en el \inclue\dolerr.ch que devuelve el tipo de error (a modo informativo)
Busca entre los samples y vas a ver algo como lo que sigue:

Code (fw): Select all Collapse

   CONNECT ::oSrv HOST     shIni["MARIADB"]["host"] ;
                      USER     shIni["MARIADB"]["user"] ;
                      PASSWORD ::oTxt:ReadLine() ;
                      PORT     shIni["MARIADB"]["puerto"] ;
                      FLAGS    0;
                      ON ERROR nMyErr:= oSelf:InfoError( Self, nError, lInternal )

   if ( lConecto:= (nMyErr == 0) )
      lConecto:= ::ChkDataB( cDataBase )
   end

::InfoError() pertenece a TDolphin

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: TDolphin - Como capturo el error que se produjo?
Posted: Sat Feb 15, 2014 03:49 AM

Yo lo hago asi...saludos...

TRY
oQry := TDolphinQry():New( cQry, oDatos:oConex )

CATCH oError
MSGSTOP( oError:description() + CRLF + CRLF + ;
"Error Ejecución de Sentencia en Tabla(piramide_participantes): " + ;
CRLF + CRLF + cQry, oDatos:cTitMsg )

RETURN

END

Dios no está muerto...

Gracias a mi Dios ante todo!

FiveTech Support Forums

Continue the discussion