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