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; |
Partager