Gravação lenta

10/08/2004

0

Caros colegas,

Numa rotina de gravação em BD Access/ADO muito simples, tal como abaixo,

//==========================================
with DatMod.TbDados do begin
                     // Grava
                     Append;
                     FieldByName(´COD_CGF´).Value:=DatMod.Query1.FieldByname(´COD_CGF´).Value;
                     FieldByName(´INDICE´).Value:=´INDICE_´ + LIndices.Strings[k];
                     FieldByName(´ANO_MOVTO´).Value:=XAno;
                     if (SI<>´GIEF´) then FieldByName(´MES_MOVTO´).Value:=XMes;
                     FieldByName(´DESVIO´).Value:=Desv;
                     FieldByName(´GRAU_CONF´).Value:=NConf;
                     FieldByName(´VALOR´).Value:=E_Indice[k];
                     FieldByName(´MIN´).Value:=XMin[k];
                     FieldByName(´LINF´).Value:=Linf[k];
                     FieldByName(´MEDIAN´).Value:=Md[k];
                     FieldByName(´MEDIA´).Value:=Media[k];
                     FieldByName(´LSUP´).Value:=Lsup[k];
                     FieldByName(´MAX´).Value:=XMax[k];
                     Post;
                 end;
end; // Fim do Tbdados
//=============================================
fiz uma estimativa de tempo de gravação, em segundos, em função do no. de registros a gravar. Com isto estimei via modelo de regressão estatística a seguinte curva de tempo: y=0,0246x+0,309. Isto significa dizer que gastarei mais de uma hora para gravar 150.000 registros simples como estes.
Alguem poderia me dar uma dica de como posso melhorar a performance nesta gravação?
Antecipadamento agradeço,
Rnildo.


:arrow: [color=red:3df9cd2ced]Título alterado pelo Moderador oTTo. Removido: ´Help - ´.[/color:3df9cd2ced]
:arrow: [color=blue:3df9cd2ced]Usado BBCode pra facilitar a leitura.[/color:3df9cd2ced]
:idea: [color=blue:3df9cd2ced][url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=16976]Saiba como obter resposta rápida..[/url][/color:3df9cd2ced]
:idea: [color=blue:3df9cd2ced]Leia sempre [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta.[/url][/color:3df9cd2ced]
:idea: [color=blue:3df9cd2ced]Use sempre o Link [url=http://delphiforum.icft.com.br/forum/search.php][img:3df9cd2ced]http://delphiforum.icft.com.br/forum/templates/subSilver/images/icon_mini_search.gif[/img:3df9cd2ced] Pesquisar[/url] no topo da Página.[/color:3df9cd2ced]


Rnildo

Rnildo

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar