FoxPro/Visual FoxPro - Conexion MySQL

   
Vista:

Conexion MySQL

Publicado por Chente (70 intervenciones) el 27/07/2011 02:33:20
Que tal, solicito su apoyo como puedo conectarme a una Base de datos de MySQL con VFP 9. Necesito conectarme para poder generar consultas a tablas y hacer reportes desde VFP.
De antemano muchas gracias

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Conexion MySQL

Publicado por alberto (399 intervenciones) el 29/07/2011 13:55:14
esto poner en el load del form o en el prg principal , depende si haces una unica coneccion o varias conecciones

USE
local lcServidor,lcBaseDatos,lcUsuarioSQL,lcPass ,lcCnxStr
lcServidor = "5.17.1.261"
* ip publica o de hamachi sino poner localhost
lcBaseDatos = "veterinaria"
lcUsuarioSQL = "root"
lcPass = "4606681"

lcCnxStr = "Driver={MySQL ODBC 5.1 Driver};Port=3306;Server=" + lcServidor + ";Database=" + ALLTRIM(lcBaseDatos) + ";Uid=" + lcUsuarioSQL + ";Pwd=" + lcPass + ";OPTION=131329;"

SQLSETPROP(0,"DispLogin",3)
THISFORM.bdConn = SQLSTRINGCONNECT(lcCnxStr) && ESTABLECER LA CONEXION

IF THISFORM.bdConn < 1
=AERROR(laError)
lnError = TRANSFORM(laError(1))
lcError = laError(2)
MESSAGEBOX("Imposible Realizar la Conexión con el Servidor de Datos." + CHR(13) + CHR(13) + ;
"Número de Error: " + lnError + CHR(13) + ;
ALLTRIM(lcError),048,"Error == Conexión Base de Datos")
RETURN .F.
ENDIF

=SQLSETPROP(THISFORM.bdConn, 'PacketSize', 5000)
lcUsuarioSQL
MESSAGEBOX("Se Realizo la Conexion con Exito.",48+0+0,"Conexión Base de Datos")

debes instalar en tu equipo el conector odbc , bajalo de internet
saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar