CONEXAO REDE LOCAL MYSQL
boa tarde amigos,
mais uma vez peço a ajuda de vocês. Procurei pela internet mas sem não consegui resolver, ainda, o problema.
Fiz a migração da base de dados do access para o mysql. Usando as configurações de localhost funciona numa boa, também funciona com um endereço de um servidor externo(no caso instalei no uolhost) ai consigo fazer a conexão online mas se eu colocar o endereço de outro pc que está na minha rede não funciona. Já modifiquei o firewall pra liberar a porta ou mesmo o programa mysql. Já mudei dentro do phpadmin as configurações do usuário, para aceitar a conexão de qualquer ip e usuário e mesmo assim nada.
Estou usando o windows xp nos 3 computadores
segue um trecho:
esse é o arquivo.ini
[MySQL_offline]
SERVIDOR=192.168.1.103
PORTA=3306
USUARIO=root
BASEDEDADOS=contatos
Senha=
[MySQL_Online]
SERVIDOR=dbmy0019.whservidor.com
PORTA=3306
USUARIO=seducaomag
BASEDEDADOS=seducaomag
Senha=*****
Sub Conexao()
Dim Servidor As String
Dim Porta As String
Dim Usuario As String
Dim Senha As String
Dim Base As String
[ô]Puxar dados do arquivo INI
On Error GoTo Rotina_Erro
[ô]verifica qual conexao foi escolhida offline ou online
If ReadINI([Ô]Conexao[Ô], [Ô]Tipo[Ô], App.Path & [Ô]\MySQL.ini[Ô]) = 1 Then
Servidor = ReadINI([Ô]MySQL_offline[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Porta = ReadINI([Ô]MySQL_offline[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Usuario = ReadINI([Ô]MySQL_offline[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Senha = ReadINI([Ô]MySQL_offline[Ô], [Ô]SENHA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Base = ReadINI([Ô]MySQL_offline[Ô], [Ô]BASEDEDADOS[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Else
Servidor = ReadINI([Ô]MySQL_online[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Porta = ReadINI([Ô]MySQL_online[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Usuario = ReadINI([Ô]MySQL_online[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Senha = ReadINI([Ô]MySQL_online[Ô], [Ô]SENHA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Base = ReadINI([Ô]MySQL_online[Ô], [Ô]BASEDEDADOS[Ô], App.Path & [Ô]\MySQL.ini[Ô])
End If
[ô]faz a conexao com o banco de dados
If (cnn Is Nothing) Then
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = [Ô]Driver={MySQL ODBC 5.1 Driver};SERVER=[Ô] & Servidor & [Ô];PWD=[Ô] & Senha & [Ô];UID=[Ô] & Usuario & [Ô];PORT=[Ô] & Porta & [Ô];DATABASe=[Ô] & Base & [Ô];[Ô]
cnn.Open
End If
[ô]antes de sair
Exit Sub
Rotina_Erro:
If Err.Number = 3705 Then
End If
If Err.Number = -2147467259 Then
Msgbox [Ô]Banco de Dados não conectado ao servidor![Ô] & vbCrLf & vbCrLf & [Ô]Verifique[Ô] & vbCrLf & _
[Ô]Conexão com a INTERNET[Ô] & vbCrLf & [Ô]Se o SERVIDOR DE DADOS esta ligado.[Ô], vbExclamation, [Ô]Verifique[Ô]
[ô]pergunta se quer conectar a conexao offline
End
End If
End Sub
mais uma vez peço a ajuda de vocês. Procurei pela internet mas sem não consegui resolver, ainda, o problema.
Fiz a migração da base de dados do access para o mysql. Usando as configurações de localhost funciona numa boa, também funciona com um endereço de um servidor externo(no caso instalei no uolhost) ai consigo fazer a conexão online mas se eu colocar o endereço de outro pc que está na minha rede não funciona. Já modifiquei o firewall pra liberar a porta ou mesmo o programa mysql. Já mudei dentro do phpadmin as configurações do usuário, para aceitar a conexão de qualquer ip e usuário e mesmo assim nada.
Estou usando o windows xp nos 3 computadores
segue um trecho:
esse é o arquivo.ini
[MySQL_offline]
SERVIDOR=192.168.1.103
PORTA=3306
USUARIO=root
BASEDEDADOS=contatos
Senha=
[MySQL_Online]
SERVIDOR=dbmy0019.whservidor.com
PORTA=3306
USUARIO=seducaomag
BASEDEDADOS=seducaomag
Senha=*****
Sub Conexao()
Dim Servidor As String
Dim Porta As String
Dim Usuario As String
Dim Senha As String
Dim Base As String
[ô]Puxar dados do arquivo INI
On Error GoTo Rotina_Erro
[ô]verifica qual conexao foi escolhida offline ou online
If ReadINI([Ô]Conexao[Ô], [Ô]Tipo[Ô], App.Path & [Ô]\MySQL.ini[Ô]) = 1 Then
Servidor = ReadINI([Ô]MySQL_offline[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Porta = ReadINI([Ô]MySQL_offline[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Usuario = ReadINI([Ô]MySQL_offline[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Senha = ReadINI([Ô]MySQL_offline[Ô], [Ô]SENHA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Base = ReadINI([Ô]MySQL_offline[Ô], [Ô]BASEDEDADOS[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Else
Servidor = ReadINI([Ô]MySQL_online[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Porta = ReadINI([Ô]MySQL_online[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Usuario = ReadINI([Ô]MySQL_online[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Senha = ReadINI([Ô]MySQL_online[Ô], [Ô]SENHA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
Base = ReadINI([Ô]MySQL_online[Ô], [Ô]BASEDEDADOS[Ô], App.Path & [Ô]\MySQL.ini[Ô])
End If
[ô]faz a conexao com o banco de dados
If (cnn Is Nothing) Then
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = [Ô]Driver={MySQL ODBC 5.1 Driver};SERVER=[Ô] & Servidor & [Ô];PWD=[Ô] & Senha & [Ô];UID=[Ô] & Usuario & [Ô];PORT=[Ô] & Porta & [Ô];DATABASe=[Ô] & Base & [Ô];[Ô]
cnn.Open
End If
[ô]antes de sair
Exit Sub
Rotina_Erro:
If Err.Number = 3705 Then
End If
If Err.Number = -2147467259 Then
Msgbox [Ô]Banco de Dados não conectado ao servidor![Ô] & vbCrLf & vbCrLf & [Ô]Verifique[Ô] & vbCrLf & _
[Ô]Conexão com a INTERNET[Ô] & vbCrLf & [Ô]Se o SERVIDOR DE DADOS esta ligado.[Ô], vbExclamation, [Ô]Verifique[Ô]
[ô]pergunta se quer conectar a conexao offline
End
End If
End Sub
SERVIDOR=\
omedopcremoto
ou ip do pc remoto não funcionou
omedopcremoto
ou ip do pc remoto não funcionou
testei os dois mas não.
coloquei o ip da minha própria máquina na rede e também não funcionou
coloquei o ip da minha própria máquina na rede e também não funcionou
bom vamos lá o ip do servidor é fixo ou automático, aconselho que seja fixo.
Usando o prompt - ipconfig - aparece o ip da máquina que seria o servidor 192.168.1.103 o da máquina que estou tentando fazer a conexão é 192.168.1.102, isto local. pra conexão devo usar o ip único = 187.15.64.100. As máquinas estão ligadas num roteador.
o roteador é wireless
sim. wireless. acha que pode ser isso?
Veja se firewall do wireless esta bloqueando a porta.
estava ligado o firewall, delisguei mas sem sucesso.
essa tela abaixo é do programa do toad for mysql
essa tela abaixo é do programa do toad for mysql
então tente o seguinte
no servidor, vc deve entrar no prompt do mysql e digitar o seguinte comando:
usuario --> vc pode colocar o usuario q vc esta usando pra conectar no banco, ou pode ser o root mesmo,
no servidor, vc deve entrar no prompt do mysql e digitar o seguinte comando:
GRANT ALL PRIVILEGES ON *.* TO usuario@[ô]%[ô] IDENTIFIED BY [ô]senha[ô] WITH GRANT OPTION;usuario --> vc pode colocar o usuario q vc esta usando pra conectar no banco, ou pode ser o root mesmo,
ta difÃcil. 
apareceu agora acesso negado para o usuário
apareceu agora acesso negado para o usuário
Tópico encerrado , respostas não são mais permitidas