Discussion :

[jihed]

Salut à tous,

Je suis entrain de réaliser une application ou j'ai besoin de vider une table , g tt essayé avec emptytable mais sans résultat, apres quelques recherches j'ai choisi d'utiliser le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
With Table1 do
   begin
 
   if RecordCount<>0
      then repeat Delete until EOF;
 
 
   active:=false;
 
end;

mais g encore deux problemes:
1.La taille ne se modifie pas apres vidage -on a dit meme que emptytable ne le fait pas-et j'aimerai bien savoir comment le faire pour ne pas avoir une base de taille tjs croissante!

2.Sachant que la base est crée avec database desktop fourni avec delphi 7, J'ai un champ de type '+' (autoincrementation) et j'aimerai que lorsque je vide ma table le compteur de ce champs s'initialise en 0.


merci pour votre aide.

[Fxg]

Bonjour,

Pourquoi ne pas, dans ton programme, supprimer la table et la re-créer. Je pense, que cela résoudrait, simplement, le souci avec le champ auto incrémenté (Paradox ?).

Cette solution brute de décoffrage n'est pas forcément la plus élégante, j'en suis parfaitement conscient.

[cyril]

Bonjour,

Tu peux faire Table.Delete qui permet de la vider directement
ou par sql delete From Table.
Tu dois compacter ta table pour retrouver sa taille initiale et réinitialiser ton champ auto-incrémenté

A+
Cyril

[jihed]

Comme vous voyez cyril y'a une delete dans le code du vidage , autre chose, comment 'compacter' la table :

merci pour votre aide.

[jihed]

je pense qu'il y'a qqe chose dans:

http://www.developpez.net/forums/vie...ompacter+table

et

http://www.developpez.net/forums/vie...ompacter+table

mais y'a un lien pour un tut qui marche pas

[cyril]

Pour compacter la table, tu peux utiliser la fonction DbiPackTable
A+
Cyril