MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [RESOLVIDO] - Erro conexão MySQL

    avatar
    Mauricio.Santos
    Novato
    Novato

    Respeito às Regras 100%

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

    [RESOLVIDO] - Erro conexão MySQL Empty [RESOLVIDO] - Erro conexão MySQL

    Mensagem  Mauricio.Santos 11/3/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.
    avatar
    Mauricio.Santos
    Novato
    Novato

    Respeito às Regras 100%

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

    [RESOLVIDO] - Erro conexão MySQL Empty Erro conexão MySQL

    Mensagem  Mauricio.Santos 28/3/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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [RESOLVIDO] - Erro conexão MySQL Empty Re: [RESOLVIDO] - Erro conexão MySQL

    Mensagem  ahteixeira 28/3/2016, 11:54

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

      Data/hora atual: 6/3/2021, 16:34