Copiar Registro

Delphi

06/01/2004

ola , tenho duas tabelas iguais e quero saber com faço para copiar o registro atual da tabela A para Table B,

grato

Elcilei


Elcilei

Elcilei

Curtidas 0

Respostas

Helderjr

Helderjr

06/01/2004

Segue a procedure para duplicar registro.

1o.Você cria uma matriz com os dados da tabela Origem.

procedure TFrm.DuplicaReg;
var i : Integer;
MatDuplic : Variant;
begin
MatDuplic := VarArrayCreate([0,DM1.TbOrigem.FieldCount-4],VarVariant);
for i := 1 to (DM1.TbOrigem.FieldCount-4) do
MatDuplic[i] := DM1.TbOrigem.Fields[i].Value;
end;

2o. Você cria for para gravar na tabela Destino

begin
DM1.TbDestino.Append;
for i := 1 to (DM1.TbDestino.FieldCount-4) do
DM1.TbDestino.Fields[i].Value := MatDuplic[i];
DM1.TbDestino.Post;
end;

Espero ter ajudado.


GOSTEI 0
POSTAR