DE ACCESS PARA OUTRO ACCESS 2
Olá...gostaria de saber se alguém podia me ajudar com uma duvida que eu tenho...
Tipo assim...eu tenho um arquivo em ACCESS "Teste1" e outro arquivo em ACESS "Teste2"...no "Teste1", tenho uma tabela "ORDER" e na "Teste2", tenho uma tabela "ORDER2"..oq eu quero é o seguinte: quero que do arquivo "Teste2", os dados da tabela "ORDER2", vão para o arquivo "Teste1" tabela "ORDER"...usando ou DAO ou ADO, tanto faz.
Grato.
Renato.
Tipo assim...eu tenho um arquivo em ACCESS "Teste1" e outro arquivo em ACESS "Teste2"...no "Teste1", tenho uma tabela "ORDER" e na "Teste2", tenho uma tabela "ORDER2"..oq eu quero é o seguinte: quero que do arquivo "Teste2", os dados da tabela "ORDER2", vão para o arquivo "Teste1" tabela "ORDER"...usando ou DAO ou ADO, tanto faz.
Grato.
Renato.
Dim ConexaoBD As ADODB.Connection
dim Rec as new adodb.recordset
dim sqlRec as string
Set ConexaoBD = New ADODB.Connection
set Rec = new adodb.recordset
'neste caso estou usando um arquivo UDL para configurar o Banco de dados
'se não conhece me mande um e-mail - rodrigomarchese@valsolution.com.br
ConexaoBD.ConnectionString = "File Name=" & App.Path & "\Conexao.udl"
ConexaoBD.Open
sqlRec = "Select * From Tabela"
Rec.open sqlRec, ConexaoBD, adOpenKeyset, adLockOptimistic
if Rec.eof = false then
do While Rec.eof = false
ConexaoBD.Execute "INSERT INTO ORDER2 (CODIGO,NOME,ENDERECO) Values (" & Rec.Fields("CODIGO") & "," & Rec.Fields("NOME") & "," & Rec.Fields("ENDERECO") & ")"
Rec.MoveNext
Loop
end if
dim Rec as new adodb.recordset
dim sqlRec as string
Set ConexaoBD = New ADODB.Connection
set Rec = new adodb.recordset
'neste caso estou usando um arquivo UDL para configurar o Banco de dados
'se não conhece me mande um e-mail - rodrigomarchese@valsolution.com.br
ConexaoBD.ConnectionString = "File Name=" & App.Path & "\Conexao.udl"
ConexaoBD.Open
sqlRec = "Select * From Tabela"
Rec.open sqlRec, ConexaoBD, adOpenKeyset, adLockOptimistic
if Rec.eof = false then
do While Rec.eof = false
ConexaoBD.Execute "INSERT INTO ORDER2 (CODIGO,NOME,ENDERECO) Values (" & Rec.Fields("CODIGO") & "," & Rec.Fields("NOME") & "," & Rec.Fields("ENDERECO") & ")"
Rec.MoveNext
Loop
end if
Tópico encerrado , respostas não são mais permitidas