PROBLEMAS COM MYSQL REMOTO

ERLANMG 05/02/2010 19:48:48
#333767
Caros amigos,

Tenho uma aplicação desenvolvida em VB e mysql.
Acesso em rede local funciona perfeitamente, mas agora meu cliente está com filial e quer tudo em um unico bd.

O servidor possui um ip fixo iniciado em 201.xxx.xxx.xxx.
A Internet é via rádio.
Quando entro no prompt do e digito no servidor ipconfig /all ele não mostra o ip 201 e sim um ip 192. xxx.xxx.xxx e não é o ip na rede interna.
Já desativei o Firewall para fazer teste e nada.

Conecto eu bd com o seguinte codigo:

Set conn = New ADODB.Connection
conn.ConnectionString = [Ô]Driver=MySQL ODBC 3.51 Driver; DATABASE=transportes; SERVER=201.xxx.xxx.xxx; UID=root; PASSWORD=xxxxx[Ô]
conn.Open

Caso não entenda minha dúvida favor postar.

Desde já agradeço a atenção de todos.
LOOZE 05/02/2010 20:32:42
#333768
O que voce precisa fazer é setar o ip da maquina no seu roteador.
tipo.. 192.168.0.1 supondo que seja o ip onde esta o banco dados e a porta.. = por padrão 3306
acesse o roteador e ponnha isso q roda beleza..
na string d conexão vc coloca o ip da internet.. tipo 201.xxx.xxx.xxx.xxx
FOXMAN 05/02/2010 20:53:01
#333772
O Looze, tem razão.

O que acontece é que o IP, 201.xxx.xxx.xxx é do roteador.

Tem que entrar no roteador e localizar a seção que faz esse roteamento de solicitações feitas a porta 3306 e setar o ip interno da rede.

Créditos ao Looze...
ERLANMG 05/02/2010 21:22:13
#333773
Caros Amigos LOOZE e FOXMAN,

Analizando as respostas acima, acho que tenho que procurar o provedor, pois no micro que esta o mysql tenho a placa de rede wireless e a placa de rede interna e não um roteador. A internet é via rádio e como o ip da placa de rede wireless é 192.xxx.xxx.xxx., faço parte de uma rede do provedor.

O que acham?
MARCELO.TREZE 05/02/2010 23:40:22
#333775 Resposta escolhida
bom se vc já sabe o ip fixo o resto é mais simples.

primeiro libere a porta 3306 no roteador e no firewall do windows

e faça sua conexao assim

Dim Conexao As New ADODB.Connection
Dim CON_STR As String
Dim SERVER As String
Dim USER As String
Dim SENHA As String
Dim PORTA As String
Dim BD As String
SERVER = [Ô]201.XXX.XXX.XXX[Ô]
BD = [Ô]transportes[Ô]
PORTA = [Ô]3306[Ô]
USER = [Ô]Root[Ô] [txt-color=#007100][ô]tenha certeza que o usuário é mesmo Root[/txt-color]
SENHA = [Ô]****[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 3.51 DRIVER};[Ô] _
& [Ô]Server=[Ô] & SERVER & [Ô];[Ô] _
& [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
& [Ô]Database=[Ô] & BD & [Ô];[Ô] _
& [Ô]UID=[Ô] & USER & [Ô];[Ô] _
& [Ô]PWD=[Ô] & SENHA & [Ô];[Ô] _
& [Ô]Option=3;[Ô]
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With


veja esta minha conexão lhe ajuda
Tópico encerrado , respostas não são mais permitidas
Voltar