In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Saber ODBC es exitosa

Foro público de Xailer en español
Responder
Mario Hahn
Mensajes: 33
Registrado: Sab Jul 15, 2006 12:05 am

Saber ODBC es exitosa

Mensaje por Mario Hahn »

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
pablogarciau
Mensajes: 133
Registrado: Lun May 22, 2006 10:26 am

Saber ODBC es exitosa

Mensaje por pablogarciau »

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
>
>
>
>
pablogarciau
Mensajes: 133
Registrado: Lun May 22, 2006 10:26 am

Saber ODBC es exitosa

Mensaje por pablogarciau »

Perdon es ::oCx:Connect()
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9441
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Saber ODBC es exitosa

Mensaje por ignacio »

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
>
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Mario Hahn
Mensajes: 33
Registrado: Sab Jul 15, 2006 12:05 am

Saber ODBC es exitosa

Mensaje por Mario Hahn »

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
>>
>>
>>
>>
>
>
Responder