MYSQL
ola pessoal
estou precisando acessar a base de dados remota do mysql pq eu preciso ver a estrutura de dados e comecar a desenvolver em cima disso
como q eu faço para acessar a base de dados remota via mysql tendo o ip, usuario e senha?
estou precisando acessar a base de dados remota do mysql pq eu preciso ver a estrutura de dados e comecar a desenvolver em cima disso
como q eu faço para acessar a base de dados remota via mysql tendo o ip, usuario e senha?
Veja esta lista
mas creio q só alterando o server para o seu servidor, deva funcionar
mas creio q só alterando o server para o seu servidor, deva funcionar
é basicamente simples
veja eu coloco em u módulo o seguinte
veja eu coloco em u módulo o seguinte
Public Conexao As New 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
[ô]verifica se a conexao está aberta e fecha para evitar erros
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
Valor = True
End If
If Valor = True Then
SERVER = [Ô]200.0.0.1[Ô]
BD = [Ô]nomedobanco[Ô]
PORTA = [Ô]porta[Ô]
USER = [Ô]nomedousuario[Ô]
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
Tópico encerrado , respostas não são mais permitidas