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


    Erro na criação de nova conexão com mysql

    Ronaldo Costa
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 14/03/2011

    Erro na criação de nova conexão com mysql Empty Erro na criação de nova conexão com mysql

    Mensagem  Ronaldo Costa em 19/12/2018, 15:02

    Olá pessoa!

    Estou tentando criar uma nova conexão com o mysql, porém quando clico no botão 'NOVA', me aparece a seguinte mensagem:

    "Você efetuou logon com privilégios não administrativos. Não foi possível criar ou modificar DSNs do sistema."

    Já tentei fazer usando o usuário administrador do windows, mas não deu certo. Alguém tem uma dica pra me tirar desta enrascada?



    grato
    Anexos
    Erro na criação de nova conexão com mysql AttachmentSem título.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 4 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 721
    Registrado : 13/12/2016

    Erro na criação de nova conexão com mysql Empty Re: Erro na criação de nova conexão com mysql

    Mensagem  Alexandre Fim em 19/12/2018, 21:58

    Olá Ronaldo,

    É necessário baixar e instalar o drive ODBC do MySQL.
    Já está instalado?
    Você está utilizando tabelas vinculadas com as tabelas do MySQL?
    O acesso é via rede interna ou seu bd está em algum provedor na nuvem?
    Voce utiliza o Access no modo desacoplado?

    []'s
    Ronaldo Costa
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 14/03/2011

    Erro na criação de nova conexão com mysql Empty Re: Erro na criação de nova conexão com mysql

    Mensagem  Ronaldo Costa em 20/12/2018, 19:33

    Olá Alexandre. Grato por sua atenção!

    Já tenho o driver instalado.
    Pretendo usar tabelas vinculadas do access, mas por enquanto estou tentando fazer testes com uma tabela do mysql.
    O bd está em um provedor na nuvem.
    As tabelas serão acopladas.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 721
    Registrado : 13/12/2016

    Erro na criação de nova conexão com mysql Empty Re: Erro na criação de nova conexão com mysql

    Mensagem  Alexandre Fim em 21/12/2018, 01:05

    Ronaldo boa noite,

    O serviço do seu provedor oferece servidor de banco de dados dedicado ou compartilhado?

    Recentemente desenvolvi um sistema comercial em Access com database MySQL e o pacote de serviços do provedor (Hostgator) do meu cliente oferecia banco de dados remoto MySQL, porém, o serviço era de servidor "Compartilhado", ou seja, várias empresas/pessoas utilizando o mesmo serviço.

    O sistema foi desenvolvido na arquitetura Client/Server, e os formulários eram todos com os campos "Não Acoplados", onde toda vez que era executado uma
    instrução (SELECT, INSERT, DELETE, UPDADTE), a função de conexão ADO com o banco era executada para realizar o comando desejado.

    Um dos problemas que eu tive com o servidor compartilhado é que, quando o sistema ficava ocioso (entre 1 a 3 minutos), o servidor "derrubava" a conexão. Entrei em contato com a equipe técnica do serviço de provedor e eles disseram que era uma característica do serviço compartilhado, ou seja, o provedor derruba a conexão para que outros utilizem também, o que faz jus ao preço (R$23,90 /mês).

    No modulo de conexão do sistema, criei uma rotina que verifica se a conexão estava aberta (if cnn.state = 1) e se a propriedade "Defaultdatabase" não fosse NULL, e este era o sinal que a conexão estava ativa.
    Em algumas ocasiões, a conexão estava ativa mas o Defaultdatabase era "NULL" e ai a conexão era inválida.

    Tive que fazer este tratamento para que não caisse a conexão.

    Eu acredito que se voce trabalhar com Access com tabelas vinculadas, talvez tenha o mesmo problema.

    Caso precisar, segue código e conexão que utilizei:
    Código:

    Public Function Conect() As Boolean
    On Error GoTo trata_erro
       
        blnconn = False

        If cnn.State = 1 And cnn.DefaultDatabase = myDB Then
            Conect = True
            Exit Function
        End If
       
        If cnn.State = 0 Then
            blnconn = True
            GoTo CONECTA
        End If
       
        If cnn.State = 0 And (IsNull(cnn.DefaultDatabase) Or Trim(cnn.DefaultDatabase) = Empty) Then
            blnconn = True
        ElseIf cnn.State = 1 And (IsNull(cnn.DefaultDatabase) Or Trim(cnn.DefaultDatabase) = Empty) Then
            blnconn = True
        Else
            blnconn = False
        End If
       
       
    CONECTA:
       
        If blnconn = True Then
            Set cnn = CreateObject("ADODB.Connection")
            myDriver = "DRIVER={MySQL ODBC 5.3 ANSI Driver}"
       myServer = "<IP DA CONEXÃO REMOTA>": myPort = "3306": myDB = "<NOME_DO_DATABASE>": myUser = "<USER_NAME>": myPwd = "<PASSWORD>"
           
       With cnn
            .CursorLocation = adUseClient
            .ConnectionTimeout = 0
            .CommandTimeout = 0
            .ConnectionString = "" & myDriver & ";" & _
                            "SERVER=" & myServer & ";" & _
                            "DATABASE=" & myDB & ";" & _
                            "USER=" & myUser & ";" & _
                            "PASSWORD=" & myPwd & ";" & _
                            "OPTION=3;"
            .Open
            Conect = True
            End With
        End If
       
        Exit Function
       

    trata_erro:
        blnconn = True
        GoTo CONECTA
       
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "" & _
        vbCrLf & " O sistema será encerrado.", vbCritical + vbOKOnly + vbApplicationModal, "Erro de Conexão"
        Set cnn = Nothing


    End Function

    Espero ter ajudado.

    Boa sorte

    []'s





    Ronaldo Costa
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 14/03/2011

    Erro na criação de nova conexão com mysql Empty Re: Erro na criação de nova conexão com mysql

    Mensagem  Ronaldo Costa em 21/12/2018, 01:25

    Valeu amigão.

    Vou dar uma olhada no código pra ver se consigo me ajustar aqui.

    obrigado!!!!!!!!!!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 721
    Registrado : 13/12/2016

    Erro na criação de nova conexão com mysql Empty Re: Erro na criação de nova conexão com mysql

    Mensagem  Alexandre Fim em 21/12/2018, 10:14

    Ok Ronaldo...
    Valeu.
    Qualquer problema poste aqui, para que os colaboradores de fórum possa ajudá-lo.

    Um abraço.


    Conteúdo patrocinado

    Erro na criação de nova conexão com mysql Empty Re: Erro na criação de nova conexão com mysql

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/5/2019, 02:46