Comment modifier via le code VB le mot de passe d'une BD Access

Bonjour à tous! Je fais un programme en VB et la base de données Access est protégé par un mot de passe. J'aimerais savoir s'il existe une façon de modifier le mot de passe via le code VB, sans devoir passer par Access. Merci d'avance

Par exemple (avec DAO) :

Dim Db As Database

Set Db = OpenDatabase("C:\MaBase.mdb", True, False, ";pwd=MotDePasse")
Db.NewPassword "MotDePasse", "NouveauMotDePasse"
Db.Close


@+

pelw


-------------------------------
Réponse au message :
-------------------------------

> Bonjour à tous! Je fais un programme en VB et la base de données Access est protégé par un mot de passe. J'aimerais savoir s'il existe une façon de modifier le mot de passe via le code VB, sans devoir passer par Access. Merci d'avance

Merci pour avoir pris la peine de me répondre. C'est plus compliqué que ça. C'est pour une application avec des utilisateurs multiples dont un administrateur. Il y a un mot de passe qui lors de la connection:
Public Sub connectionBD()
cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Stagiaires.mdb;Persist Security Info=False;Jet OLEDB:Database Password=mdp"
cn.Open
End Sub
Cependant, de cette manière je ne peux mettre une variable comme mot de passe.
Si tu peux m'ider plus, tant mieux... Merci A++

1. Pour mettre une variable comme mot de passe :

Dim sPassword as String

sPassword = "toto"
cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Stagiaires.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & sPassword
cn.Open


2. Pour modifier le mot de passe (de "toto" à "titi") :

Dim sOldPassword As String
Dim sNewPassword As String

'Ancien mot de passe
sOldPassword = "toto"
'Nouveau mot de passe
sNewPassword = "titi"

cn.Mode = adModeShareExclusive
cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Stagiaires.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & sOldPassword
cn.Open
cn.Execute "ALTER DATABASE PASSWORD " & sNewPassword & " " & sOldPassword
cn.Close


@+

pelw


-------------------------------
Réponse au message :
-------------------------------

>
>
>
>
> Merci pour avoir pris la peine de me répondre. C'est plus compliqué que ça. C'est pour une application avec des utilisateurs multiples dont un administrateur. Il y a un mot de passe qui lors de la connection:
> Public Sub connectionBD()
> cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Stagiaires.mdb;Persist Security Info=False;Jet OLEDB:Database Password=mdp"
> cn.Open
> End Sub
> Cependant, de cette manière je ne peux mettre une variable comme mot de passe.
> Si tu peux m'ider plus, tant mieux... Merci A++

Slt pelw,

J'ai essayé avec la requete SQL ALTER .. mais cela ne fonctionne pas.
J'ai une base access 2000 avec un password.
J'arrive bien à me connecter avec mon mot de passe en mode exclusive.
Quand j'essaie d'exécuter la requete "ALTER DATABASE PASSWORD newpass olpass" il y a un message d'erreur dans une message box :
"L'exécution de la requête [ALTER DATABASE PASSWORD newpass olpass] a échoué.
-2147467259:Syntaxe SQL non valide - mot de passe atendu"

Merci