MSGRUN( "Conectando comunicación con el SERVIDOR, espere...",NIL,{|| MyConeccion(oCnx)} )
If lError
---------- YA PUEDES TRABAJAR
oConexion:Close()
Endif
FUNCTION MyConeccion(xConnStr)
*-------------------------
Local lRet:=.t.,oError
oConexion := tOleAuto():New("ADODB.Connection")
oConexion:ConnectionString := xConnStr
TRY
oConexion:Open()
lError:=.T.
CATCH oError
lRet:=.f.
lError:=.F.
MsgStop("No Hay Conexion Con El Servidor","Operación Cancelada")
END
RETURN lRet
Te agradezco el comentario, tal vez no me explique bien.
Tengo el código muy similar al que me anexas, solo que algunas veces se logra la conexión perfectamente pero algunas, que son las menos, no se logra la conexión´y manda el mensaje de que "No se ha logrado la conexión !", el usuario lo vuelve a intentar y ahora sí se logra la conexión.