Autor Tópico: Acessar MySQL Remoto (Resolvido)  (Lida 2524 vezes)

jcesar

  • Full Member
  • ***
  • Mensagens: 170
  • Karma: +0/-0
Acessar MySQL Remoto (Resolvido)
« Online: Dezembro 09, 2013, 04:56:33 pm »
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.

Código: [Selecionar]
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

Arlindo Reis

  • Sr. Member
  • ****
  • Mensagens: 291
  • Karma: +0/-0
Re:Acessar MySQL Remoto
« Responder #1 Online: Dezembro 09, 2013, 05:21:06 pm »
Tente da seguinte forma se for em Webdev

Código: [Selecionar]
IF InPHPSimulatorMode() = False THEN

Banco is Connection

Banco..Provider = hNativeAccessMySQL
Banco..User     = "usuario"
Banco..Password = "senha"
Banco..Server   = "192.168.9.99" ou "url do servidor"
Banco..Database = "meubanco"
Banco..Access   = hOReadWrite

IF NOT HOpenConnection(Banco) THEN
EndProgram(“Impossivel conectar com Banco de dados - Verificar arquivo de configuração.”)
ELSE
HChangeConnection(“*”,Banco)
HCreationIfNotFound(“*”)
END
END

Veja também se o usuário do BD esta com permissões de acesso remoto, caso não coloque a wildcard '%' ou bind adress: 0.0.0.0

Att,
Att,

Arlindo Reis
AR-Sistemas R/S - http://arsistemas.com.br

jcesar

  • Full Member
  • ***
  • Mensagens: 170
  • Karma: +0/-0
Re:Acessar MySQL Remoto
« Responder #2 Online: Dezembro 09, 2013, 05:32:02 pm »
Arlindo

Estou usando Windev 18.

No servidor remoto eu já alterei o bind address para 0.0.0.0 mas o comando HOpenConnection continua retornando falso.

Arlindo Reis

  • Sr. Member
  • ****
  • Mensagens: 291
  • Karma: +0/-0
Re:Acessar MySQL Remoto
« Responder #3 Online: Dezembro 09, 2013, 06:04:05 pm »
Seu servidor é Windows ou linux?

Se foi windows tente fazer isso aqui

Código: [Selecionar]
cd\
cls
netsh advfirewall firewall add rule name="MySQL Server" action=allow protocol=TCP dir=in localport=3306
Att,

Arlindo Reis
AR-Sistemas R/S - http://arsistemas.com.br

jcesar

  • Full Member
  • ***
  • Mensagens: 170
  • Karma: +0/-0
Re:Acessar MySQL Remoto
« Responder #4 Online: Dezembro 09, 2013, 07:49:42 pm »
É um servidor linux.

Mas já resolvi o problema, o arquivo LibMySQL.DLL estava faltando. Bastou copiar para a pasta Windev/Programs que consegui acessar o servidor sem maiores problemas.

Arlindo Reis

  • Sr. Member
  • ****
  • Mensagens: 291
  • Karma: +0/-0
Re:Acessar MySQL Remoto
« Responder #5 Online: Dezembro 09, 2013, 07:55:50 pm »
É um servidor linux.

Mas já resolvi o problema, o arquivo LibMySQL.DLL estava faltando. Bastou copiar para a pasta Windev/Programs que consegui acessar o servidor sem maiores problemas.

Já sofri desse mal também 8)
Att,

Arlindo Reis
AR-Sistemas R/S - http://arsistemas.com.br