Affecter mot de passe a une base access.

Commenter

Contenu du snippet

Cette partie de code montre comment affecter un mot de passe a une base Access .MDB
Et écrire un module qui correspond à cette sécurité.

Source / Exemple : 


Sub Main()
    Source = "gc.mdb"               (nom base de donnée)
    passwords = Array("banana", "master", "ricky", "ibis", "marsouin") (tous les mots de passe que tu a déclare si un jour tu veux change)
    For i = 0 To UBound(passwords)
        On Error Resume Next
        mpasse = ";pwd=" & passwords(i)
        Set base_de_donnees = OpenDatabase(Source, False, False, mpasse)
        If Err.Number <> 3031 Then
           Exit For
        End If
    Next
    If Err.Number <> 0 Then
       Select Case Err.Number
              Case 3024
                   MsgBox "La base de données est Introuvable dans le Chemin spécifiée"
              Case 3045
                   MsgBox "La base de données ne peut etre ouverte en ce moment " & vbCrLf & " car elle est ouverte en mode exclusif par un autre utilisateur "
       End Select
       Exit Sub
    End If
        menugc.Show            (appelle du menu)
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_dahbia)