Conexión a BD MySql remota
Posted: Thu May 02, 2019 7:55 pm
Saludos amigos,
Tengo contratado un host y he creado en el una base de datos MySQL:
Estoy tratando de usar este código para conectarme a ella:
Pero no se conecta, siempre me sale el mensaje "No connection to server". Agradeceré la ayuda de los que tengan experiencia conectando a bases de datos remotas.
Att.
Tengo contratado un host y he creado en el una base de datos MySQL:
Estoy tratando de usar este código para conectarme a ella:
Code: Select all
*------------------------------------------------------------------------------*
*------------------------------------------------------------------------------*
*------------------------------------------------------------------------------*
PROC ConexionRemota
// Connect
oServer := TMySQLServer():New("51.254.123.233" , "ago28ind_root" , "clave")
// Check For Error
If oServer:NetErr()
MsgStop(oServer:Error())
Win_1.Title := 'MySql Basic Sample - Not Connected'
Else
If oServer:NetErr()
MsgStop(oServer:Error())
Else
oServer:SelectDB("ago28ind_infofarma")
Win_1.Title := 'MySql Basic Sample - Connected'
Endif
EndIf
Return
Att.