FUNCTION ChecaConDB
m.ResCon = SQLEXEC(m.lih,"select now()","csrNow")
IF m.Rescon = -1
=ConectaDB()
ENDIF
RETURN
FUNCTION ConectaDB
m.lih = SQLSTRINGCONNECT(lCadCon)
IF m.lih < 0
IF AERROR(laError) > 0
lcMsg = ""
FOR ln = 1 TO ALEN(laError,2)
lcMsg = lcMsg + TRANSFORM(laError(1,ln)) + CHR(13)
ENDFOR
MESSAGEBOX(lcMsg, 16, "Error de ODBC")
ENDIF
ENDIF
RETURN
Saludos
Armando
-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de pablo b(La Pampa)
Enviado el: martes, 13 de septiembre de 2011 08:48 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Perdida de Conexion al Servidor en Mysql
Muchas Gracias
Pablo
-----
Se certificó que el correo no contiene virus.
Comprobada por AVG - www.avg.es
Versión: 10.0.1392 / Base de datos de virus: 1520/3893 - Fecha de la
versión: 12/09/2011