Discussion :

[Foxie]

Bonjour !

En examinant une table au format dBase utilisée par un composant DBGrid, j'ai constaté que les enregistrements effacés sont simplement marqués pour effacement, mais toujours présents sur le disque. Existe-t-il une méthode pour les effacer définitivement, ou n'y a t-il pas d'autre moyen que de recopier la table dans une autre table en ne conservant que les enregistrements valides ?

Merci d'avance.

[SergioMaster]

En fait pour vraiment effacé les enregistrements supprimés , il te faut 'compacter' la base

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Compacte(Tbl: TTable;NomTable: string);
var debut: string;
begin
   Tbl.Close;
   Tbl.TableName:=NomTable;
   Tbl.Exclusive := True;
   Tbl.Open;
   DbiPackTable(Tbl.dbHandle, Tbl.Handle, PChar(NomTable), 'dbase', True);
   Tbl.Close;
end;

[Foxie]

En fait pour vraiment effacé les enregistrements supprimés , il te faut 'compacter' la base

Code :

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

1
2
3
   DbiPackTable(Tbl.dbHandle, Tbl.Handle, PChar(NomTable), 'dbase', True);

Je suis un dinosaure avec Delphi 2 ;-) , et DbiPackTable n'existait pas encore. Et ne semble pas exister non plus dans TurboDelphi que je viens d'installer... Mais ce n'est pas grave, car la table contiendra une centaine d'enregistrements et évoluera très peu (et plus en ajout qu'en suppression).

En tout cas, merci de tes conseils.

[Just-Soft]

Salut;

effectivement car l'unité encapsulant DbiPackTable doit être ajouté dans la partie uses mais je ne me souviens plus de son nom, peut-être un petit F1 te guidera .

[Cl@udius]

Salut

De mémoire ces unités sont: DBTables et BDE. Mais avec Delphi2 je ne garantie rien.

@+

[SergioMaster]

Je suis un dinosaure avec Delphi 2 ;-)

ce que j'indiquais était D3 , donc très proche du crétacé

@Claudius je confirme qu'aucun trouble de mémoire ne t'affecte
DBTables et BDE dans les uses

sinon , carrément venant de l'ère primaire

1. Add the following units to our uses clause: DBITYPES, DBIPROCS and DBIERRS.

2) Then call the BDE function as follows:

DBIPackTable(Table1.DbHandle, Table1.Handle, 'TABLENAME.DBF', szDBASE, TRUE);

{ This code came from Lloyd's help file! }

ça peut toujours servir de le remettre sur le forum il y a peut être toujours des trilobites