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
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.
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
-
Mario Hahn
- Mensajes: 33
- Registrado: Sab Jul 15, 2006 12:05 am
-
pablogarciau
- Mensajes: 133
- Registrado: Lun May 22, 2006 10:26 am
Saber ODBC es exitosa
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
>
>
>
>
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
Perdon es ::oCx:Connect()
-
ignacio
- Site Admin
- Mensajes: 9441
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Saber ODBC es exitosa
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
>
>
>
>
> ¿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
[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
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
>>
>>
>>
>>
>
>
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
>>
>>
>>
>>
>
>