No se logra la conexión !

[Armando]

Amigos:

Con el siguiente código

Code: Select all  Expand view  RUN

TRY
   oCon   :=   TOleAuto():new("adodb.connection")
CATCH oError
   MsgStop( "No se ha podido crear la conexión !", oApp:cAplicacion)
   RETURN(.F.)
END


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

Saludos

[fleal]

Armando,

Puede que oCon ya esté inicializado ???

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

Es una idea

[Armando]

Fer:

Puede ser, probaré.

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

Saludos

[jbrita]

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

[Armando]

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