Fórum Como transportar de um table para outro table? #280580
07/05/2005
0
Ola amigos,
Bom eu queria saber como fazer para transportar todos os dados de um db para outro db pelo delphi. Uso Delphi 5 e tabela paradox e duas tables para o processo de transporte. Por Exemplo: tenho uma tabela que contem os precos chamada tbpreco.db e outra que vai receber os dados chamada lote01.db, dai preciso transferir todos os lancamentos para a tabela lote01.db, fiz assim mais trava o sistema na hora que dou um clque no botao.
procedure TForm13.BitBtn2Click(Sender: TObject);
begin
with TABLE1 , table2 do
begin
first;
while not table1.eof do EDIT;
BEGIN
table2.append;
table2.edit;
table2credenciado.value:=table1credenciado.value;
table2produto.value:=table1produto.value;
table1.Next;
table2.next;
END;
end;
end;
Desde ja agradeço a atençao!
Bom eu queria saber como fazer para transportar todos os dados de um db para outro db pelo delphi. Uso Delphi 5 e tabela paradox e duas tables para o processo de transporte. Por Exemplo: tenho uma tabela que contem os precos chamada tbpreco.db e outra que vai receber os dados chamada lote01.db, dai preciso transferir todos os lancamentos para a tabela lote01.db, fiz assim mais trava o sistema na hora que dou um clque no botao.
procedure TForm13.BitBtn2Click(Sender: TObject);
begin
with TABLE1 , table2 do
begin
first;
while not table1.eof do EDIT;
BEGIN
table2.append;
table2.edit;
table2credenciado.value:=table1credenciado.value;
table2produto.value:=table1produto.value;
table1.Next;
table2.next;
END;
end;
end;
Desde ja agradeço a atençao!
Adriano_servitec
Curtir tópico
+ 0
Responder
Posts
07/05/2005
Edilcimar
with table1 do
begin
with table2 do
begin
append
bla, bla, bla
post
end
next
end
begin
with table2 do
begin
append
bla, bla, bla
post
end
next
end
Responder
Gostei + 0
09/05/2005
Adriano_servitec
Ai meu amigo Edilcimar fiz dessa forma e ficou certo
procedure TForm13.BitBtn2Click(Sender: TObject);
begin
IF application.messagebox(´Deseja transferir para o Lote 01?´,´Aviso´,36)=idyes
then
begin
animate1.active:=true;
label1.visible:=true;
label2.visible:=true;
dbgrid1.cursor:=crhourglass;
gauge1.maxvalue := table2.recordcount;
table1.first;
while not table1.eof do
BEGIN
gauge1.progress:=gauge1.progress+1;
table2.append;
table2credenciado.value:=table1credenciado.value;
table2produto.value:=table1produto.value;
table2item.value:=table1item.value;
table2unidade.value:=table1unidade.value;
table2punit.value:=table1punit.value;
table2total.value:=table1total.value;
table2.post;
table1.Next;
query2.refresh;
gauge1.progress:=0;
dbgrid1.cursor:=crdefault;
animate1.active:=false;
END;
end;
end;
So que o gauge1 naum esta funcionando corretamente! Sera que ele esta na posiçao errada? Queria que mostrasse ele na hora de transferir os dados.
Valeu pela dica Edilcimar
Um abraço
procedure TForm13.BitBtn2Click(Sender: TObject);
begin
IF application.messagebox(´Deseja transferir para o Lote 01?´,´Aviso´,36)=idyes
then
begin
animate1.active:=true;
label1.visible:=true;
label2.visible:=true;
dbgrid1.cursor:=crhourglass;
gauge1.maxvalue := table2.recordcount;
table1.first;
while not table1.eof do
BEGIN
gauge1.progress:=gauge1.progress+1;
table2.append;
table2credenciado.value:=table1credenciado.value;
table2produto.value:=table1produto.value;
table2item.value:=table1item.value;
table2unidade.value:=table1unidade.value;
table2punit.value:=table1punit.value;
table2total.value:=table1total.value;
table2.post;
table1.Next;
query2.refresh;
gauge1.progress:=0;
dbgrid1.cursor:=crdefault;
animate1.active:=false;
END;
end;
end;
So que o gauge1 naum esta funcionando corretamente! Sera que ele esta na posiçao errada? Queria que mostrasse ele na hora de transferir os dados.
Valeu pela dica Edilcimar
Um abraço
Responder
Gostei + 0
09/05/2005
Edilcimar
gauge1 sempre está zero
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)