FoxPro/Visual FoxPro - ¿Conexion VFP9 y MySQL?

Quisiera preguntar, si es posible conectar Visual Foxpro 9, con MySQL. Sucede que me encargaron desarrollar una base de datos en SQL, pero el entorno tiene que ser en VFP, pero no se como conectar el VFP con una versión FREE de MySQL. Tengo años programando bases de FP locales, pero nunca había entrado al mundo del SQL y las bases remotas… alguien podría ayudarme.

Gero, desde Ciudad Juárez, Chih. MX.

Gracias.

hola, yo utilizo para conectar a MySql el siguiente código

xnNconn = sqlconnect("origen_datos", "usuario", "pass")
if xnNconn < 1
messagebox("No se pudo establecer la conexión " + "origen_datos", 64, wtitle())
return .f.
else
sqlsetprop(xnNconn, "IdleTimeOut", 0)
sqlsetprop(xnNconn, "QueryTimeOut", 0)
sqlsetprop(xnNconn, "WaitTime", 250)
endif

El orígen de datos lo configuro en el odbc mysql en el panel de control:
donde dice Data source name, ahí también le pongo la ip del server, y la Database.

o sea que con el comando sqlconnect al mandarle "origen_datos" lo busca en el odbc de windows y de ahí saca la ip y la database.
estoy utilizando un mysql 4.x y el conector odbc que tengo instalado es 3.51.11, tenés que tener en cuenta que debe haber compatibilidada entre el conector odbc que tenés instalado y la versión del mysql, te lo digo por experiencia

una vez que estoy conectado hago:
sqlprepare(xnNconn, "SELECT * FROM tabla WHERE codigo > 0 ORDER BY codigo", "cons_tabla")
sqlexec(xnNconn)

espero que sirva, mandame tus comentarios.

jafcorp

Hola, espero me puedan ayudar, estoy aprendiendo a usar MySQL ...
Estoy usando VFP9 y MySQL 5.0 con el ODBC 5.0

En un ejemplo que estoy haciendo puede hacer un insert, update, delete pero
mi problema es que al querer hacer un select no me deja, me cierra el fox y no
me marca ningun error.

ConnectionString = [DRIVER={Mysql Connector/ODBC
v5};SERVER=localhost;DATABASE=] + ;
cDataSource + [;USER=] + cUserName + [;PASSWORD=] + cPassword + [;OPTION=3;]

nConexion = SQLSTRINGCONNECT( ConnectionString )

SQLEXEC(nConexion,'select * from agenda','cTemporal')

Al ejecutar esta ultima linea me cierra el fox.

Muchas Gracias de antemano.
Espero me puedan ayudar.

1- Investiga todo lo referente a Vistas Remotas y a CursorAdapter.
2- entra a www.fpress.com y escribe la palabra MySql apareceran varios interesantes articulos.

CREATE CURSOR csrTEMPORAL(campo1 C(100), campo2 C(100), cAMPO3 C(100), CAMPO7 C(100))
FOR I = 1 TO 150
INSERT INTO csrTEMPORAL VALUES(CDOW(DATE()+i),CDOW(DATE()+i+1),CDOW(DATE()+2),CDOW(DATE()+3))
ENDFOR
cDataSource = "Test"
cUserName = "root"
cPassword = "root"
ConnectionString = [DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=] + ;
cDataSource + [;USER=] + cUserName + [;PASSWORD=] + cPassword + [;OPTION=3;]
nConexion = SQLSTRINGCONNECT( ConnectionString )
SELECT csrTEMPORAL
lcComando = ""
SCAN
lcComando = lcComando + [("] + ALLTRIM(csrTEMPORAL.CAMPO1) + [","] + ;
ALLTRIM(csrTEMPORAL.CAMPO2) + [","] + ALLTRIM(csrTEMPORAL.CAMPO3) + ;
[","] + ALLTRIM(csrTEMPORAL.CAMPO7) + ["),]
ENDSCAN
lcComando = [INSERT INTO TEMPORAL (CAMPO1, CAMPO2, CAMPO3, CAMPO7) VALUES ] + ;
SUBSTR(lcComando,1,LEN(lcComando)-1)
? lcComando
lnSegundos = SECONDS()
x = SQLEXEC(nConexion ,lcComando)
MESSAGEBOX(SECONDS()-lnSegundos)
x = SQLEXEC(nConexion, "SELECT * FROM TEMPORAL", "csrTemporalSQL")
x = SQLDISCONNECT(0)

pRUEBA ESTO ESPERO TE SIRVA SUERTE

Hola ernesto, interesante el script que publicas, pero funciona en forma local, si has logrado conectar desde otra maquina cliente por favor podria publicarlo. gracias