Excluir Varios Cadastro

Delphi

28/02/2011

Eae galera, To aki devolta!!!
            Galera nao estou conseguindo Excluir Varios cadastro de 4 tabelas, Vou dar um exemplo para vcs entenderem melhor....


N_Lanc     Codigo_Produto      Nome_Produto  
     1                    10                  Fone de ouvido
     1                    15                  Bone                
     1                     2                   Caneta                        
     1                     20                 Borracha          

E eu queria q Em um botao ja excluisse todos cadastros!!!!
             Vlw galera agradeço desde ja!! Estou esperando vcs me ajudarem Abrass!
Weslen Polizelli

Weslen Polizelli

Curtidas 0

Respostas

Weslen Polizelli

Weslen Polizelli

28/02/2011

Eu uso essa mais soh apaga um cadastro!!

 
 if not TabelaEntradas2.FieldByName(camporeferencial).IsNull then
  begin
      TabelaSaidas2.delete;
      TabelaEntradas2.delete;
  end;

GOSTEI 0
Weslen Polizelli

Weslen Polizelli

28/02/2011

Esse campo referencial, é N_LANC
    Ae tipo tenho q apagar todos os cadastro q tenha o n_lanc = 1
Vlw abras
GOSTEI 0
Wilson Junior

Wilson Junior

28/02/2011

Veja se isto lhe ajuda.
Table.Filter := 'N_LANC = 1';
Table.Filtered := True;
try
  while no Table.IsEmpty do
  begin
    Table.Delete;
  end;
finally
  Table.Filtered := False;
  Table.Filter := '';

end;


Espero ter colaborado.
GOSTEI 0
POSTAR