Page 1 of 1
No se logra la conexión !
Posted: Mon May 26, 2008 3:50 pm
by Armando
Amigos:
Con el siguiente código
Code: Select all
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 _ ?
Saludos
por si las dudas
Posted: Tue May 27, 2008 11:21 am
by fleal
Armando,
Puede que oCon ya esté inicializado ???
TRY
if oCon <>
oCon := TOleAuto():new("adodb.connection")
endif
Es una idea
Posted: Tue May 27, 2008 11:24 am
by 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
Posted: Tue May 27, 2008 1:32 pm
by 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
Posted: Tue May 27, 2008 4:39 pm
by 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