Affecter mot de passe a une base access.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 474 fois - Téléchargée 29 fois

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

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
dimanche 27 janvier 2013
Statut
Membre
Dernière intervention
27 janvier 2013

je veux parcourir une table acces, mais j'ai besoin d'un code SVP
Messages postés
96
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
14 août 2013

Ça marche pas désoler
Messages postés
3
Date d'inscription
dimanche 17 mai 2009
Statut
Membre
Dernière intervention
2 septembre 2009

plze je veut une application sur le vent de matriel informatique avec vb6.0 et access 2003
Messages postés
1
Date d'inscription
mardi 24 juin 2008
Statut
Membre
Dernière intervention
3 juillet 2009

salut je suis étudiant en cycle DUT Infomatique j dois developer une application en access pour le suivie des indicateur iso d'une societe brassicole. j'aimerai avoir les code d'enregistreùent;suppression;modification etc bref je ne ,'y connait pas trop en access
Messages postés
4
Date d'inscription
mardi 25 novembre 2003
Statut
Membre
Dernière intervention
3 décembre 2008

code très simple permettant sous VB6 d'accéder à une bdd protégée par unn mot de passe.
Afficher les 9 commentaires

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.