Discussion :

[looping]

bonjour,
j'ai remarqué que lorsque l'on efface un enregistrement sur une table paradox, la taille de la base ne diminue pas ?

en faisant un tri manuel avec le database editor , la taille diminue.

est ce que l'on peut faire cela par logiciel ?


merci

[Just-Soft]

Salut;

je crois qu'on peut faire ça, jamais essayer en tout cas, en touchant l'API du BDE.

Bon codage

[HASSIOMAR]

Une idée simple pour faire une suppression physique des enregistrements c'est
de créer un autre fichier de meme structure et faire un programme
Read and Write.

Essaye et rend moi la réponse.

[looping]

bonjour,

oui ta méthode ca doit marcher

mais j'ai trouvé plus simple: j'ouvre la base avec le module de base de donnée qui est fourni avec delphi 5 (dbd32.exe) , je choisi restructurer et je coche an bas l'option "pack table"

et hop la table et les index sont remis d'applomb !!


A+

[HASSIOMAR]

Il y a encore mieux ....
Tu crée un bouton avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 wpass,wchemin : string ;
begin
  wchemin := 'chemin dbd32.exe'; // extraire le chemin du dbe
  InputQuery('boite dialogue sécurité', 'Mot de passe', wpass);
  if UPPERCASE(wpass) = 'PACK' THEN
     beep
  else
     begin
       showmessage('Mot de passe invalide ..... accés refusé');
       exit;
     end;
  SHELLEXECUTE(0,'OPEN',pchar(wchemin),nil,nil,SW_SHOW);
end;

Avec ce code protégé tu peux maintenir ta base de données aisément
et d'une façon dynamique.

*****************************************************

Si tu veux COPIER DBD32.EXE et les DLL suivant dans ton répertoire courant


Dbdide32.dll
Dbdqbe32.dll
Dbdsql32.dll
Dbdutl32.dll
Dbdvw32.dll
Dbedit32.dll
Dbkbd32.dll
Dbres0c.dll
Dbsrv32.dll
Dbcoed32.dll
Dbd32.exe
Dbdcrt32.dll
Dbddesk.hlp
Dbddesk.cnt

shellexecute devient.

Code :

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

SHELLEXECUTE(0,'OPEN','Dbd32.exe',nil,nil,SW_SHOW);

A+