Xailer & OZ Software

Una consulta,
estoy haciendo pruebas con una conexión a MySQL a través de ODBC, la duda es
¿Como puedo saber si la conexión fue exitosa o nó debido a por ejemplo error
en el password?
Ej.:
METHOD btnConectar( oSender ) CLASS TForm1
Local nEstado
::oCx:cConnect = "DATABASE=clyf;DRIVER={MySQL ODBC 3.51
Driver};OPTION=3;PWD=123;PORT=3306;SERVER=contrgis;UID=root"
If nEstado = .f.
Msginfo("No está conectado")
endif
RETURN Nil
¿Cómo puedo saber el estado de nEstado?, en Vfox hago lo siguiente:
SQLSETPROP(0,"DispLogin",3)
Cx=SQLSTRINGCONNECT(lcStringConn)
IF Cx = -1
MESSAGEBOX("Problemas con el acceso a la base", 16, "Reintente
nuevamente")
ENDIF
Saludos.
Mario Hahn
Puerto Rico - Misiones - Argentina

Lo sabras cuando hagas :
IF ::oCx:Connect
Conexion exitosa
ELSE
Conexion no exitosa
END
o algo por el estilo
Saludos
cuaMario Hahn escribió:
> Una consulta,
> estoy haciendo pruebas con una conexión a MySQL a través de ODBC, la duda es
> ¿Como puedo saber si la conexión fue exitosa o nó debido a por ejemplo error
> en el password?
>
> Ej.:
>
> METHOD btnConectar( oSender ) CLASS TForm1
> Local nEstado
> ::oCx:cConnect = "DATABASE=clyf;DRIVER={MySQL ODBC 3.51
> Driver};OPTION=3;PWD=123;PORT=3306;SERVER=contrgis;UID=root"
>
> If nEstado = .f.
> Msginfo("No está conectado")
> endif
>
> RETURN Nil
>
>
> ¿Cómo puedo saber el estado de nEstado?, en Vfox hago lo siguiente:
> SQLSETPROP(0,"DispLogin",3)
> Cx=SQLSTRINGCONNECT(lcStringConn)
> IF Cx = -1
> MESSAGEBOX("Problemas con el acceso a la base", 16, "Reintente
> nuevamente")
>
> ENDIF
>
> Saludos.
> Mario Hahn
> Puerto Rico - Misiones - Argentina
>
>
>
>

Perdon es ::oCx:Connect()

Mario,
> ¿Como puedo saber si la conexión fue exitosa o nó debido a por ejemplo
> error en el password?
TOdbcDataSource:lConnnected
También puede comprobar los errores que le proporciona el control. Consulte
la documentación (deberá mirar en su ancestro TDataSource)
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Mario Hahn" <mhahn@prico.com.ar> escribió en el mensaje
news:4630d58f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Una consulta,
> estoy haciendo pruebas con una conexión a MySQL a través de ODBC, la duda
> es ¿Como puedo saber si la conexión fue exitosa o nó debido a por ejemplo
> error en el password?
>
> Ej.:
>
> METHOD btnConectar( oSender ) CLASS TForm1
> Local nEstado
> ::oCx:cConnect = "DATABASE=clyf;DRIVER={MySQL ODBC 3.51
> Driver};OPTION=3;PWD=123;PORT=3306;SERVER=contrgis;UID=root"
>
> If nEstado = .f.
> Msginfo("No está conectado")
> endif
>
> RETURN Nil
>
>
> ¿Cómo puedo saber el estado de nEstado?, en Vfox hago lo siguiente:
> SQLSETPROP(0,"DispLogin",3)
> Cx=SQLSTRINGCONNECT(lcStringConn)
> IF Cx = -1
> MESSAGEBOX("Problemas con el acceso a la base", 16, "Reintente
> nuevamente")
>
> ENDIF
>
> Saludos.
> Mario Hahn
> Puerto Rico - Misiones - Argentina
>
>
>
>

Ok, muchas gracias, funcionó!!!!
Saludos.
Mario Hahn
Puerto Rico - Misiones - Argentina
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:4631a5e9$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Mario,
>
>> ¿Como puedo saber si la conexión fue exitosa o nó debido a por ejemplo
>> error en el password?
>
> TOdbcDataSource:lConnnected
>
> También puede comprobar los errores que le proporciona el control.
> Consulte la documentación (deberá mirar en su ancestro TDataSource)
>
> Saludos
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Mario Hahn" <mhahn@prico.com.ar> escribió en el mensaje
> news:4630d58f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Una consulta,
>> estoy haciendo pruebas con una conexión a MySQL a través de ODBC, la duda
>> es ¿Como puedo saber si la conexión fue exitosa o nó debido a por ejemplo
>> error en el password?
>>
>> Ej.:
>>
>> METHOD btnConectar( oSender ) CLASS TForm1
>> Local nEstado
>> ::oCx:cConnect = "DATABASE=clyf;DRIVER={MySQL ODBC 3.51
>> Driver};OPTION=3;PWD=123;PORT=3306;SERVER=contrgis;UID=root"
>>
>> If nEstado = .f.
>> Msginfo("No está conectado")
>> endif
>>
>> RETURN Nil
>>
>>
>> ¿Cómo puedo saber el estado de nEstado?, en Vfox hago lo siguiente:
>> SQLSETPROP(0,"DispLogin",3)
>> Cx=SQLSTRINGCONNECT(lcStringConn)
>> IF Cx = -1
>> MESSAGEBOX("Problemas con el acceso a la base", 16, "Reintente
>> nuevamente")
>>
>> ENDIF
>>
>> Saludos.
>> Mario Hahn
>> Puerto Rico - Misiones - Argentina
>>
>>
>>
>>
>
>