Supprimer tous les enregistrementsRésolu

Question

Salut !
Comment supprimer tous les enregistrements d'une table Access utilisée par le BDE ?

Merci en avance.

kabakas

cs_kabakas · Accepted Answer

Merci, j'ai déjà trouvé !





procedure ViderMaTable;
begin
  OuvrirMaTable; // procédure qui ouvre ma table.
  if MaTable.RecordCount = 0 then exit;
  MaTable.First;
  repeat
    MaTable.Delete;
  until MaTable.Eof;
  FermerMaTable;
 // procédure qui ferme ma table.



end;




kabakas

cs_cantador · Answer

Non non c'est pas bon du tout..
le mieux est de lancer un SQL

procedure ViderMaTable;
begin
With MonQuery.SQL do
begin
Clear;
Add('Delete From MaTable');
MonQuery.ExecSQL;
end;

cantador

cs_kabakas · Answer

Salut
Voulez-vous mieux m'expliquer, je l'ai mis mais déclenche une erreur ?

merci

cs_cantador · Answer

Il faut bien tout vérifier néanmoins..
un petit close du query par précaution et ce dernier doit être non renseigné (aucune propriété de remplie)

et vérifier aussi que l'autocommit de la base est à true.

..... ..AutoCommit := true;

  with MonQuery.SQL do
  begin
    MonQuery.Close;
    Clear;
    Add('Delete From MaTable');
    MonQuery.ExecSQL;
  end;

cantador

cs_deutsch · Answer

Hi 

ajoute un query a ta form

configure ca database

dans la partir sql saisie 

delete from table 
select * from table ;

ici la table c'est le nom de ta table

ajoute un boutton dans l'evement on click mets cela :
query1.active := true;
query1.active := False;

et voila

Supprimer tous les enregistrements

5 réponses

Votre réponse