Visual foxpro 9.0 con MySql 5.0
Cordial saludo
Hola como estas es otra inquietud que tengo sobre el mismo sistema de información de vehículos.
Esta es mi conexión remota ya que mi sistema esta en una red a nivel nacional y se conecta bien con el servidor.
*Conexion de Acceso Remoto
Function conexion_remota(i)
LOCAL StringRemoto,coneccion
StringRemoto="DRIVER="+ALLTRIM("MySQL ODBC 3.51 Driver") +";"+"SERVER="+ALLTRIM(i)+";"+"PORT=3306;"+"UID="+ALLTRIM("root")+";"+"PWD="+ALLTRIM("INGENIERO")+";"+"DATABASE="+ALLTRIM("salle")+";"+"OPTIONS=0;"
SQLSETPROP(0,"DispLogin",3)
coneccion=SQLSTRINGCONNECT(StringRemoto)
IF coneccion>=1
RETURN coneccion
else
=MESSAGEBOX("No se pudo Conectar con el Servidor, por favor inténtelo mas tarde",48,_screen.aplicacion)
quit
Endif
endfunc
El problema es que si dejan de utilizar cierto tiempo el sistema en los equipos remotos se cae la conexión, pero si están utilizando la herramienta no existe ese problema.
Como puedo solucionar ese problema.
Te agradecería tu colaboración.
Hola como estas es otra inquietud que tengo sobre el mismo sistema de información de vehículos.
Esta es mi conexión remota ya que mi sistema esta en una red a nivel nacional y se conecta bien con el servidor.
*Conexion de Acceso Remoto
Function conexion_remota(i)
LOCAL StringRemoto,coneccion
StringRemoto="DRIVER="+ALLTRIM("MySQL ODBC 3.51 Driver") +";"+"SERVER="+ALLTRIM(i)+";"+"PORT=3306;"+"UID="+ALLTRIM("root")+";"+"PWD="+ALLTRIM("INGENIERO")+";"+"DATABASE="+ALLTRIM("salle")+";"+"OPTIONS=0;"
SQLSETPROP(0,"DispLogin",3)
coneccion=SQLSTRINGCONNECT(StringRemoto)
IF coneccion>=1
RETURN coneccion
else
=MESSAGEBOX("No se pudo Conectar con el Servidor, por favor inténtelo mas tarde",48,_screen.aplicacion)
quit
Endif
endfunc
El problema es que si dejan de utilizar cierto tiempo el sistema en los equipos remotos se cae la conexión, pero si están utilizando la herramienta no existe ese problema.
Como puedo solucionar ese problema.
Te agradecería tu colaboración.
1 respuesta
Respuesta de Alonso Jarrín Solís
1