[Resolvido]conectar banco de dados access em mysql

olá,

criei um banco de dados em Mysql, e estou precisando fazer a conexão do Meu Front End EM ACCESS 2013, nesse banco de dados em Mysql.


tenho o seguinte codigo,

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "drive={mysql ODBC 5.3Driver};server;187.17.103.149;database=nobredobra;user=nobredobra;password=sempre+7;option=3;"

rs.Open "CLIENTE", cn, adOpenKeyset, adlockoptimistc

rs AddNew
rs("nome") = Me.cliente
rs.Update

end sub

tenho o driver instalado conector 5.3 no windows 8.1

so que da erro, alguém me ajude a fazer essa conexão.

Olá urbanu,

Já existe um tópico no fórum com este problema resolvido:

http://maximoaccess.forumeiros.com/t10539-resolvidoconexao-access-com-mysql-nao-da-certo

sim fiz as alterações conforme os meu dados e apareceu a mensagem de erro.

em anexo

Olá,

Você já se certificou da compatibilidade entre as versões do driver e do seu windows (32/64 bits)?
Outro detalhe, talvez tenha sido a pressa em escrever, mas a string de conexão está faltando uma letra, não?
Onde está:
cn.Open "drive={mysql ...
deveria ser:
cn.Open "driver={mysql ...

fiz toda a correção da conect String e deu o seguinte erro,


o formato da cadeia de caracteres de inicialização não está de acordo com a especificação ole db

Veja se este artigo pode te auxiliar: Usando palavras-chave da cadeia de conexão
Publique a sua string de conexão para revermos.

A versão driver do MySQL é a mesma do seu ACCESS (ambos de 32 ou 64 bits)? Estou confirmando porque antes eu havia dito entre o driver MySQL e o Windows.

Segue uma string de conexão que utilizo em um programa meu:

Código:


    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
 
    Set conn = New ADODB.Connection
    conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" _
    & "SERVER=NOME_DO_SERVIDOR;" _
    & " DATABASE=NOME_DA_BASE_DE_DADOS;" _
    & "UID=NOME_USUÁRIO;PWD=SENHA_USUÁRIO; OPTION=3"

    conn.Open
    Set rs = New ADODB.Recordset

    rs.Open "select * from minha_tabela", conn, adOpenKeyset, adLockOptimistic
 
    rs.AddNew
        rs!campo1 = intCampo1
    rs.UpdateBatch


WerlessonSampaio boa tarde posta o BD e converta em ACCESS 2010

Obrigado Werlesson Sampaio, Apliquei a string de conexão, e funcionou perfeitamente..

Vlw, Obrigado