TDolphin - Como capturo el error que se produjo?

[goosfancito]

Hola.
Quiero capturar el error que se produce.

Code: Select all  Expand view

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.", ".:Error:.")
     
      // 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.

[Biel EA6DD]

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: Select all  Expand view

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.

[goosfancito]

gracias

[MarioG]

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: Select all  Expand view

  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

[joseluisysturiz]

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