F�rum ajuda urgente - novato #134869

14/04/2010

Ola trabalho com delphi 5 e tabela paradox eu tenho uma tabela de pedidos onde eu quero excluir os produtos com o num pedido 'x' s� que da maneira que montei o bloco ele exclui tudo... try
          While not FTabelas.PedidoProTbl.Eof do
          begin
          FTabelas.PedidoProTbl.FindKey ([DBEdit15.Text]);
          FTabelas.PedidoProTbl.IndexName := 'ByNumPedido';
          FTabelas.PedidoProTbl.Cancel;
          FTabelas.PedidoProTbl.Delete;
          end;
         except
             FTabelas.PedidoProTbl.Next; ( esta exce��o deve ploquear se excluiu dos os pedidos que selesionou no index)
         end; se alguem puder me ajudar ficarei muito grato..

Alcindo

Curtir t�pico

+ 0

Responder

Posts

14/04/2010

Pjrm1470

ADOCommand - propriedade CommandText:
DELETE
  FROM SUATABELA
 WHERE CAMPO = 'X'

Simples e direto.
try
  ADOCommand.Execute; //executa a query acima
except
  on E: Exception do
    ShowMessage(E.Message);
end;

 
paradox "ainda" aceita a query dessa forma.
Caso contr�rio...
Dataset.First;
While not DataSet.Eof do
begin
  if (DataSetCampo.AsString = 'X') then
    DataSet.Delete
  else DataSet.Next; //o else eh porque quando vc deleta cai no proximo registro ent�o n�o eh necessariopular para o proximo
end;

O dataset eh sua query com a tabela aberta. Isso a� � um POG. N�o grado, mas funciona.
 
Precisando... pergunte!
pjrm1470.

Responder

Gostei + 0