Hola a todos alguien sabe como se conecta VFP a un hosting con mysql

406 views
Skip to first unread message

Edward Cifuentes

unread,
Jul 3, 2013, 4:35:34 PM7/3/13
to publice...@googlegroups.com
Me interesaría saber que debo hacer para conectar mi base de datos de mysql
a un programa de escritorio en VFP y que pasos debo seguir para conectarla

Les quedo agradecido por las sugerencias



Allan Raúl Acuña

unread,
Jul 3, 2013, 4:56:01 PM7/3/13
to publice...@googlegroups.com
Estimado

Mis saludos antes que nada.

En este link he subido un Script que uso para conectarme a una base de datos MySQL en un Hosting.

Importante que en las configuraciones de las base de datos le pongas en REMOTE el simbolo %, para que te acepte conexiones remotas (esto en el cpanel del Hosting).

http://pastebin.com/V5xVQjVi


Saludos cordiales.

Lic. Allan Raúl Acuña
Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft
            +(505) 8 831 8191      
www.NicEasySoft.org
Managua, Nicaragua
Centroamérica



Date: Wed, 3 Jul 2013 15:35:34 -0500
Subject: [vfp] Hola a todos alguien sabe como se conecta VFP a un hosting con mysql
From: edwardcif...@gmail.com
To: publice...@googlegroups.com

Armando Rodríguez Bermúdez

unread,
Jul 3, 2013, 4:57:12 PM7/3/13
to publice...@googlegroups.com

Hola, basta con que en el dato servidor coloques la IP de tu página o bien la url, ejemplo: www.tudominio.com

El nombre de la base de datos y el usuario y contraseña que te hayan proporcionado.

 

Posteriormente hacer la conexión:

 

lservidor = “www.tudominio.com

lDb = “nombredetubasededatos”

lUid = “tuUsuario”

lpwd = “tupassword”

 

lCadCon = "DRIVER={MySQL ODBC 5.1 Driver};" + ;

      "SERVER=" + lServidor + ";" + ;

      "DATABASE=" + lDB + ";" + ;

      "UID=" + lUid + ";" + ;

      "PWD=" + lPwd

 

m.lih = SQLSTRINGCONNECT(lCadCon)

 

IF m.lih < 0

      IF AERROR(laError) > 0

      lcMsg = ""

          FOR ln = 1 TO ALEN(laError,2)

        lcMsg = lcMsg + TRANSFORM(laError(1,ln)) + CHR(13)

          ENDFOR

      MESSAGEBOX(lcMsg, 16, "Error de ODBC")

      ENDIF

      RETURN

ENDIF

 

Saludos

Armando

ZeRoberto

unread,
Jul 3, 2013, 7:14:16 PM7/3/13
to publicesvfoxpro
Y asegurate que los nombres de las tablas en tus consultas estén en minúsculas sino no los va a encontrar,

SQLEXE("SELECT * FROM mitabla")

Saludos
Reply all
Reply to author
Forward
0 new messages