Discussion :

[iam]

salut tout le monde,
j'ai ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
ADOConnection1.Connected:=false;
 
  sDNS := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=';
  sBaseSrc := sDNS + 'C:\Consolidation\Base\Consolide.mdb';
  sBaseDst := sDNS + 'C:\Consolidation\Base\BaseTmp.mdb';
 
  if FileExists('C:\Consolidation\Base\Consolide.mdb') then
    begin
      ADOXJetEngine1.CompactDatabase(sBaseSrc, sBaseDst);
      DeleteFile('C:\Consolidation\Base\Consolide.mdb');
      RenameFile('C:\Consolidation\Base\BaseTmp.mdb','C:\Consolidation\Base\Consolide.mdb');
    end
  else ShowMessage('Base C:\Consolidation\Base\Consolide.mdb introuvable');

ça sert à compacter une base de données access, j'ai dèjà utilisé ça et ça a marché, cette fois çi il m'affiche un message d'erreur suivant : classe d'exception EOleException avec le message 'Vous avez essayé d'ouvrir une base de données dèjà ouverte par l'utilisateur 'admin' sur la machine GI21.Recommencer lorsque la base de données sera disponible, pourtant j'ai fermé la connection, quelqu'un peut me dire d'ou elle vient l'erreur?
merci

[Rayek]

Dans delphi tu as fermé aussi la connection à la base de données ? (le TAdoconnection , les TAdoTable/tAdoQuery ?)
Car il suffit qu'un de ces composants soit ouvert pour que la table soit toujours bloquée.
Tant que tu as un fichier *.ldp dans le répertoire de ta base de données c'est qu'il y a un programme de connecter dessus.