Comment faire pour utiliser la méthode OpenDatabase pour l'ouverture de bases de données protégées par un mot de passe dans Access 2000

Utilisateurs avertis : cet article requiert des connaissances de base en matière de macros, de programmation et d'interopérabilité.

Cet article s'applique uniquement aux bases de données Microsoft Access (.mdb).


Résumé

Cet article explique comment utiliser la méthode OpenDatabase pour ouvrir une base de données Microsoft Access dotée d'un mot de passe. Notez que cette opération diffère de l'ouverture d'une base de données sécurisée à l'aide de la fonction de sécurité de niveau utilisateur de Microsoft Access.

Plus d'informations

Pour utiliser la méthode OpenDatabase pour ouvrir une base de données protégée par un mot de passe, spécifiez le mot de passe de la base de données dans l'argument Connect. La syntaxe permettant d'ouvrir une base de données à l'aide de la méthode OpenDatabase est la suivante :
Set db = workspace.OpenDatabase(nom_base_de_données, options, read-only, connect)
REMARQUE : bien que les arguments Options et Read-Only de la méthode OpenDatabase soient documentés dans l'Aide comme étant des arguments facultatifs, vous devez les inclure lorsque vous utilisez l'argument Connect. Si vous utilisez l'argument Connect sans les arguments Options et Read-Only, vous obtenez l'erreur d'exécution 3031 :
Mot de passe incorrect.
Ce message d'erreur s'affiche même si le mot de passe fourni dans l'argument Connect est correct. Si vous n'avez pas besoin d'utiliser un argument Connect, vous pouvez omettre les arguments Options et Read-Only.

Lorsque vous utilisez la méthode OpenDatabase pour ouvrir une base de données Access protégée par mot de passe, l'argument Connect de la méthode OpenDatabase requiert la syntaxe suivante :
MS Access;pwd=mot_de_passe
Pour utiliser la méthode OpenDatabase pour ouvrir l'exemple de base de données Les Comptoirs (protégée par le mot de passe « northwind »), procédez comme suit :

REMARQUE : l'exemple de code fourni dans cet article utilise des objets Microsoft Data Access. Pour que ce code fonctionne correctement, vous devez référencer la bibliothèque d'objets Microsoft DAO 3.6. Pour cela, dans le menu Outils de Visual Basic Editor, cliquez sur Références et assurez-vous que la case à cocher Bibliothèque d'objets Microsoft DAO 3.6 est activée.

ATTENTION : si vous suivez les procédures mentionnées dans cet exemple, la base de données exemple Comptoir.mdb sera modifiée. Vous pouvez sauvegarder le fichier Comptoir.mdb et exécuter ces procédures sur une copie de la base de données.

  1. Démarrez Microsoft Access et ouvrez l'exemple de base de données Comptoir.mdb en accès exclusif. Pour ce faire, dans le menu Fichier, cliquez sur Ouvrir, cliquez sur la flèche située sur le bouton Ouvrir pour afficher les options, puis cliquez sur Ouvrir en exclusif.
  2. Dans le menu Outils, pointez sur Sécurité, puis cliquez sur Définir le mot de passe de la base de données.
  3. Tapez northwind dans les zones Mot de passe et Confirmation.
  4. Cliquez sur OK pour fermer la boîte de dialogue Définir le mot de passe de la base de données.
  5. Fermez la base de données.
  6. Ouvrez une nouvelle base de données vide.
  7. Créez un module et tapez la procédure suivante :

    REMARQUE : tapez le chemin d'accès correct menant au fichier Comptoir.mdb de votre disque dur dans l'exemple de code suivant.
    Sub OpenDB()
    Dim db As DAO.Database
    Dim ws As DAO.WorkSpace
    Dim rst As DAO.Recordset
    Set ws = DBEngine.WorkSpaces(0)
    Set db = ws.OpenDatabase _
    ("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _
    False, False, "MS Access;PWD=northwind")
    Set rst = db.OpenRecordset("Customers", dbOpenDynaset)
    If rst.RecordCount > 0 Then
    rst.MoveLast
    MsgBox rst!CustomerID
    End If
    rst.Close
    db.Close
    End Sub
  8. Pour tester cette procédure, tapez la commande suivante dans la fenêtre de débogage, puis appuyez sur ENTRÉE :
    OpenDB
    Notez qu'une boîte de message affiche l'ID client du dernier enregistrement de la table Clients, indiquant que la base de données a été correctement ouverte.

Références

Pour plus d'informations sur la méthode OpenDatabase, cliquez sur Aide sur Microsoft Visual Basic dans le menu ? (Aide), tapez opendatabase dans le Compagnon Office ou l'Aide intuitive, puis cliquez sur Rechercher pour afficher la rubrique correspondante.

Pour plus d'informations sur les mots de passe de base de données, cliquez sur Aide sur Microsoft Access dans le menu ? (Aide), tapez protéger un fichier de base de données Microsoft Access par mot de passe ou chiffrement dans le Compagnon Office ou l'aide intuitive, puis cliquez sur Rechercher pour afficher les rubriques correspondantes.
Propriétés

ID d'article : 209953 - Dernière mise à jour : 24 avr. 2006 - Révision : 1

Commentaires