Discussion :

[dlpxlid]

Quelqu'un sait-il comment faire pour changer le mot de passe d'une base de données Access en ADO ?

[bidou]

pas possible, il faut soit DAO, soit JRO

[dlpxlid]

et comment peut-on faire en Jro ? As-tu un exemple ?

[bidou]

attention, JRO impose le compactage pour modifier la base de données

Code :

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

1
2
3
4
5
6
 
Dim MoteurJet As New JRO.JetEngine
     If Dir("D:\mabaseComp.mdb") <> "" Then Kill "D:\mabaseComp.mdb"
     MoteurJet .CompactDatabase "Data Source=D:\MaBase.mdb;", "Data Source=D:\mabaseComp.mdb;" & "Jet OLEDB:Database Password=NewPassword"
     Kill "D:\mabase.mdb"
     Name "D:\mabaseComp.mdb" As "D:\MaBase.mdb"

[dlpxlid]

ça marche nickel. Merci beaucoup.