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
Funciona perfeitamente!
Se eu conectar pelo Excel da o seguinte erro:
Tentei por vba tbm e nada, mesmo erro:
Será que alguém teria alguma ideia do que estou fazendo de errado?
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
Funciona perfeitamente!
Se eu conectar pelo Excel da o seguinte erro:
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?