Conexión a Base de Datos MySQL remota desde VFP
FoxPro/Visual FoxPro
Publicado el 14 de Abril del 2020 por Juan
13.102 visualizaciones desde el 14 de Abril del 2020
1.- Primer paso es crear una base de datos en un hosting. En este caso, ya cree una en SmarterASP.net con los siguientes Datos:
Servidor: 208.118.63.63
Usuario: a5a756_pruebas
Password: Poweredby1
Base de Datos: db_a5a756_pruebas
Cree una tabla llamada Clientes para efectos de este ejemplo.
2.- Descargar el Driver MySQL 5.1 para el ODBC en 32bits, ejecuta el ODBC a 32 Bits para configurar una ODBC llamada PRUEBA.
https://downloads.mysql.com/archives/get/p/10/file/mysql-connector-odbc-noinstall-5.1.13-win32.zip
Ojo "Tiene que ser una ODBC en 32 bits" teclea ODBC 32 en el buscador de WINDOWS para localizarlo.
Tu ODBC debe quedar como en la imagen anexa.

El password del usuario es: Poweredby1
3.-Crea un PRG con el siguiente Código Fuente y ejecútalo.
Como pueden ver, la función SQLSTRINGCONNECT() hace la conexión con la variable PÚBLICA CNRAM.
Si la conexión se llevó acabo entonces puedes hacer la siguiente consulta en el COMMAND WINDOW o en cualquier Forma que elabores.
Teclea por ejemplo en COMMAND WINDOW después de ejecutar el código lo siguiente:
Si la conexión se llevó acabo, entonces SQL tendrá un valor positivo...y además se ejecutará el BROWSE de un cursor llamado "CURSOR"
Pues por último les deseo la mejor de las suertes. No he podido elaborar un proyecto de prueba, pero es muy fácil después de lo que les acabo de mandar.
Saludos Cordiales.
Atentamente
Juan Martínez Mañón
www.jvsapps.com
Servidor: 208.118.63.63
Usuario: a5a756_pruebas
Password: Poweredby1
Base de Datos: db_a5a756_pruebas
Cree una tabla llamada Clientes para efectos de este ejemplo.
2.- Descargar el Driver MySQL 5.1 para el ODBC en 32bits, ejecuta el ODBC a 32 Bits para configurar una ODBC llamada PRUEBA.
https://downloads.mysql.com/archives/get/p/10/file/mysql-connector-odbc-noinstall-5.1.13-win32.zip
Ojo "Tiene que ser una ODBC en 32 bits" teclea ODBC 32 en el buscador de WINDOWS para localizarlo.
Tu ODBC debe quedar como en la imagen anexa.

El password del usuario es: Poweredby1
3.-Crea un PRG con el siguiente Código Fuente y ejecútalo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
PUBLIC cnram as String
**-Define the DNS connection
_dsn="Prueba;"
_server="208.118.63.63;"
_UID="a5a756_pruebas;"
_PWD="Poweredby1;"
_Database="db_a5a756_pruebas;"
_Port="3306"
**
dsn_="DSN="+_dsn+"SERVER="+_server+"UID="+_uid+"PWD="+_pwd+"DATABASE="+_Database+"PORT="+_Port
*****
cnram=SQLSTRINGCONNECT("&dsn_") &&Se intenta la conexión
IF cnram<1
MESSAGEBOX('NO HAY CONEXIÓN CON LA DB'+_Database,16,'Conexión Fallida!')
RELEASE ALL
CLOSE ALL
quit
ENDIF
**--
Como pueden ver, la función SQLSTRINGCONNECT() hace la conexión con la variable PÚBLICA CNRAM.
Si la conexión se llevó acabo entonces puedes hacer la siguiente consulta en el COMMAND WINDOW o en cualquier Forma que elabores.
Teclea por ejemplo en COMMAND WINDOW después de ejecutar el código lo siguiente:
1
2
SQL=sqlexec(cnram,"Select * from clientes;","Cursor")
BROWSE
Si la conexión se llevó acabo, entonces SQL tendrá un valor positivo...y además se ejecutará el BROWSE de un cursor llamado "CURSOR"
Pues por último les deseo la mejor de las suertes. No he podido elaborar un proyecto de prueba, pero es muy fácil después de lo que les acabo de mandar.
Saludos Cordiales.
Atentamente
Juan Martínez Mañón
www.jvsapps.com
Comentarios sobre la versión: VFP 9 (0)
No hay comentarios