Atualizar mais de um registro (Laço)..

Delphi

24/04/2006

Olá a todos,
Estou com um problema aqui, e gostaria da ajuda dos colegas do forum.
Tenho a seguinte situação:

procedure TCadEmiteGuia.tblGuiaItems_EBeforePost(DataSet: TDataSet);
begin
tblGuiaItems_EGuiaNum.Value := tblGuia_EGuiaNum.Value;
tblGuiaItems_EAssCod.Value := qryGuiaItems_EAssCod.Value;
tblGuiaItems_EStatus.Value := ´E´;
*** Executa certo ****
.........

*** aqui está o problema ***

if not tblnotificacao.Eof then
begin
tblNotificacao.open;
tblnotificacao.First;
tblNotificacao.Edit;
tblNotificacaoStatus.Value := ´E´;
end;

O problema é que é executado somente num registro, quando existe mais de um, até mais de 3 registro com o mesmo ´Protocolo´. Como eu faço este laço para atualizar todos os registros do Banco de dados.
Uso Paradox.

Um abraço a todos
Naelson


Naelson

Naelson

Curtidas 0

Respostas

Edilcimar

Edilcimar

24/04/2006

vc está abrindo o banco toda vez, aí ele sempre vai estar na primeira posição


GOSTEI 0
Naelson

Naelson

24/04/2006

Olá obrigado pela atenção.
Ficou resolvido assim, solução encontrada pelo colega ´deadfish´.

tblNotificacao.Open;
while not tblNotificacao.Eof do begin
tblNotificacao.Edit;
tblNotificacaoStatus.Value := ´E´;
tblNotificacao.Post;
tblNotificacao.Next;
end;

Um abraço
Naelson

vc está abrindo o banco toda vez, aí ele sempre vai estar na primeira posição



GOSTEI 0
POSTAR