Problema ao atualizar uma base de dados
Estou com uma [b:7f1e431415]tabela[/b:7f1e431415] com mais de [b:7f1e431415]4.000 registros[/b:7f1e431415], utilizando banco de dados [b:7f1e431415]paradox[/b:7f1e431415] e[b:7f1e431415] DbGrid [/b:7f1e431415]como visualizador de dados.
Acontece que periodicamento tenho que fazer uma atualização nessa base de dados desde o primeiro registro, que ultimamente tem [b:7f1e431415]travando o meu sistema[/b:7f1e431415].
O que eu poço fazer para melhorar o meu código, para que pare de acontecer este problema.
Obs:= Utilizo um computador [b:7f1e431415]Pentium 133 com 32Mb de Memória Ram [/b:7f1e431415]e a rotina que eu utilizo esta abaixo.
[b:7f1e431415] dm.Clientes.DisableControls;
try
dm.Clientes.First;
while not dm.Clientes.Eof do
begin
dm.Clientes.Edit;
dm.ClientesTrava.asstring := ´Não´;
dm.Clientes.Post;
dm.Clientes.Next;
end;
dm.Clientes.First;
finally
dm.Clientes.EnableControls;
end;[/b:7f1e431415]
Acontece que periodicamento tenho que fazer uma atualização nessa base de dados desde o primeiro registro, que ultimamente tem [b:7f1e431415]travando o meu sistema[/b:7f1e431415].
O que eu poço fazer para melhorar o meu código, para que pare de acontecer este problema.
Obs:= Utilizo um computador [b:7f1e431415]Pentium 133 com 32Mb de Memória Ram [/b:7f1e431415]e a rotina que eu utilizo esta abaixo.
[b:7f1e431415] dm.Clientes.DisableControls;
try
dm.Clientes.First;
while not dm.Clientes.Eof do
begin
dm.Clientes.Edit;
dm.ClientesTrava.asstring := ´Não´;
dm.Clientes.Post;
dm.Clientes.Next;
end;
dm.Clientes.First;
finally
dm.Clientes.EnableControls;
end;[/b:7f1e431415]
Jcmsistemas
Curtidas 0
Respostas
Gandalf.nho
13/01/2005
[b:6026e430bb][color=red:6026e430bb]Notificação de Infração às Regras de Conduta :[/color:6026e430bb][/b:6026e430bb]
Duplicidade
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?p=180532[/url]
Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].
Duplicidade
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?p=180532[/url]
Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].
GOSTEI 0
Marcio.theis
13/01/2005
Porque você não faz este procedimento através de uma qry??? utilizando o ExecSQL.
qry.Close;
qry.SQL.Clear;
qry.SQL.Add(´update cliente´);
qry.SQL.Add(´set trava = ´Não´´);
qry.ExecSQL;
Não sei tb como é seu BD, mas normalmente quando tenho de atualizar muitos registros e todos com a mesma informação eu utilizo desta forma.
qry.Close;
qry.SQL.Clear;
qry.SQL.Add(´update cliente´);
qry.SQL.Add(´set trava = ´Não´´);
qry.ExecSQL;
Não sei tb como é seu BD, mas normalmente quando tenho de atualizar muitos registros e todos com a mesma informação eu utilizo desta forma.
GOSTEI 0