CONECTAR MYSQL REDEHOST

NICOLLAS2 16/11/2010 17:21:03
#357595
Pessoal, estou dando uma estudada para acessar banco de dados mysql da internet mas estou tendo um certa dificuldade

peguei este codigo aqui no site, mas esta dando erro

[Ô]Run-time error -2147467259 (80004005)
[Microsoft][ODBC Driver Manager] Nome da fonte de dados nao encontrado e nenhum driver padrao especificado[Ô]

segue o codigo da rotina


  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 = [Ô]mysql02.redehost.com.br[Ô]
BD = [Ô]MeuDBsiip[Ô]
PORTA = [Ô]3306[Ô]
USER = [Ô]admteste[Ô]
SENHA = [Ô]1234abcd[Ô]
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

Private Sub Form_Load()
Conecta True


End Sub
XXXANGELSXXX 16/11/2010 18:58:19
#357603 Resposta escolhida
Veja só esta dando esse erro, porque voce nao tem o driver instalado na maquina, o driver so mysql. esta conexao acima é funcional, so falta o driver mesmo
Acesse o site http://www.mysql.com/downloads/connector/odbc/ , baixe o driver de acordo com as necessidades..
e mude a referencia do mesmo ..

aqui..

CON_STR = [Ô]DRIVER={MySQL ODBC 3.51 DRIVER};[Ô] _
para o driver que vc baixar.. exemplo..
CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
NICOLLAS2 17/11/2010 08:57:50
#357626
wow... valeu angels

nem me liguei que precisava de driver.

agora deu certo
Tópico encerrado , respostas não são mais permitidas
Voltar