Fórum Cópia geral #444086
27/05/2013
0
Já postei esta mesma dúvida há um tempo atrás, estava salvo num HD externo que perdi. E não estou conseguindo localizar dentro do fórum.
Agradeço a ajuda desde já.
Aloisio Santos
Curtir tópico
+ 0Posts
27/05/2013
David Sylvestre
Mas seria algo do tipo
Insert into TabelaDestino (campos...) select a.Campos... from TabelaOrigem a left outer join TabelaDestino b on a.Chave = b.Chave where b.Chave is null
Lembrando que o left join é para não ir registros que você já tenha inserido na outra tabela, evitando assim duplicate key.
Gostei + 0
27/05/2013
Aloisio Santos
Quando o aluno sai da escola, seu registro é transportado para a tabela ARQUIVO_MORTO. Mas não quero levar campo a campo, pq, como já mencionei acima, um colega do fórum já havia mencionado como fazer, inclusive eu já utilizei, mas faz tempo, não lembro em que projeto foi, já apaguei o arquivo e não sei onde guardei o .TXT com a rotina. :$
Fico no aguardo.
Gostei + 0
27/05/2013
Aloisio Santos
procedure TFrmPrincipal.BitBtn1Click(Sender: TObject);
var
I: Integer;
begin
CDSCliente.First;
while nOT CDSCliente.Eof do
begin
CDSBackup.Insert;
for I := 0 to CDSCliente.FieldCount - 1 do
CDSBackup.Fields[I].AsString := CDSCliente.Fields[I].AsString;
CDSBackup.Post
end;
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)