Fórum deletando registros dentro de um while #232735
17/05/2004
0
Datamodulo.TbChPre.First;
while not Datamodulo.TbChPre.Eof do
begin
if Datamodulo.TbChPreData.Value <=Date then
begin
Datamodulo.TbChPre.Delete;
end;
Datamodulo.TbChPre.Next;
end;
o problema é q qdo ele encontra e deleta o registro não dá muito mais certo o while ele parece q bagunça um pouco e acaba não excluindo tudo q precisa, alguém pode me dar uma ajudinha?
Janete
Curtir tópico
+ 0Posts
17/05/2004
Lucas Silva
Datamodulo.TbChPre.First;
while not Datamodulo.TbChPre.Eof do
begin
if Datamodulo.TbChPreData.Value <=Date then
begin
Datamodulo.TbChPre.Delete;
[b:0d9258d01e]Datamodulo.TbChPre.ApplyUpDates; [/b:0d9258d01e]
end;
Datamodulo.TbChPre.Next;
end;
Gostei + 0
17/05/2004
Aroldo Zanela
With Datamodulo.TbChPre do
begin
First;
while not Eof do
begin
if FieldByName(´Data´).Value <= Date then
Delete
else
Next;
end; // while .. do
end;Gostei + 0
17/05/2004
Rômulo Barros
With(QueryAuxiliar)Do Begin Close; Sql.Add(´Delete from Tabela Where Data <= ´ + QuotedStr(DateToStr(Data))); QueryAuxiliar.ExecSql; Close; End;
Gostei + 0
17/05/2004
Janete
With Datamodulo.TbChPre do
begin
First;
while not Eof do
begin
if FieldByName(´Data´).Value <= Date then
Delete
else
Next;
end; // while .. do
end;Dessa forma deu certo, obrigado a todos! :D
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)