Discussion :

[Benoit30]

Bonjour à tous,

J'utilise la méthode ADO pour gérer une BD Access. J'ai évidemment un composant TADOConnection avec tour ce qu'il faut pour gérer cette base de données.

Comment faire pour compacter cette base de données via ADO?

Merci à l'avance pour la réponse,

[portu]

Le procédé permettant de compacter un base de données Access se trouve dans la FAQ je pense (Sur le site en tout cas).


Dans le menu Projet --> importer une bibliothèque de types.
Selectionner la bibliothèque de types "Microsoft Jet and replication Object...".
Je pense qu'ensuite il faut cliquer sur le bouton "Installer" (A confirmer).
Après cela, tu auras 2 nouveaux composants.

Je pense que faut utiliser le TJetEngine pour le compactage.

Un truc du genre

Code :

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

1
2
 
JetEngine1.CompactDataBase('Chemin_DB','New_Chemin_DB');

Il va te créer une nouvelle base de données compacté (faudra supprimer l'ancienne).

Voilà, si tu souhaites plus d'info, je t'invite à regarder dans la Faq Delphi et dans ses tutoriels.

Bonne chance.

[NoisetteProd]

Salut,

Tout d'abord, cette question devrait être dans Delphi&Base de données....

Ceci dis, il y a plus simple il me semble :

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
17
18
19
20
21
22
23
function CompactDB(DB: string): Boolean; {DB = path complet de la base Access} 
// Ajouter ComObj dans les Uses 
var 
  v: OLEvariant; 
begin 
  Result := True; 
  try 
    v := CreateOLEObject('JRO.JetEngine'); 
    try 
      if CopyFile(PAnsiChar(DB),PAnsiChar(DB+'.bak'),False) then //backup de la base 
      begin 
      V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB, 
                        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+'comp;'); //compactage 
      DeleteFile(DB);// suppression de la base d'origin 
      RenameFile(DB+'comp',DB); // mise en place de la base compactée 
      end; 
    finally 
      V := Unassigned; 
    end; 
  except 
    Result := False; 
  end; 
end;

A+
Noisette

[Benoit30]

Merci à vous 2 pour vos solutions! J'ai préféré la solution de Noisette étant donné que je nous voulais rien ajouter à mon référentiel.

Merci encore,