Discussion :

[hemipsy]

Bonjour,

J'aimerais pouvoir modifier le mot de passe d'une base Access directement à partir d'une application Visual Basic 2005. Seulement voilà... comment faire ?

J'ai trouvé des codes en VBA, VB6 mais pas en VB2005.

Merci.

Historique de mes recherches :
1/ Sur http://support.microsoft.com/kb/q170961/#appliesto on trouve la méthode pour changer le mot de passe pour Visual Studio 5.0
2/ Sur http://www.microsoft.com/technet/pro...art4/ch18.mspx on trouve aussi des informations mais c'est en VBA (macro) que j'arrive pas à utiliser à l'intérieur de VB2005

[hemipsy]

J'ai trouvé dans la base MSDN le code suivant qui nécessite d'ajouter la référence MS DAO 3.6 Object Library seulement la méthode OpenDataBase n'existe pas (le nom 'OpenDataBase' n'est pas déclaré).

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Function SetDBPassword(ByVal strDBPath As String, _
    ByVal strOldPwd As String, _
    ByVal strNewPwd As String)
        ' This procedure sets a new password or changes an existing
        ' password.
 
        Dim dbsDB As DAO.Database
        Dim strOpenPwd As String      
 
        ' Create connection string by using current password.
        strOpenPwd = ";pwd=" & strOldPwd
 
        ' Open database for exclusive access by using current password. To get
        ' exclusive access, you must set the Options argument to True.
 
        dbsDB = OpenDatabase(Name:=strDBPath, _
                                   Options:=True, _
                                   ReadOnly:=False, _
                                   Connect:=strOpenPwd)
 
        ' Set or change password.
 
        With dbsDB
            .NewPassword(strOldPwd, strNewPwd)
            .Close()
        End With
 
        dbsDB = Nothing
        Return True
    End Function

pf j'avance mais j'ai mal à la tête...

[hemipsy]

La solution VBA ne fonctionne pas. Sur un autre forum quelqu'un m'a parlé de le faire via une requête SQL mais je doute que ça fonctionne. Un autre d'utilisant le composant Access mais c'est lourd et de toute façon je ne sais pas comment faire. Toujours pas l'ombre d'une solution...

Alors vraiment personne ne peut m'aider sur ce coup là ?

Merci pour vos contributions.