Accueil > Forum > > > > Compact Database en cours d'utilisation
Compact Database en cours d'utilisation
dimanche 26 novembre 2006 à 23:46:06 |
Compact Database en cours d'utilisation

mtaallah
|
Salut, J'essaye de compacter une base de données Access... Mon application contient plusieurs formes dont chacune se connecte à ma base en utilisant ADOTable ou ADOQuery dont aucune liaison n'est activé au départ. J'utilise la fonction suivante: Function CompactAndRepair(DB: string) : boolean; //je l'ai trouvé dans une recherche var v: OLEvariant; begin Result := True; try v := CreateOLEObject('JRO.JetEngine'); try v.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DB, 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DB + 'x;Jet OLEDB:Engine type=5'); DeleteFile(DB); RenameFile(DB + 'x', DB) finally v := Unassigned end; { try }
except Result := False end; { try } end; et on ajoute la procédure suivante:
procedure TFormIndex.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CompactAndRepair(GetCurrentDir+'\Data\Database.mdb');
end;
Le problème c'est qu'à la fermeture de mon application après avoir effectué quelques modification ou en ouvrant tout simplement les autres Formes (lors de la compilation avec Delphi, et même juste en activant la liason ADOTable ou ADOQuery sans introduire aucune modification) on me dit que la base de données est en cours d'utilisation par l'utilisateur... et la machine ... (un long message) et qu'il est impossible de la compacter...
Alors que je suis sûr que toutes les liaisons ont été désactivées en fermant chaque Form (à l'évènement OnHide de chaque Form --> ADOTablex.Active:= False;)
En exécutant l'application directement, il n'affiche aucun message, mais il ne modifie rien dans la base de données (le compactage n'est pas effectué).
Comment faire...
|
|
dimanche 26 novembre 2006 à 23:55:51 |
Re : Compact Database en cours d'utilisation

mtaallah
|
Désolé! Le sujet est un peu long, j'essaye d'être un peu précis... Mais ce que je voudrai le savoir en fin de l'histoire c'est: - Peut on avoir une solution pour libérer notre base de donnée de toute connection ADO (soit disons un ADOTable ou un ADOQuery). ou bien - Existe-t-il une autre procédure à appliquer à la forme autre que
procedure TForm2.FormHide(Sender: TObject; var Action: TCloseAction); begin ADOTable1.Active:= False; end; pour y être sûr qu'il n'existe aucun processus en iaison avec ma base de données...
Merci
|
|
Cette discussion est classée dans : base, end, db, try, database
Répondre à ce message
Sujets en rapport avec ce message
Avec quelle DataBase ? [ par Fredelphi ]
Bonjour,Je dois faire un catalogue sur cd-rom, et j'aurais voulu mettre mes données dans une database.Est-ce possible ? Et si oui, avec quelle base ?
Base de donnée ne nécessitant pas d'installation [ par loursonwinny ]
Bonjour, est-il possible d'attaquer une db, sous delphi, sans installation d'un db engine. La db étant locale et devant être éditée par différentes in
midas applyupdate [ par shakeoff1 ]
bonjour,voila je n'arrive pas a intercepter les erreur d'exécution (style clé primaire dupliquée...) d'un applyupdate .j'ai essayer se code :
enregistrer un TFilestream apres un transfert [ par ewertheimer ]
voici mon code: var texte : string; Line, FileName : String; i, FileSize : integer; Fs : TFileStream; begin with AThread.Connection do try
plantage application base de donnée !! [ par ericdu62x ]
j'ai realisé un petit programme a titre perso pour tester les bases de données access et celui ci a fonctionné impecable jusqu'a tout a l'heure.......
L' avenir des .db [ par Joleroy ]
Bonsoir,Nous somme en 2005, je fait mes soft en delphi Win32 et...J' utilise encore des tables créé avec le vieux module base de données...Je veux don
inserer à une base de donnée db à partir d'un fichier texte [ par sekiousabrina ]
je travaille avec Delphi 5 et 7 , veuillez m'aider pour inserer à ma base de donnée db à partir d'un fichier texte. merci d'anavce.
TDatabase, connexion a base access dynamique [ par usmok ]
je voudrais pouvroir associer mon TDatabase à un bdd Access à l'exécution,le tout sans utiliser de lien ODBCles valeurs de mon database sont initialis
Gestion des erreurs - Try except [ par jderf ]
Bonjour, Dans l'initialisation de mon appli, je me connecte à une base. En cas d'erreur, je souhaite afficher le message d'erreur remonté par le rai
DataBase et Index [ par sharifcrd ]
sharif j'ai une DB DBASE je travail sous delphi7 j'ai bien creer ma database avec mon programme et j'ai crees l'index primere 'ID' avec DataType := f
Livres en rapport
|
Derniers Blogs
TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBEWORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson
Depuis déjà un an, je conseille vivement les utilisateurs de Workflow Foundation 3 à migrer vers la version 4. L'information qui va suivre ne devrait donc pas trop prendre au dépourvu les personnes qui m'ont suivi. Je profite de ce poste, pour faire le re...
Cliquez pour lire la suite de l'article par JeremyJeanson TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PCTECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice
Speakers: Thierry Rapatout, Antoine Petit et Xavier Trebbia Cette session entre dans le cadre des RDV Décideurs des TechDays 2012, elle est liée à la consumérisation de l'IT et la mise en place du "DeskTop as a Service" dans de plus en ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|