[Lazarus] Purger une table ?

Bonjour,

Après quelques réflexions, je me suis lancé dans le création d'une application pour la gestion d'une association. Cette appli gère une base de données à l'aide de tables au format Dbase.

Ayant déjà bidouillé avec Turbo pascal et Delphi (1), je me suis mis à Lazarus qui est épatant... Avec des bugs mais épatant quand même et... GRATUIT !

Bon, alors voila ma question :

Existe-t-il un moyen de supprimer définitivement (cad purger) les enregistrements effacés d'une table.

Merci.

Tu veux dire purger sur le disque ? Si c'est le cas, tu ne peux pas prévoir cela, car c'est géré par le SGBD (normalement) et non par les applications s'y connectant. Tu utilises quel SGBD ?

Aucun.

J'ai créé mes tables avec Lazarus au format Dbase.

J'ai la solution de faire un backup de la table, de la balayer pour récupérer les enregistrements valides dans une nouvelle table. Mais c'est long et ça peu ralentir considérablement le déroulement de l'appli.

Je voulais juste savoir s'il existait une procédure plus rapide.

A+

Requête SQL ?

Code:

---

1 2 3 4 5

SQLQuery1.Active:=false; MaRequete:= 'DELETE * FROM Table'; SQLQuery1.SQL.Clear; SQLQuery1.SQL.Text:= MaRequete ; SQLQuery1.ExecSQL;

---

Bonjour,

Bon, j'ai résolu mon problème.

En fait, j'utilisais RecordCount pour connaître le nombre d'enregistrement que comporte ma table et RecordCount compte apparemment les enregistrements effacés.

Je n'avais pas vu qu'il existait aussi ExactRecordCount qui lui ne prend en compte que les enregistrement valides.

A+