Código de FoxPro/Visual FoxPro - Conexión a Base de Datos MySQL remota desde VFP

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 VFPgráfica de visualizaciones


FoxPro/Visual FoxPro

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

VFP 9

Publicado el 14 de Abril del 2020gráfica de visualizaciones de la versión: VFP 9
11.774 visualizaciones desde el 14 de Abril del 2020
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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​
**--



Comentarios sobre la versión: VFP 9 (0)


No hay comentarios
 

Comentar la versión: VFP 9

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s6117