Pessoal,
Desculpe-me se a solução já foi tratada em outro tópico, mas realmente procurei e não achei...
Preciso de um Select em VBA que me traga os dados de uma tabela de um banco Oracle com base em uma tabela do próprio banco Acess.
Exemplificando seria mais ou menos assim:
Dim Conn As New ADODB.connection
Dim rsADO As New ADODB.Recordset
Dim sql As String
Conn.ConnectionString = "Driver={Microsoft ODBC for Oracle}; " & _
"CONNECTSTRING=exemplo;uid=usuario;pwd=123;"
Conn.Open
sql = "Select t1.campo1, t1.campo2, t1.campo3" & _
"from Tabela1 t1 inner join Tabela2 t2 on t1.campo1=t2.campo1"
rsADO.open sql, Conn
...
Sendo:
Tabela1 = Tabela do Oracle
Tabela2 = Tabela do Access (Banco Atual)
Já configurei a conexão do Oracle corretamente (ODBC), mas creio que precisa de algo mais pois retorna o erro de tabela inexistente.
Grato por qualquer ajuda.
Desculpe-me se a solução já foi tratada em outro tópico, mas realmente procurei e não achei...
Preciso de um Select em VBA que me traga os dados de uma tabela de um banco Oracle com base em uma tabela do próprio banco Acess.
Exemplificando seria mais ou menos assim:
Dim Conn As New ADODB.connection
Dim rsADO As New ADODB.Recordset
Dim sql As String
Conn.ConnectionString = "Driver={Microsoft ODBC for Oracle}; " & _
"CONNECTSTRING=exemplo;uid=usuario;pwd=123;"
Conn.Open
sql = "Select t1.campo1, t1.campo2, t1.campo3" & _
"from Tabela1 t1 inner join Tabela2 t2 on t1.campo1=t2.campo1"
rsADO.open sql, Conn
...
Sendo:
Tabela1 = Tabela do Oracle
Tabela2 = Tabela do Access (Banco Atual)
Já configurei a conexão do Oracle corretamente (ODBC), mas creio que precisa de algo mais pois retorna o erro de tabela inexistente.
Grato por qualquer ajuda.
Última edição por ronysaraujo em 29/8/2013, 19:03, editado 1 vez(es)