Apagar somente os registros certos
21/03/2003
0
Pessoal, tenho o seguinte código:
DMRetaguarda.TExtrato.Open;
DMRetaguarda.TExtrato.First;
while not DMRetaguarda.TExtrato.Eof do
begin
if DMRetaguarda.TExtratopergunta.AsString = ´pedido´ then
DMRetaguarda.TExtrato.Delete;
DMRetaguarda.TExtrato.Next;
end;
DMRetaguarda.TExtrato.Close;
DMRetaguarda.TExtrato.Open;
Estou querendo apagar todos os registros em que o campo ´pergunta´ seja igual a pedido.
Ele apaga todos com exceção do último.
Alguém pode melhorar o código ou me indicar outra solução.
Grato pela atenção.
Hacson Menezes
Posts
21/03/2003
Btovix
21/03/2003
Carnette
Pessoal, tenho o seguinte código:
DMRetaguarda.TExtrato.Open;
DMRetaguarda.TExtrato.First;
while not DMRetaguarda.TExtrato.Eof do
begin
if DMRetaguarda.TExtratopergunta.AsString = ´pedido´ then
DMRetaguarda.TExtrato.Delete;
DMRetaguarda.TExtrato.Next;
end;
DMRetaguarda.TExtrato.Close;
DMRetaguarda.TExtrato.Open;
Estou querendo apagar todos os registros em que o campo ´pergunta´ seja igual a pedido.
Ele apaga todos com exceção do último.
Alguém pode melhorar o código ou me indicar outra solução.
Grato pela atenção.[/quote:1d1b6c2286]
Use um objeto Query e digite o seguinte codigo sql
DELETE
FROM TabelaDesejada WHERE (((tabeladesejada.extratopergunta)=´Pedido´));
22/03/2003
Marfred
DMRetaguarda.TExtrato.First;
while not DMRetaguarda.TExtrato.Eof do
begin
if DMRetaguarda.TExtratopergunta.AsString = ´pedido´ then
DMRetaguarda.TExtrato.Delete
else
DMRetaguarda.TExtrato.Next;
end;
DMRetaguarda.TExtrato.Close;
DMRetaguarda.TExtrato.Open;
Clique aqui para fazer login e interagir na Comunidade :)