MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Pervasive Conection por VBA

    avatar
    Felipegarcia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 07/12/2022

    [Resolvido]Pervasive Conection por VBA Empty [Resolvido]Pervasive Conection por VBA

    Mensagem  Felipegarcia Sex 10 Fev 2023, 13:28

    olá a todos!

    Preciso de uma ajuda para conectar a um banco de dados da Pervasive.


    Algumas informações: Tenho DNS setada para o banco de dados "SIESCONDADOS"
    Tenho o Driver instalado no "Administrador de Fonte de Dados ODBC": Pervasive ODBC Client Intervace

    Estou "na maquina X", tentando conectar ao meu servidor do escritório (a base está em outra máquina/servidor)
    Código:

    Dim adoConn As ADODB.Connection
    Set adoConn = New ADODB.Connection
    adoConn.ConnectionString = "Driver={Pervasive ODBC Client Interface};ServerDSN=SIESCONDADOS;DBQ=SIESCONDADOS;UID=XXXXX;PWD=YYYYY;"
    adoConn.Open
    If adoConn.State = adStateOpen Then
        MsgBox "Welcome"
    Else
        MsgBox "Error connecting to Database."
    End If


    Só retorno em erros:
    -> Se uso DRIVER: Pervasive ODBC Client Interface: MICROSOFT ODBC DRIVER MANAGER: nome da fonte de dados não encontrado e nenhum driver padrão especificado
    -> Se uso DRIVER: PMySQL ODBC 3.51 Driver: MYSQL ODBC 3.51 Driver - Cant connect to Mysql server on 'localhost'

    Preciso fazer essa conexão por VBA ACCESS.
    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 01/03/2016

    [Resolvido]Pervasive Conection por VBA Empty Re: [Resolvido]Pervasive Conection por VBA

    Mensagem  adriano.ig Ter 09 maio 2023, 00:05

    Boa noite Felipe!

    Aqui vai uma contribuição, teste assim:

    Código:

    Sub conectar_banco()

        Dim adoConn As New ADODB.Connection
        Dim strConn As String

        strConn = "Driver={Pervasive ODBC Client Interface};ServerDSN=SIESCONDADOS;UID=XXXXX;PWD=YYYYY;"
        adoConn.Open strConn
       
        If adoConn.State = adStateOpen Then
            MsgBox "Conexão bem sucedida."
        Else
            MsgBox "A conexão Falhou."
        End If
       
        adoConn.Close
       
    End Sub



    Felipegarcia gosta desta mensagem

    avatar
    Felipegarcia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 07/12/2022

    [Resolvido]Pervasive Conection por VBA Empty Re: [Resolvido]Pervasive Conection por VBA

    Mensagem  Felipegarcia Ter 09 maio 2023, 00:15

    obrigado pela contribuição.

    Conseguir resolver o problema (era um problema "maior")

    Pervasive rodando a 32bts e o access a 64.

    Mas já consegui resolver e importar dados do sistema para o access.
    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 01/03/2016

    [Resolvido]Pervasive Conection por VBA Empty Re: [Resolvido]Pervasive Conection por VBA

    Mensagem  adriano.ig Ter 09 maio 2023, 00:17

    Maravilha!

    marque o tópico como resolvido!

    Sucesso!

    Conteúdo patrocinado


    [Resolvido]Pervasive Conection por VBA Empty Re: [Resolvido]Pervasive Conection por VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Seg 20 maio 2024, 13:28