Exportar ddados

Delphi

12/07/2004

Tenhu 2 tabelas com a mesma estrutura e preciso exportar alguns registros de uma para outra em runtime... Qual a meneira mais simples de fazer issu????


Breguede

Breguede

Curtidas 0

Respostas

Minuto

Minuto

12/07/2004

eu faço assim
uma query1 com a tabela de origem
select * from tabela1
where cod in (select cod from tabela2)

coloco uma grid para visualizar os campos

uma query2 com a tabela de destino

insert into tabela2 (cod,nome,endereco)
values (:cod,:nome,:endereco)

e um button ou mesmo dbleclik do grid

query2.parambyname(´cod´).asinteger:=query1.fields[0].value;
query2.parambyname(´nome´).asinteger:=query1.fields[1].value;
query2.parambyname(´endereco´).asinteger:=query1.fields[2].value;

query2.execsql;
query1.close;
query1.open;


GOSTEI 0
Minuto

Minuto

12/07/2004

ahhhhhh!
runtime!

amigo ! vc disse alguns registros . como pretende selecionar esses registros?


GOSTEI 0
Breguede

Breguede

12/07/2004

Atraves de um dbedit mesmo...


GOSTEI 0
Minuto

Minuto

12/07/2004

insert into tabela2 (cod,nome,endereco)
values (:cod,:nome,:endereco)

e um button ou mesmo dbleclik do grid

query2.parambyname(´cod´).asinteger:= strtoint(edit1.text);
query2.parambyname(´nome´).asinteger:=query1.fields[1].value;
query2.parambyname(´endereco´).asinteger:=query1.fields[2].value;

query2.execsql;


Obs: a primeira forma que fiz é a melhor pois vc visualiza somente os dados da tabela 1 q vc ainda não enviou.


GOSTEI 0
Breguede

Breguede

12/07/2004

VALEW!!!!


GOSTEI 0
POSTAR