Pessoal, boa tarde!
Aqui no trabalho, eu fiz criei um Banco de Dados Access onde conecto em uma Base Oracle (com a ajuda da internet, é claro) e, estou tentando preencher uma tabela, nesse mesmo banco, com os dados provenientes do Banco de dados Oracle.
O problema é o seguinte. Eu até conecto normalmente e acrescento dados a tabela, mas, isso é feito de um a um. Ou seja, se a consulta "retornar" 1000 registros, vou ter que "rodar" a Função igualmente 1000 vezes.
Alguém pode me ajudar? Vou postar o código:
Public Function Teste()
Dim BancoDados As DAO.Database
Dim RSteste As DAO.Recordset
Set BancoDados = CurrentDb()
Set RSteste = BancoDados.OpenRecordset("Tabela1", dbOpenDynaset)
Dim strCon
strCon = "Driver={Microsoft ODBC for Oracle};" & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=150.164.93.144)(PORT=1521))" & _
"(CONNECT_DATA=(SID=sml)));uid=consulta;pwd=consulta;"
Dim oCon As ADODB.Connection
Set oCon = CreateObject("ADODB.Connection")
Dim oRs As ADODB.Recordset
Set oRs = CreateObject("ADODB.Recordset")
oCon.Open strCon
Set oRs = oCon.Execute("SELECT * FROM atendime")
oRs.MoveFirst
RSteste.AddNew
RSteste("campo1") = oRs(0).Value
RSteste("campo2") = oRs(1).Value
oCon.Close
Set oRs = Nothing
set oCon = Nothing
End Function
Aqui no trabalho, eu fiz criei um Banco de Dados Access onde conecto em uma Base Oracle (com a ajuda da internet, é claro) e, estou tentando preencher uma tabela, nesse mesmo banco, com os dados provenientes do Banco de dados Oracle.
O problema é o seguinte. Eu até conecto normalmente e acrescento dados a tabela, mas, isso é feito de um a um. Ou seja, se a consulta "retornar" 1000 registros, vou ter que "rodar" a Função igualmente 1000 vezes.
Alguém pode me ajudar? Vou postar o código:
Public Function Teste()
Dim BancoDados As DAO.Database
Dim RSteste As DAO.Recordset
Set BancoDados = CurrentDb()
Set RSteste = BancoDados.OpenRecordset("Tabela1", dbOpenDynaset)
Dim strCon
strCon = "Driver={Microsoft ODBC for Oracle};" & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=150.164.93.144)(PORT=1521))" & _
"(CONNECT_DATA=(SID=sml)));uid=consulta;pwd=consulta;"
Dim oCon As ADODB.Connection
Set oCon = CreateObject("ADODB.Connection")
Dim oRs As ADODB.Recordset
Set oRs = CreateObject("ADODB.Recordset")
oCon.Open strCon
Set oRs = oCon.Execute("SELECT * FROM atendime")
oRs.MoveFirst
RSteste.AddNew
RSteste("campo1") = oRs(0).Value
RSteste("campo2") = oRs(1).Value
oCon.Close
Set oRs = Nothing
set oCon = Nothing
End Function