gravar vários registros na tabela de uma só vez...

Delphi

07/08/2003

Olá, estou com uma grande problema, preciso gravar gerar vários números e depois gravá-los em tabela...

estou usando o seguinte:

with DM.tTabela do
begin
for x:=1 to 1000 do
begin
edit;
fielkdByname(´numero´).value := x;
Post;
Refresh;
end;
end;

assim funciona, mas o problema ´´e que fica muiiittttoooo demorado, gostaria de saber se há um geito de gerar os número e depois gravá-los em bloco tudo de uma vez. Estou utilizando tabela access.



desde já muito obrigado.


Balceiro

Balceiro

Curtidas 0

Respostas

4_olho

4_olho

07/08/2003

No seu código tem dois gargalos : :

with DM.tTabela do begin for x:=1 to 1000 do begin [color=red:6724730272]edit;[/color:6724730272] fielkdByname(´numero´).value := x; Post; [color=red:6724730272]Refresh; [/color:6724730272] end; end;


Por quê você não tenta :
with DM.tTabela do 
  for x:=1 to 1000 do 
  begin 
    append;
    FieldByName(´numero´).value := x; 
    Post; 
  end; 
end;



GOSTEI 0
Bacalhau

Bacalhau

07/08/2003

Experimenta tirar o refresh do ciclo for e fazê-lo só no fim. Acho que acelera.

Abraço do bacalhau


GOSTEI 0
POSTAR