Estadísticas del código: Conexión a Base de Datos MySQL remota desde VFP - FoxPro/Visual FoxPro

<<>>
Imágen de perfil
Val: 9
Ha disminuido su posición en 9 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Conexión a Base de Datos MySQL remota desde VFP


FoxPro/Visual FoxPro

Publicado el 14 de Abril del 2020 por Juan
2.353 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.

connect

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

639 visualizaciones durante los últimos 90 días (Una media de 7 por día)


33
0