sábado, 6 de junho de 2009

Copiando registros de uma tabela para outra

Procedure TtableCopiaRegistro(Origem, Destino: Ttable);
begin
with TabelaOrig do
begin
{Inicia um contador para os campos da TabelaOrig}
for i := 0 to FieldCount -1 do
{Este if verifica se o campo da TabelaOrig é NULL, se for, atribui seu valor ao campo da TabelaDest}
if not Fields[i].IsNull then
TabelaDest.Fields[i].Assign(Fields[i]);
end; {end with}
end; //Este exemplo funcionará com todos tipos de campos se você tiver acabado de criar a TabelaDest.


Para criar um dado valor NULL : Fields[i].Clear

Nenhum comentário:

Postar um comentário