Salut;
J'utilise une base de données access, j'aimerais tester si elle est déjà connectée ou pas si c'est le cas je la déconnecte pour ne pas avoir une violation. J'ai fais ça:

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
cheminBD := GetCurrentDir + '\DATA\'+Trim(FileListBox1.Items.Strings[ListDossier.ItemIndex]);
  try
    // comapctage auto
    CompactAccessDB(CheminBD, 'paie');
    // déconnexion
    DModule.bdPaie.Connected := False;
    // changement de la bd
    if change_bd_dsn('Microsoft Access Driver (*.mdb)' + #0, 'NobleSoft_Paie', CheminBD) then
       DModule.bdPaie.Connected := True
    else Application.Terminate;
    // écrire dans la base de registre le chemin complet de la bd en cours d'utilisation
    // écrire_cheminbd_reg
  except
    MessageDlg('La connexion à la base de données a échoué', mtError, [mbYes], 0);
    Application.Terminate;
  end;
Mais sans résultat. Où est le problème?

Merci d'avance.