Array
(
)

Gravação lenta

Rnildo
   - 10 ago 2004

Caros colegas,

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

//==========================================
#Código

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: Título alterado pelo Moderador oTTo. Removido: ´Help - ´.
:arrow: Usado BBCode pra facilitar a leitura.
:idea: [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=16976]Saiba como obter resposta rápida..[/url]
:idea: Leia sempre [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta.[/url]
:idea: 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.