Ejemplo Mysql Cliente
Publicado por es_binario (757 intervenciones) el 21/02/2010 02:43:59
Buenas a todo el foro, he subido un nuevo video a youtube donde trato de explicar como hacer una conexion a mysq dese como crear el usuario ir a la maquina remota y hacer una simple consulta y conexion a mysql desde visual foxpro.
Este es el link
http://www.youtube.com/watch?v=xY3ZxT_LZIQ
y el codigo simple es el siguiente deben de considerar la ip del servidor o cambiarla a localhost para usarla en modo este es el codigo
*// MyBusinessDelta
RELEASE Con
PUBLIC Con
TRY
*// los siguientes datos dependen de la configuracion de Mysql
*// usuario y contrasña
*// cadena de conexion
Con = SQLSTRINGCONNECT("DRIVER={MySQL ODBC 5.1 Driver};" + ;
"SERVER=192.168.1.79;" + ;
"UID=es_binario;" + ;
"PWD=bynary;" + ;
"DATABASE=lionas;" + ;
"OPTIONS=131329;")
*//mensage
MESSAGEBOX("La conexion fue exitosa")
*// consulta
SQLEXEC(Con,"Select * from almacen","cursor_mi_consulta")
SELECT cursor_mi_consulta
browse
CATCH
MESSAGEBOX("Ocurrio un Error al Conectar",48,"Error...!!!")
RETURN
ENDTRY
SQLDISCONNECT(Con) &&cerramos la conexión con la BD
saludos.
Este es el link
http://www.youtube.com/watch?v=xY3ZxT_LZIQ
y el codigo simple es el siguiente deben de considerar la ip del servidor o cambiarla a localhost para usarla en modo este es el codigo
*// MyBusinessDelta
RELEASE Con
PUBLIC Con
TRY
*// los siguientes datos dependen de la configuracion de Mysql
*// usuario y contrasña
*// cadena de conexion
Con = SQLSTRINGCONNECT("DRIVER={MySQL ODBC 5.1 Driver};" + ;
"SERVER=192.168.1.79;" + ;
"UID=es_binario;" + ;
"PWD=bynary;" + ;
"DATABASE=lionas;" + ;
"OPTIONS=131329;")
*//mensage
MESSAGEBOX("La conexion fue exitosa")
*// consulta
SQLEXEC(Con,"Select * from almacen","cursor_mi_consulta")
SELECT cursor_mi_consulta
browse
CATCH
MESSAGEBOX("Ocurrio un Error al Conectar",48,"Error...!!!")
RETURN
ENDTRY
SQLDISCONNECT(Con) &&cerramos la conexión con la BD
saludos.
Valora esta pregunta
0