suppression des enregistrement

Question

bonjour je veux savoir si je peux supprimer tous les enregistrement d'un tableau (paradox)
je vaux programmer une bouton pour ça;
j'ai utilisé ce cede mais j'ai reçut un erreur 
Enregistrement/clé effacé 
voila le code ;
var
  RecordPlace: TBookmark ;
begin
  RecordPlace := Table1.GetBookmark;
  Table1.Active:=true;
  Table1.DisableControls;
  Table1.First;
  while not Table1.Eof Do
  begin
table1.delete;
    Table1.Next;
  end;
  Table1.EnableControls;
  Table1.GotoBookmark(RecordPlace);
end;

WhiteHippo · Answer

Bonsoir

Un GetBookMark sauvegarde la position courante afin de la restaurer plus tard si tu navigues dans les enregistrements, mais si tu supprimes tous les enregistrements de la table, le GotoBookmark ne peut pas retrouver la position sauvegardée, d'où l'erreur.

Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

WhiteHippo · Answer

Juste au cas où ce n'aurait pas été clair... il faut supprimer l'utilisation du bookmark.

begin 
  Table1.Active:=true; 
  Table1.DisableControls; 
  Table1.First; 
  while not Table1.Eof Do 
  begin 
    table1.delete; 
    Table1.Next; 
  end; 
  Table1.EnableControls; 
end; 
Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

beckerich · Answer

Bonjour,

si Table1 est un composant TTable de l'onglet BDE, le plus simple est de faire Table1.EmptyTable;

Luc.

cs_MAURICIO · Answer

Salut, 

il me semble que EmptyTable necessite l' accès en Exclusive!

A+


Composants Cindy pour Delphi

cs_douina · Answer

non ca marche pas ces code j'ai essayé ce code
il est valable :
begin
Table10.First;
while not Table10.Eof do
begin
Table10.Delete;
end;

apcmorsott · Answer

begin 
  Table1.Active:=true; 
  Table1.DisableControls; 
  Table1.First; 
  while not Table1.Eof Do 
  begin 
    table1.delete; 
  end; 
  Table1.EnableControls; 
end;

Suppression des enregistrement

6 réponses

Votre réponse

Discussions similaires