Copiar uma tabela p/ outra

Delphi

11/11/2003

Olá galera, quero fazer uma cópia dos campos de uma tabela p/ outra passando um filtro via executável.Por ex: Tenho uma tabela paradox1, e quero que somente as informações que contenha o mês atual sejam copiadas para a segunda tabela.Estava tentando usar os comando de repetição, mas acho que estou fazendo algo errado.Por favor me deem esta mão.Valeu!


Vagner Monteiro

Vagner Monteiro

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

11/11/2003

Crie uma Query para selecionar os registros desejados:

Select * from tabela where extract(month from campodata)=extract(month from current_date);


Então, se a tabela destino possuir a mesma estrutura da origem:

begin  
  Query1.Edit;
  TabDestino.Insert;
  for Num := 0 to Query1.FieldCount - 1 do
    TabDestino.Fields[Num].Assign(DM_Geral.Query1.Fields[Num]);
  TabDestino.Post;
  TabDestino.Close;
end;
Qualquer dúvida,

Estamos aí...


GOSTEI 0
POSTAR