Erro de conexão através do VBA
Enviado: 25 Mar 2020 às 19:20
Olá minha galera, beleza?
Tem algo que esta me deixando louco, estou tentando fazer uma conexão com banco de dados da nuvem (SQL SERVER).
Já tenho o Driver ODBC instalado, e eu consigo fazer o acesso através da função da aba Dados > Conexões Existentes... E importar os dados do servidor (db4free.net)
Mas quando eu tento fazer essa conexão através da macro, ele me gera um erro de [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado.
Mas eu to utilizando os mesmos dados na conexão ODBC e nas conexões existentes do excel, e nos dois funciona perfeitamente.
Tem algo que esta me deixando louco, estou tentando fazer uma conexão com banco de dados da nuvem (SQL SERVER).
Já tenho o Driver ODBC instalado, e eu consigo fazer o acesso através da função da aba Dados > Conexões Existentes... E importar os dados do servidor (db4free.net)
Mas quando eu tento fazer essa conexão através da macro, ele me gera um erro de [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado.
Mas eu to utilizando os mesmos dados na conexão ODBC e nas conexões existentes do excel, e nos dois funciona perfeitamente.
Código: Selecionar todos
Agradeço a atenção, tmjjOption Explicit
Global Conn As ADODB.Connection
Global RS As ADODB.Recordset
Sub ConectarDB()
Set Conn = New ADODB.Connection
Conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 DRIVER};" _
& "SERVER=db4free.net;" _
& "DATABASE=lafinances;" _
& "UID=adminlafinances;" _
& "PASSWORD=senha1234;"
Conn.Open
MsgBox "Conectado"
End Sub