Importar Dados da Tabela1 para Tabela2...Urgente

[quote:c71e773ee5=´Luiz Carlos´]Tenho [b:c71e773ee5]Tabela1 [/b:c71e773ee5](Campo1, Campo2 e Campo3)
[b:c71e773ee5]Tabela2 [/b:c71e773ee5](Campo1, Campo2 e Campo3)

Preciso importar os dados da [b:c71e773ee5]Tabela1 [/b:c71e773ee5](Campo1, Campo2) para a [b:c71e773ee5]Tabela2[/b:c71e773ee5] (Campo1, Campo2) quando o Campo3 das duas Tabelas forem iguais.


Tabela1.DBF (DbaseIV) e Tabela2.BD(Paradox)

[b:c71e773ee5]Tabela1[/b:c71e773ee5] => Todos os Campos Numericos
[b:c71e773ee5]Tabela2[/b:c71e773ee5] => Todos os Campos Alpha

Agradeço a ajuda.... :[/quote:c71e773ee5]



Oi Luis Carlos, fiz algo parecido semana passada importei dados de uma tabela dbf para paradox, estou enviando o código, espero que ajude.


while not DM.tblOrigem.Eof do begin
DM.tblDestino.Insert;
DM.tblDestinoCampo1.Value := DM.tblOrigemCampo1.Value;
DM.tblDestinoCampo2.Value := DM.tblOrigemCampo2.Value;
DataModule1.tblOrigem.Next;
end;



Var
Tabela : TTable;
begin
Tabela := TTable.Create(Application);
Panel2.Visible := true;
Application.ProcessMessages;
if CheckBox1.Checked then
Begin
Label1.caption := ´Aguarde - processando: OPALU.DBF´;
Application.ProcessMessages;
Tabela.DatabaseName := Dm.TbPoConf.fieldbyname(´dirimport´).asString;
Tabela.TableName := ´OPALU.DBF´;
Tabela.Active := true;
Gauge1.MaxValue := Tabela.RecordCount;
Tabela.First;
While Not Tabela.eof do
Begin
if not DataModule1.tblAluno.FindKey([Tabela.fieldbyname(´ALCOD´).asString]) then
begin
DataModule1.tblAluno.Insert;
DataModule1.tblAluno.FieldByName(´ALCOD´).asString := Tabela.FieldByName(´ALCOD´).asString;
DataModule1.tblAluno.FieldByName(´ALNOME´).asString := Tabela.FieldByName(´ALNOME´).asString;
DataModule1.tblAluno.FieldByName(´ALDTNAS´).AsString:= Tabela.FieldByName(´ALDTNAS´).AsString;
DataModule1.tblAluno.FieldByName(´ALSEXO´).AsString := Tabela.FieldByName(´ALSEXO´).AsString;
DataModule1.tblAluno.Post;
end
else
Begin
DataModule1.tblAluno.Edit;
DataModule1.tblAluno.FieldByName(´ALNOME´).asString := Tabela.FieldByName(´ALNOME´).asString;
DataModule1.tblAluno.Post;
End;
Tabela.Next;
Gauge1.Progress := Tabela.RecNo;
Application.ProcessMessages;
End;
End;