Xailer & OZ Software

este codigo funcionaba en la 1.98 , ahora en la 2 ya no atrapa los
errrores de Execute()
// SOPORTE CONEXION DATA SOURCE MySQL
//---------------------------------------------------------- --------------------
#define DK_DEFAULT_OR_NOT DEFAULT // Why ? :'(
CLASS TMySQLDataSource FROM XMySQLDataSource
METHOD Execute( cCmdMySQL, cEOpe, @aData, @aHeaders )
* METHOD File( cLikeVTabName )
ENDCLASS
METHOD Execute( cCmdMySQL, cEOpe, aData, aHeaders ) CLASS TMySQLDataSource
Local oE, lSuccess, lDone := TRUE
while( lDone )
lDone := FALSE
TRY
lSuccess := Super:Execute( cCmdMySQL, cEOpe, @aData, @aHeaders )
// Now the integrity of your DATA is PROBLEM of MySQL.
CATCH oE
lSuccess := FALSE
SWITCH( oE:GenCode )
CASE 2005 // MySQL UNKNOWN_HOST
CASE 2006 // MySQL server has gone away
Waiton("Conectando con Base de Datos ....")
::Disconnect(); ProcessMessages(); Sleep( 10 )
lDone := lSuccess := ::Connect(); ProcessMessages(); Sleep(
10 )
waitoff()
if( !lSuccess )
DEFAULT cEOpe TO ''
::CheckError( cEOpe + ' => Error de Re-Conexion' )
endif
EXIT
CASE 2013 // MySQL server lost
MSGSTOP('Se perdió la Conexión con Servidor')
Waiton("Estableciendo Conexión con Base de Datos ....")
::Disconnect(); ProcessMessages(); Sleep( 10 )
lDone := lSuccess := ::Connect(); ProcessMessages(); Sleep(
10 )
waitoff()
if( !lSuccess )
DEFAULT cEOpe TO ''
::CheckError( cEOpe + ' => Error de Re-Conexion' )
endif
EXIT
CASE 2014 // MySQL Command Out if Sync
ProcessMessages(); Sleep( 10 )
EXIT
CASE 1053 // Desconexion de servidor en proceso
CASE 1152 // Conexión abortada
DK_DEFAULT_OR_NOT // What ???
WITH OBJECT oE
:Operation := :ProcName := ProcName( 1 )
:ProcLine := ProcLine( 1 )
END
Throw( oE )
END
END
enddo
RETURN lSuccess
Con la Version 2 ya no funciona , no atrapa los errores (aclaro el
comando TRY CATCH funcionan , hice pruebas en otro modulo y funcionan ,
pero en el codigo de arriba el EXECUTE toma el control de los errores ,
aunque le pongas lo que pongas en la propiedaD lAbortOnErrors pasa lo mismo
Alguna sugerencia de los expertos ?
Saludos...

Martí­n,
comprueba el valor de las propiedades lAbortOnErrors y lDisplayErrors del
datasource. Para capturar los errores, la primera tiene que ser .T. y la
segunda .F.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

On 1/28/2010 12:43 PM, Jose F. Gimenez wrote:
> Martí­n,
>
> comprueba el valor de las propiedades lAbortOnErrors y lDisplayErrors
> del datasource. Para capturar los errores, la primera tiene que ser .T.
> y la segunda .F.
>
Gracias Jose por la pronta respuesta:
pero ya lo hice como indicas y no atrapa el error.
lo hice con las combinaciones posibles de ambas propiedades pero no
funciona.
No atrapa el error, cuando lo provoco.
Saludos...

Martí­n,
> pero ya lo hice como indicas y no atrapa el error.
>
> lo hice con las combinaciones posibles de ambas propiedades pero no
> funciona.
>
> No atrapa el error, cuando lo provoco.
Asegúrate estar actualizado al menos a la versión 2.0.6
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

On 1/29/2010 5:17 AM, Jose F. Gimenez wrote:
> Martí­n,
>
>> pero ya lo hice como indicas y no atrapa el error.
>>
>> lo hice con las combinaciones posibles de ambas propiedades pero no
>> funciona.
>>
>> No atrapa el error, cuando lo provoco.
>
> Asegúrate estar actualizado al menos a la versión 2.0.6
>
Tengo la 2.0.7 Jose, voy a preparar un ejemplo con una base de datos
Mysql y una tabla , para reproducir todos los errores que le menciono ,
incluyendo otros mas que tengo en una lista.
Saludos....