Conexión de FoxPro a MySQL utilizando el ODBC

PUBLIC lcServer as Character,lcDatabase as Character
PUBLIC lcUser as Character,lcPassword as Character, lcStringConn as Character
lcServer="localhost"
lcDatabase="empresa"
lcUser = "abel"
lcPassword = "123"
lcStringConn="Driver={MySQL ODBC 3.51 Driver};Port=3306"
lcStringConn=lcStringConn+";Server="+lcServer
lcStringConn=lcStringConn+";Database="+lcDatabase
lcStringConn=lcStringConn+";Uid="+lcUser
lcStringConn=lcStringConn+";Pwd="+lcPassword
***Evitar que aparezca la ventana de login
PUBLIC lcDSNLess as Character
lcDSNLess="DRIVER={MySQL ODBC 3.51 Driver};" ;
+ "SERVER=localhost;" ;
+ "UID=abel;" ;
+ "PWD=123;" ;
+ "DATABASE=empresa;"
SQLSetprop(0,"DispLogin",3)
lnHandle=Sqlstringconnect(lcDSNLess)
If lnHandle > 0
?SQLTables(lnHandle,"TABLES"
Brow
* SQLDisconnect(lnHandle)
ELSE
=Aerror(elError)
Messagebox("Error de conexión"+Chr(13)+;
"Descripcion:"+elError[2])
Endif
lcDSNLess="DRIVER = {MySQL ODBC 3.51 Driver};" ;
+ "SERVER=localhost;" ;
+ "UID=abel;" ;
+ "PWD=123;" ;
+ "DATABASE=empresa;"
lnConnHandle=SQLSTRINGCONNECT(m.lcDSNLess)

4 comentarios - Conexión de FoxPro a MySQL utilizando el ODBC

@ddarthp
Y enonde pongo la carita feliz?? en foxpro ¬¬! ajajaja bien hombre algun provare que funque o no No te doy puntos por que soy nuevo
@coud21 +1
Me super sirvio, muchisimas gracias
@ssax_flyset
Alguien sabe como conectar a una base de datos de Visual Fox Pro con PHP a travez de ODBC??