Hola a todos.
Uso tDolphin con base de datos en la web.
Ha presentado un exceso de errores "Lost connection to MySQL server during query "
Despu茅s de la advertencia de error, el programa se cierra.
驴Hay alguna forma de evitar la ventana de error y cerrar el programa, para permitir que el usuario vuelva a intentar la consulta?
驴O en ese caso tratar de volver a conectar?
Saludos
Hola Rogelio
viewtopic.php?f=6t=34735p=206616hilit=SET+SESSION+wait_timeout#p206616
Aca se trato el tema
&&&
Saludos
Recomiendo tambien utilizar paginado,
SELECT * FROM TABLAS LIMIT X,Y
obteniendo un arrelgo y luego liberas la conexi贸n.
Gracias jnavas y Hector, pero esa no es la raz贸n.
El problema es generado por una mala conexi贸n a internet.
Para usuarios de Internet de baja calidad, cada 5 minutos se corta la conexi贸n o no puede completar la Query.
Lo que necesito saber es c贸mo evitar la ventana de error que obliga a cerrar la aplicaci贸n.
Necesito saber c贸mo manejar el error antes de abrir la ventana de error y cerrar el programa, cuando no se puede completar una Query.
Saludos.
define window...
DEFINE TIMER oTimer_Connection OF M->oWnd INTERVAL 30000 ACTION (oTimer_Connection:DeActivate(), Connection_Test(), oTimer_Connection:Activate())
procedure Connection_Test()
Local oError, lConectaNovamente := .f.
TRY
if !M->oServer:Execute( "SET @dummy=0" )
M->oServer:ReConnect()
endif
CATCH oError
lConectaNovamente := .t.
END
if lConectaNovamente
MsgRun("Tentando Reconectar no Banco de Dados...",, {|| Conecta_Banco() })
endif
return
