|
|
Postada em 19/12/2012 18:10 hs
Prezados amigos, como faço para definir o Driver do Mysql que aponta para a rede ? ?
Agradeço a ajuda e desejo a todos um Feliz Natal.
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 20/12/2012 08:34 hs
Esta é a forma que utilizo para conexão
em um módulo
Global Conexao As New ADODB.Connection
Public Function Conecta(valor As Boolean)
Dim SERVER As String, BD As String, PORTA As String, USER As String, SENHA As String
Dim CON_STR As String
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
valor = True
End If
If valor = True Then
SERVER = "192,128.100.10" '<---- aqui você coloca o ip do servidor
BD = "nome_banco"
PORTA = "3306"
USER = "root"
SENHA = "senha"
CON_STR = "DRIVER={MySQL ODBC 5.1 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
lembre-se apenas de liberar a porta no servidor
|
|
|
|
|
|
Postada em 20/12/2012 14:22 hs
Treze, modifiquei os parâmetros vide código abaixo:
Global Conexao As New ADODB.Connection
Public Function Conecta(valor As Boolean)
Dim SERVER As String, BD As String, PORTA As String, USER As String, SENHA As String
Dim CON_STR As String
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
valor = True
End If
If valor = True Then
SERVER = "192.160.0.100" '<---- aqui você coloca o ip do servidor
BD = "Agenda"
PORTA = "3306"
USER = "root"
SENHA = "513789"
CON_STR = "DRIVER={MySQL ODBC 5.1 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
não achou o banco de dados..... Se você puder dar uma ajuda, fico muito grato.
|
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 20/12/2012 16:07 hs
então vamos a algumas questões
você instalou o mysql no servidor como servidor?
o ip da máquina esta como servidor é fixo?
|
|
|
|
|
|
Postada em 20/12/2012 21:41 hs
o mysql não foi instalado como servidor. Tenho que re-instalar ?
o ip da máquina sim, é fixo.
Obrigado
|
|
|
|
|
|
Postada em 21/12/2012 21:39 hs
antes de reinstalar, baixe o heidesql e tente fazer a conexão atraves do mesmo
|
|
|
|
