Xailer & OZ Software

Estimados compañeros, saludos.
¿ Como puedo detectar cuando una terminal se desconecta del servidor que
contiene Mysql ?
Esto es en una red local.
Lo que pasa es que instalé un sistema con uno de mis clientes, pero
desafortunadamente no tiene seguridad en la electricidad y pues de repente
se apaga el router y bueno, ya saben se desconectan las terminales del
servidor Mysql.
El cliente me pide que si se puede detectar esto y esperar a que el router
se vuelva a encender y asi el usuario no piedar la secuencia de lo que está
haciendo.
Nota.
Ya le sugerí al cliente comprar no break, pero es de esos clientes
codos.
De antemano, mil gracias por sus ayudas.
Dios los bendiga
__________ Information from ESET NOD32 Antivirus, version of virus signature database 4058 (20090507) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com

Mira en www.mysql.com en las guias de usuario como ejecutar un PING como
comando MySQL contra el servidor. Se que se puede hacer pero no me
acuerdo ahora mismo como era.
Saludos
Alf+.
PEDRO DE LEON RODAS escribió:
> Estimados compañeros, saludos.
>
> ¿ Como puedo detectar cuando una terminal se desconecta del servidor que
> contiene Mysql ?
>
> Esto es en una red local.
>
> Lo que pasa es que instalé un sistema con uno de mis clientes, pero
> desafortunadamente no tiene seguridad en la electricidad y pues de repente
> se apaga el router y bueno, ya saben se desconectan las terminales del
> servidor Mysql.
> El cliente me pide que si se puede detectar esto y esperar a que el router
> se vuelva a encender y asi el usuario no piedar la secuencia de lo que está
> haciendo.
>
> Nota.
> Ya le sugerí­ al cliente comprar no break, pero es de esos clientes
> codos.
>
>
> De antemano, mil gracias por sus ayudas.
>
> Dios los bendiga
>
>
>
> __________ Information from ESET NOD32 Antivirus, version of virus signature database 4058 (20090507) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>
>
>

Yo me topé con lo mismo...
¿Puedes hacer algo para cuando se vaya la luz?.
Respuesta: Comprate un Nobreak.
Si bueno, pero la empresa no quiere comprarlos.
Respuesta: Pues ni el mismo windows trae algo para detectar cuando se va la
luz
Cierto.
Fin de la conversación.
Saludos

#include "Xailer.ch"
//---------------------------------------------------------- --------------------
// SOPORTE CONEXION DATA SOURCE MySQL
//---------------------------------------------------------- --------------------
#define DK_DEFAULT_OR_NOT DEFAULT // Why ? :'(
CLASS TMySQLDataSource FROM XMySQLDataSource
METHOD Execute( cCmdMySQL, cEOpe, @aData, @aHeaders )
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 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 + ' => Re-Connect ERROR' )
endif
EXIT
CASE 2014 // Commands out of sync; You can't run this command now
*MSGINFO('ERROR 2014')
DEFAULT cEOpe TO ''
lSuccess :=.t.
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
//---------------------------------------------------------- --------------------
--