bonjour,
je travail avec delphi7, je gère ma base access avec adoconnection et à la fermeture de ma base j'utilise le code de compactage qui marche très bien.
seulement je souhaite supprimer des tables de ma base avant compactage pour cela j'ai utilisé le composant accessapplication
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
AccessApplication1.OpenCurrentDatabase(chemin, false,mpasse);
AccessApplication1.DoCmd.DeleteObject (acTable, 'Personnel1');
AccessApplication1.DoCmd.DeleteObject (acTable, 'grade1');
 dm.ADOConnection1.Connected :=false;
AccessApplication1.CloseCurrentDatabase ;
CompactAccessDB(ExtractFilePath(Application.ExeName)+'Base.mdb', '');
il bloc sur le compactage en affichant un message d'erreur comme quoi la bas est ouverte en mode exclusif alors que j'ai déconnecté adoconnection et accessapplication1
je souhaite trouvé l'erreur ou une solution à mon problème.
Merci