ED - Caret
não registrado
|
|
Postada em 30/10/2007 14:33 hs
Ola amigos... Como faço pra exportar todos os registros da tabela1 do banco de origem para a tabela1 do banco de destino ? As tabelas são identicas, apenas preciso juntar os registros dos dois banco em um só. Uso access e vb6 Os arquivos duplicados deverão ser substituidos sem aviso e é claro, arquivos inexistentes no banco de destino deverão ser inseridos. qualquer ajuda será bem vinda...abraços... |
|
|
|
|
|
|
|
Postada em 30/10/2007 14:43 hs
Vc pode simplesmente usar um Union: Select * From [C:\pasta\arquivo.mdb].Tabela1 Union Select * From[C:\pasta\arquivo.mdb].Tabela2 Se quiser Inserir mesmo: Insert Into [C:\pasta\arquivo].Tabela1 Select * From [C:\pasta\arquivo.mdb].Tabela2 |
|
|
|
ED - Caret
não registrado
|
|
Postada em 30/10/2007 15:01 hs
OK, Fiz como disse, ou seja... bd.Execute "Insert Into [C:Arquivos de programasDadosClienteBDete.mdb].Lançamentos Select * From [C:Arquivos de programasDadosServidorBDete.mdb].Lançamentos" ...os dois bancos estão abertos Da erro quando há registros duplicados, é preciso substituir aquele existente e inser novo se não houver
|
|
|
|
|
|
Postada em 30/10/2007 15:21 hs
|
|
|
|
ED - Caret
não registrado
|
|
Postada em 30/10/2007 15:28 hs
Número Ponto Horário São 3 campos |
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 30/10/2007 17:21 hs
Dim Rs as new adodb.recordset dim rs1 as new adodb.recordset set rs = new adodb.recordset rs.open "Select * from tabela1", bd do while not rs.eof set rs1 = new adodb.recordset rs1.open "Select * From [C:\pasta\arquivo.mdb].tabela2 Where numero = " & rs("Numero") & " And ponto=" & rs("Ponto") & " And horario = " & rs("horario") if rs1.eof then 'insert into else 'update endif rs.movenext loop |
|
|
|
