CONECTAR COM UM BANCO MYSQL HOSPEDADO NA NET
Boa tarde
GOstaria de saber se e possivel , e como fazer para conectar um programa vb desktop tradicional com um banco mysql hospedado na web ?
Grato pela ajuda
Fernando
GOstaria de saber se e possivel , e como fazer para conectar um programa vb desktop tradicional com um banco mysql hospedado na web ?
Grato pela ajuda
Fernando
Simplesmente especifique na connectionstring o endereço do banco, usuário e senha...
usr = [Ô]root[Ô] [ô]Usuário do banco de dados
pwd = [Ô][Ô] [ô]Senha
db = [Ô]bd[Ô] [ô]Banco de dados
sv = [Ô]localhost[Ô] [ô]Caminho do servidor
With cnn
.ConnectionTimeout = 60
.CommandTimeout = 400
.CursorLocation = adUseClient
.Open [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô] _
& [Ô]user=[Ô] & usr _
& [Ô];password=[Ô] & pwd _
& [Ô];database=[Ô] & db _
& [Ô];server=[Ô] & sv _
& [Ô];option=[Ô] & (1 + 2 + 8 + 32 + 2048 + 16384)
End With
pwd = [Ô][Ô] [ô]Senha
db = [Ô]bd[Ô] [ô]Banco de dados
sv = [Ô]localhost[Ô] [ô]Caminho do servidor
With cnn
.ConnectionTimeout = 60
.CommandTimeout = 400
.CursorLocation = adUseClient
.Open [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô] _
& [Ô]user=[Ô] & usr _
& [Ô];password=[Ô] & pwd _
& [Ô];database=[Ô] & db _
& [Ô];server=[Ô] & sv _
& [Ô];option=[Ô] & (1 + 2 + 8 + 32 + 2048 + 16384)
End With
Como ficaria a conection string ?
nao consigo descobrir o motivo desse erro
Se for o VB6, você deve instalar o MyODBC no computador que irá conectar com o MySQL, pois o Windows não tem este driver nativo
nos ja instalamos mesmo assim continua dando mesmo erro
Qual a versão do driver ODBC que vc instalou, e qual a que vc declarou na string de conexão. ?
Caro NILTONTRES
Obrigado pela sua ajuda... vamos lá:
Em ferramentas administrativas constato a instalação do ODBC:
MySql 5.2 Ansi Driver (por esse caminho o banco é conectado)
Ao Tentar a conexão estou usando o comando (removi de propósito os dados do meu banco de dados- logo abaixo):
Public 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 = [Ô]localhost[Ô]
BD = [Ô]nomedobanco[Ô]
PORTA = [Ô]3306[Ô]
USER = [Ô] [ô][Ô]root[Ô]
SENHA = [Ô]suasenha[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 5.2 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
Obrigado
Fernando
Obrigado pela sua ajuda... vamos lá:
Em ferramentas administrativas constato a instalação do ODBC:
MySql 5.2 Ansi Driver (por esse caminho o banco é conectado)
Ao Tentar a conexão estou usando o comando (removi de propósito os dados do meu banco de dados- logo abaixo):
Public 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 = [Ô]localhost[Ô]
BD = [Ô]nomedobanco[Ô]
PORTA = [Ô]3306[Ô]
USER = [Ô] [ô][Ô]root[Ô]
SENHA = [Ô]suasenha[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 5.2 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
Obrigado
Fernando
Tópico encerrado , respostas não são mais permitidas