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


    Conexão do Excel 2010 com Sybase Anywhere 9.0

    avatar
    araujors
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 23/10/2015

    Conexão do Excel 2010 com Sybase Anywhere 9.0 Empty Conexão do Excel 2010 com Sybase Anywhere 9.0

    Mensagem  araujors 1/5/2024, 20:45

    Boa tarde pessoal, tudo bem!

    Estou a dias tentando fazer a conexão do banco de dados Sybase com Excel 2010, mas sempre da o seguinte erro:

    Testando direto no ODBC
    Conexão do Excel 2010 com Sybase Anywhere 9.0 Conexa10

    Funciona perfeitamente!
    Conexão do Excel 2010 com Sybase Anywhere 9.0 Conexa11


    Se eu conectar pelo Excel da o seguinte erro:
    Conexão do Excel 2010 com Sybase Anywhere 9.0 Conexa12
    Conexão do Excel 2010 com Sybase Anywhere 9.0 Conexa13Conexão do Excel 2010 com Sybase Anywhere 9.0 Conexa15
    Conexão do Excel 2010 com Sybase Anywhere 9.0 Conexa16

    Tentei por vba tbm e nada, mesmo erro:

    Código:

    Sub TestarConexaoSybase()

        On Error GoTo ErrorHandler
        
        Dim conn As ADODB.Connection
        Dim connStr As String
        
        ' Definir a string de conexão ODBC para o banco de dados Sybase
        connStr = "Driver={Adaptive Server Anywhere 9.0};Server=FolhaRh_RPPSTPortelaLoc;Port=192.xxx.xxx.3:2638?;Database=frhRPPSTPortela;Uid=xxxxxx;Pwd=xxxxxxxx;"

        ' Inicializar a conexão
        Set conn = New ADODB.Connection
        conn.connectionString = connStr
        conn.Open
        
        If conn.State = adStateOpen Then
            MsgBox "Conexão ao banco de dados Sybase bem-sucedida!"
            ' Aqui você pode executar suas consultas e operações no banco de dados
        Else
            MsgBox "Falha na conexão."
        End If
        
        ' Fechar a conexão
        conn.Close
        Set conn = Nothing
        
        Exit Sub

    ErrorHandler:
        ' MsgBox "Erro: " & err.Description
        Debug.Print err.Description
        Resume Next

    End Sub

    Será que alguém teria alguma ideia do que estou fazendo de errado?

      Data/hora atual: 17/5/2024, 05:17