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

Traductions disponibles Traductions disponibles
Numéro d'article: 209953 - Voir les produits auxquels s'applique cet article
Ancien nº de publication de cet article : F209953
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).

Agrandir tout | Réduire tout

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

Numéro d'article: 209953 - Dernière mise à jour: lundi 24 avril 2006 - Version: 3.1
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Access 2000 Standard Edition
Mots-clés : 
kbautomation kbpasswords kbdatabase kbopenfile kbhowto kbprogramming KB209953
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com