TDolphin y Lost connection to MySQL server during query

[rogerio]

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

[Hector Pedro Lerda]

Hola Rogelio

https://forums.fivetechsupport.com/view ... ut#p206616

Aca se trato el tema

[jnavas]

Saludos
Recomiendo tambien utilizar paginado,
SELECT * FROM TABLAS LIMIT X,Y
obteniendo un arrelgo y luego liberas la conexión.

[rogerio]

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.

[MGA]

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