Fórum Erro em Loop / Sistema ADO #293834
31/08/2005
0
Uso FB / IB em conjunto com o sistema ADO no delphi 7 e estou com o seguinte problema em uma query:
while not qryItens.eof do begin
prazo := copy(qryItensPRAZO_ENTR.Value,10,1);
dias := StrToInt(copy(qryItensPRAZO_ENTR.Value,1,3));
if prazo = ´C´ then begin
qryItens.Edit;
qryItensPREV_ENTR.Value := date+dias;
qryItens.Post;
end; // Dias Corridos
end; // While
Mas quando ele tenta fazer o loop manda a mensagem de erro: ´A linha não pode ser encontrada para Atualização. Alguns valores podem ter sido alterados desde que ela foi lida pela ultima vez...´
Alguem poderia ajudar, vi que o problema esta nas variaveis, sera que elas nao conseguem ganhar novos valores a cada volta do loop?
[]´s
Neves777
Curtir tópico
+ 0Posts
31/08/2005
Rjun
while not qryItens.eof do
begin
prazo := Copy(qryItens.FieldByName(´PRAZO_ENTR´).Value, 10, 1);
dias := StrToInt(Copy(qryItens.FieldByName(´PRAZO_ENTR´).Value, 1, 3));
if prazo = ´C´ then
begin
qryItens.Edit;
qryItensPREV_ENTR.Value := date+dias;
qryItens.Post;
end; // Dias Corridos
qryItens.Next;
end; // While
Gostei + 0
31/08/2005
Neves777
Código:
while not qryItens.eof do
begin
prazo := Copy(qryItens.FieldByName(´PRAZO_ENTR´).Value, 10, 1);
dias := StrToInt(Copy(qryItens.FieldByName(´PRAZO_ENTR´).Value, 1, 3));
if prazo = ´C´ then
begin
qryItens.Edit;
qryItensPREV_ENTR.Value := date+dias;
qryItens.Post;
end; // Dias Corridos
QRYITENS.NEXT;
end; // while
Gostei + 0
31/08/2005
Rjun
Gostei + 0
31/08/2005
Neves777
Obrigado
Gostei + 0
31/08/2005
Rjun
UPDATE Teste2 SET Prev_Entr = GETDATE() + CAST(SUBSTRING(Prazo_Entr, 1, 3) AS INTEGER) WHERE SUBSTRING(Prazo_Entr, 10, 1) = ´C´
Gostei + 0
01/09/2005
Neves777
Obrigado
[]´s
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)