Discussion :

[MonPc]

Bonjour a tous ,
SVP , est il possible de changer le mot de passe d'une base de donnée access via un programme Delphi.
j'utilise Delphi 7 entreprise et Access 2003.
bon courage.

[burkan]

Bonjour,

C'est possible en utilisant la methode CompactDatabase de l'objet JetEngine,

BD1: est le nom complet de ton fichier access
BD1Comp : un fichier access temporaire
456 : l'ancien mot de passe
123 : le nouveau mot de passe

Code :

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

1
2
3
4
5
6
v: OLEvariant;
v := CreateOLEObject('JRO.JetEngine');
v.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+BD1+';Jet OLEDB:Database Password=456',
                          'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+BD1Comp+';Jet OLEDB:Database Password=123');
DeleteFile(PChar(BD1));// suppression de la base d'origin
         RenameFile(PChar(BD1Comp),PChar(BD1)); // mise en place de la base compactée

Cdt,
Burkan

[MonPc]

Merci baucoup a toi ,
je vais tester tous de suite.
bon courage.