FiveTech Support Forums

Amigos:

Con el siguiente código



Esporadicamente me envia el mensaje "No se ha podido crear la conexión !", ¿ cual puede ser el problema en esos casos ?

Saludos

Armando,

Puede que oCon ya esté inicializado ???

TRY
if oCon <>
oCon := TOleAuto():new("adodb.connection")
endif

Es una idea

Fer:

Puede ser, probaré.

Tambien me gustaría saber las experiencias de otros colegas pero parece ser que solo yo tengo ese problema

Saludos

Ahi va Armando
-Local
oCnx:= "DRIVER={MYSQL ODBC 3.51 Driver}; SERVER="+cHost+"; DATABASE="+cDBName+";UID="+cUser+";PWD="+cPsw

*-Remoto
oCnx:= "Driver={MySQL ODBC 3.51 Driver}; Server="+cHost+";Port=3306;Database="+cDbName+";User="+cUser+";Password="+cPsw+";Option=3"
oConexion:= tOleAuto():New("ADODB.Connection")
oConexion:ConnectionString := oCnx
oConexion:Open()

Tambien puede Ser

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

José:

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.

Saludos