MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [RESOLVIDO] - Erro conexão MySQL

    Compartilhe

    Mauricio.Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 15/02/2016

    [RESOLVIDO] - Erro conexão MySQL

    Mensagem  Mauricio.Santos em Sex 11 Mar 2016, 12:28

    Olá!

    Minha aplicação necessita de uma conexão MySQL sem necessidade de configurar o ODBC (sem DSN).

    Utilizo o seguinte para conexão com MySQL:

    Código:

        Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim strBDSqlServidor As String
        Dim strBDSqlUsuario As String
        Dim strBDSqlSenha As Variant
        Dim strSqlBDDatabase As String
        Dim strSql as string
        
        strBDSqlServidor  = IPServidorMySQL
        strBDSqlUsuario = NomeUsuario
        strBDSqlSenha = SenhaUsuario
        strSqlBDDatabase = NomeBaseDados

        Set cn = New ADODB.Connection
     
        cn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};server=" & strBDSqlServidor & ";Database=" & strSqlBDDatabase & ";uid=" & strBDSqlUsuario & ";pwd=" & strBDSqlSenha & ";"
     
        cn.Open
        rs.CursorLocation = adUseClient


    Mas ao executar o seguinte código:

    Código:

        strSql = "Select * from tblTabela"
        rs.Open strSqln  <<-- Erro!!!

    Aparece o erro:

    "Erro em tempo de execução '3709':
    A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto"


    Utilizei também o seguinte código e ocorreu o mesmo erro no mesmo ponto:

    Código:

        cn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};server=" & strBDSqlServidor & ";Database=" & strSqlBDDatabase & ";uid=" & strBDSqlUsuario & ";pwd=" & strBDSqlSenha & ";"
        
        rs.CursorLocation = adUseClient      
        strsqln = "Select * from tblTabela"
        rs.Open strsqln, cn, adOpenDynamic, adLockOptimistic <<-- Erro!!!

    Utilizo Windows 10 Pro e Office365 2016

    Alguém pode me ajudar?

    Obrigado.

    Mauricio.Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 15/02/2016

    Erro conexão MySQL

    Mensagem  Mauricio.Santos em Seg 28 Mar 2016, 11:51

    Resolvido.....

    Depois de quebrar a cabeça, desinstalar e reinstalar drive MySql o problema só foi resolvido quando desinstalei o drive, limpei o registro do Windows e reinstalei o drive do MySql.

    Obrigado.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4111
    Registrado : 15/03/2013

    Re: [RESOLVIDO] - Erro conexão MySQL

    Mensagem  ahteixeira em Seg 28 Mar 2016, 11:54

    Olá Maurício Santos,
    Que bom que resolveu!
    Obrigado pelo retorno, o fórum agradece.
    Abraço

      Data/hora atual: Sab 24 Jun 2017, 13:18