WindevBrasil - Fórum Windev, Webdev e WindevMobile

Dúvidas e soluções => Windev, WebDev e WindevMobile => Tópico iniciado por: jcesar em Dezembro 09, 2013, 04:56:33 pm

Título: Acessar MySQL Remoto (Resolvido)
Enviado por: jcesar em 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
Título: Re:Acessar MySQL Remoto
Enviado por: Arlindo Reis em 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,
Título: Re:Acessar MySQL Remoto
Enviado por: jcesar em 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.
Título: Re:Acessar MySQL Remoto
Enviado por: Arlindo Reis em 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
Título: Re:Acessar MySQL Remoto
Enviado por: jcesar em 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.
Título: Re:Acessar MySQL Remoto
Enviado por: Arlindo Reis em 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)