Compacter une base de donnée access

Soyez le premier à donner votre avis sur cette source.

Vue 8 588 fois - Téléchargée 1 253 fois

Description

Ce code compacte une base de donnée Access. Avec une simple fonction.

Il nécessite cependant d'avoir le composant JRO_TLB

Aller dans Projet / Import Type Library et sélectionner Microsoft Jet and Replication Objects 2.x Library (Version 2.x). Et faites install. Il est supposer avoir un problème avec l'importation sous Delphi6, mais avec les services pack, j'ai aucun problème.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

philippe mercier
Messages postés
5
Date d'inscription
lundi 27 septembre 2004
Statut
Membre
Dernière intervention
11 décembre 2010
-
bonjurs

mon soucis avec ce code , il ne fonctionne pas parceque la base n est pas fermée
bien que j ai un ADOConnection1.Connected:=false

comment s assurer de cette fermeture merci
cs_intik
Messages postés
36
Date d'inscription
dimanche 6 juillet 2003
Statut
Membre
Dernière intervention
12 septembre 2007
-
Coucou

Merci pour ton code sa m'as évité une aprem de recherche...

J'ai rencontrer des problemes en utilisant ton code a savoir : la fonction qui renvoie False a chaque fois alors que le compactage se fait...

j'ai relu ton code et j'ai changé la fin comme sa

try
JetEngine.CompactDatabase(tmpProvider + DB_PATH,tmpProvider + TEMP_DB_PATH);
DeleteFile(DB_PATH);
RenameFile(TEMP_DB_PATH,DB_PATH);
JetEngine.Free;
Result := True;
except
Result:= False;
exit;
end;

au lieu de

try
JetEngine.CompactDatabase(tmpProvider + DB_PATH,tmpProvider + TEMP_DB_PATH);
DeleteFile(DB_PATH);
RenameFile(TEMP_DB_PATH,DB_PATH);
except
begin
Result:= False;
exit;
end;
Result := True;
JetEngine.Free;
end;


sa me semble plus correct de le faire comme j'ai fait... enfin a vous de me dire...

je suis sous "Delphi 2007 Entrep Update 2" le dernier quoi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.