Passar conteúdo de uma qry pra outra tabela

Delphi

12/12/2003

Seguinte....


Tenho uma qry onde tenho alguns registros.....
preciso passar pra uma outra tabela.


como faço?

Att, Catharina.


Catharina

Catharina

Curtidas 0

Respostas

Rodrigo Costa

Rodrigo Costa

12/12/2003

q1.first;
while not q1.eof do
begin
   q2.insert;
   q2.fieldbyname(´cod´).asinteger:=q1.fieldbyname(´codigo´).asinteger;
   q2.fieldbyname(´nome´).asstring:=q1.fieldbyname(´nome´).asstring;
   q2.fieldbyname(´campo3´).asstring:=q1.fieldbyname(´campo3´).asstring;
   q2.post;
   q1.next;
end;


GOSTEI 0
Ivancarvalho

Ivancarvalho

12/12/2003

Seguinte.... Tenho uma qry onde tenho alguns registros..... preciso passar pra uma outra tabela. como faço? Att, Catharina.


Faz via SQL mesmo:
INSERT INTO [tabela_destino]
(campos da tabel destino, pode ser omitido)
VALUES (SELECT ...)

Só tome cuidado com a ordem dos campos da query de origem.


GOSTEI 0
Catharina

Catharina

12/12/2003

Obrigado, funcionou.

att, Catharina.


GOSTEI 0
POSTAR