|
|
Postada em 15/10/2010 01:09 hs
Pessoal, migrei meu canco de dados do Access para o MySQL. agora nao to conseguido colocar meu Programa na rede.
Segue meu codigo
Dim CAMINHO As String
Dim CaminhoBD As String
'Pega o caminho que esta dentro de um arquivo de texto
Open App.Path + "CAM.txt" For Input As #1
Line Input #1, CAMINHO
CaminhoBD = CAMINHO
Close #1
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("", dbDriverComplete, False, "Driver={MySQL ODBC 5.1 Driver};Server=CaminhoBD;Database=ControlFacil; User=root;Password=;Option=3;")
Set tb = db.OpenRecordset("Select * from tabLong order by Nome desc") 'crescente
Se eu colocar 127.0.0.1 no lugar de CaminhoBD ele funciona certinho.
Mais ai somente o servido vai acessar e os outros PC da rede nao vai. por isso eu criei esse CaminhoBD para que cada PC eu Coloque o IP do Servidor.
Parece que essa string de conexão nao reconheci a String CaminhoBD. alguem pode me ajudar?
|
|
|
|
|
|
|
|
Postada em 15/10/2010 08:41 hs
Em Ado seria assim
Global G_db As New ADODB.Connection
G_db.ConnectionString = "driver={MySQL};server=192.168.1.94;database=bancodados;uid=root;pwd=;"
G_db.Open
|
|
|
|
João Paulo
não registrado
|
|
Postada em 15/10/2010 10:23 hs
Mais o interessante é que ta funcionando quanto eu coloco o IP 127.0.0.1 ou LocalHost. se eu colocar outro IP ele nao conecta.
|
|
|
|
|
|
Postada em 15/10/2010 11:03 hs
No command do windows faz um ipconfig e coloca a ip do servidor que aparece ai. Verifica sem o firewall esta bloqueando accesso ao banco nas outras pc clientes;
Vc ta usando DHCP? ou IP Fixa. ?
O erro ta que a ip 127.0.0.1 é localhost. vc tem que colocar a ip de rede.!
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 15/10/2010 11:45 hs
bom veja minha conexão
Public Conexao As ADODB.Connection
Public Function Conecta(ByVal Valor As Boolean)
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
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
Conecta True
End If
If Valor = True Then
Set Conexao = New Connection
SERVER = "000.000.000.000"
BD = "nome_do_banco"
PORTA = "3306"
USER = "nome_do_usuario"
SENHA = "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
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function
bom colega verifique se a porta 3306 está liberada no roteador
|
|
|
|
João Paulo
não registrado
|
|
Postada em 15/10/2010 13:25 hs
ok, vou verificar essas dicas hj a noite e posto aki falando ok. obrigado pelas dicas
|
|
|
|
