Olá pessoal
Estou tentando acessar um servidor remoto mysql com o código abaixo, mas não está funcionando.
O erro ocorre no comando HOpenConnection.
A mensagem de erro aparece tão rápido que parece que o problema é na minha máquina e não na conexão com o servidor.
Um detalhe, já instalei o componente de acesso nativo ao mysql.
guiabras is Connection
// Parameters of the connection
guiabras..Provider = hNativeAccessMySQL
guiabras..User = “usuario”
guiabras..Password = “senha”
guiabras..Server = “ip_do_servidor”
guiabras..Database = “nome_do_bd”
guiabras..Access = hOReadWrite
// Opening the connection
IF HOpenConnection(guiabras) THEN
db is Data Source
HExecuteSQLQuery(db,guiabras,"Select * from Hospedagem")
Hreadfirst(db)
Info(db.Nome)
ELSE
Error("falha ao conectar ao banco de dados")
END