Código
//Caso não exista devemos criar utilizando CreateTable
if not Banco.TabelaOrigem.Exists then
Banco.TabelaOrigem.CreateTable;
//Devemos abrir todas as tabelas envolvidas no processo
TabelaOrigem.open;
TabelaDestino.open;
try
//Informando o numero de registro Utilizamos RecordCount
//RecordCout retorna um número Inteiro
//Se possuimos um ou mais registro devemos iniciar a trasferencia
if Banco.TabelaOrigem.RecordCount > 0 then
begin
//Aplicanto um While no Banco.TabelaOrigem. EOF se for fim de arquivo
while not Banco.TabelaOrigem.EOF do
begin
//Verificando se exite o nome na TabelaDestino
if not Banco.TabelaDestino.Locate('Rota', Banco.TabelaOrigem.FieldByName('Arquivo').asString, []) then
begin
//Caso não exista devemos inserir em TabelaDestino o registro que
//vem do TabelaOrigem
Banco.TabelaDestino.Insert;
end else
begin
//Caso já exista vamos modificar
Banco.TabelaDestino.Edit;
End;
Banco.TabelaDestino.FieldByName('Arquivo').asString := Banco.TabelaOrigem.FieldByname('Arquivo').asString ;
//Temos que enviar, para isso vamos utilizar o Post
Banco.TabelaDestino.Post;
//Avançar um Registro com o Next
Banco.TabelaOrigem.Next;
End;
//Fehando todas as tabelas
TabelaOrigem.Close;
TabelaDestino.Close;
end;
finally
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009