FoxPro/Visual FoxPro - Conexion a mysql desde vfp

Hola, muy buenos días..

Por favor necesito de su colaboracion, estoy tratando de hacer una conexion a una base de datos remota en mysql que se encuentra en un PC de la red, alojada en la carpeta C./appserv/mysql/data, ya instalé el conector ODBC. Localmente logro hacer la conexion sin ningun problema, pero al hacerlo remotamente desde otro PC no me funciona. El codigo que utilicé en un boton fue el siguiente:

WITH THISFORM
_lcDBname=ALLTRIM(.txtnmDB.VALUE) && Nombre database
_lcserver=ALLTRIM(.txthost.VALUE) && alias / IP server
_lcUsername=ALLTRIM(.txtusername.VALUE) &&Usuario por defecto root
_lcpswDB=ALLTRIM(.txtpsw.VALUE) && password database

_lcDSNLess="DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=";
+_lcDBname+";SERVER="+_lcserver+";UID="+_lcUsername+;
";PASSWORD="+_lcpswDB+";PORT=3306;OPTION=;STMT=;"

PUBLIC cConexion &&
SQLSETPROP(0,"DispLogin",3)
cConexion=SQLSTRINGCONNECT(_lcDSNLess)
IF cConexion>=1
MESSAGEBOX('Bienvenido a la Base de Datos : '+_lcDBname+', en : '+_lcserver+',;
'+_lcUsername+' ...!',64,'Mi Primera Conexion')
Acceso = .t.
ELSE
MESSAGEBOX('Conexion Fallida...!',48,'Mi Primera Conexion')
ENDIF

.RELEASE()

ENDWITH

Les agradezco en todo lo que me puedan colaborar...

Sr. Juan, creo que si ya tiene configurado el odbc podría probar el siguiente código

miconexion = sqlconnet("NombreODBC")
consulta = Select* from tabla =(Nombre de tabla de tu base mysql)
sqlexec(miconexion,consulta,"NombreCursor")

Espero que le sirva.

Un saludo.
Gastón.

Buenas,
Pienso que se trate de los permisos del puerto 3306 para que tengas acceso a la base de datos remotamente, verifica que funcione.

Seria bueno que imprimas el error que te arroja,

Saludos,
Charles