Discussion :

[kroma23]

salut
jai une table client jai volu supprimé touts les enregistrement de cette table
voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
table1.first;
while not table1.eof do
begin
table1.delete;
if table1.eof then
break;
table1.next;
end;

mais ca marche pas car il me laisse toujour un enregistrement dans la table.
merci

[delphichem]

Il suffit de supprimer:

if table1.eof then
break;
table1.next;

[Cl@udius]

Salut

A mon avis en passant par une requête ce serait plus simple, et surtout plus rapide:

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

DELETE FROM MA_TABLE_CLIENT;

@+ Claudius

[coeur2neige]

bonjour , en réalité c'est trés simple pourquoi ce compliquer la vie avec tout ce code alors qu'il suffit de mettre table1.emptytable;
table1 nom de la table logique
et elle doit être fermer

[delphichem]

Cela peut être vrai pour les composants TTable, mais Emptytable n'existe pas dans tous les contrôles ex: DBXpress et ADO

[coeur2neige]

effectivement
on peut reprendre son petit prgramme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
table1.first;
while not table1.eof do
  begin
         table1.delete;
 end;

et pas besoins d'incrémenter puisque la table se vide d'elle même jusqu'à ne plus satisfaire la conditon

[delphichem]

Et c'est exactement la réponse que j'ai donné.