VB6 com MySql remoto

[Jeff Henrique 0]

Bom Dia

Estou tendo um problema para conectar com uma base MySQL via rede.

 

Quando rodo o programa ocorre este erro :

[rum-time error '-2147467259(80004005)'

[MySQL][ODBC 3.51 Driver]Host 'WSNOTE' is not allowed to connect to this MySQL server

 

a instrução para conectar :

Db.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.0.151;PORT=3306;DATABASE=wectrus;USER=root;PASSWORD='';OPTION=3;"

 

Quando troco o Server para Localrost funciona

[Heider 0]

Bom verifique as configurações do firewall do seu sistema operacional ,nas maquinas da rede , marque no firewall >>>exceções >>> set a opção Mysql.

caso não de certo verifique a faixa de IP do seu Servidor , outra opção seria conectar sua aplicação via DSN ,você teria que criar umA DSN em cada estação.

Painel de Controle >>> Ferramentas Administrativas >>> Fontes de Dados ODBC >>> Fontes de Dados de Sistema

e apontar para o seu banco de dados

para abrir sua conexão via codigo faça da seguinte forma:

 

With cn

con = "PROVIDER=MSDASQL;DSN="nome da sua DSN";UID=root;PWD="";Database="";"

cn.Open con

end with