Database collection (DAO)

S’applique à : Access 2013, Office 2013

Une collection Databases contient tous les objets Database ouverts ou créés dans un objet Workspace.

Remarques

Lorsque vous ouvrez un objet Database existant ou en créez un nouveau dans un objet Workspace, il est automatiquement ajouté à la collection Databases. Lorsque vous fermez un objet Database à l'aide de la méthode Close, il est supprimé de la collection Databases mais pas du disque. Il convient de fermer tous les objets Recordset ouverts avant de fermer un objet Database.

Dans un espace de travail Microsoft Access, la propriété Name d'une base de données est une chaîne qui spécifie le chemin d'accès au fichier de base de données.

Pour faire référence à un objet Database d'une collection par son numéro ordinal ou par son paramètre de propriété Name, utilisez l'une des syntaxes suivantes :

• Bases de données(0)

• Bases de données(« nom »)

• Bases de données ! [name]

Remarque

[!REMARQUE] Vous pouvez ouvrir la même source ou base de données plusieurs fois, ce qui crée des noms dupliqués dans la collection Databases. Vous devez affecter des objets Database à des variables d’objet et les désigner par nom de variable.

Exemple

Cet exemple crée un nouvel objet Database et ouvre un objet Database existant dans l'objet Workspace par défaut. Ensuite, il énumère la collection Database et la collection Properties de chaque objet Database.

Sub DatabaseObjectX() 
 
 Dim wrkAcc As Workspace 
 Dim dbsNorthwind As Database 
 Dim dbsNew As Database 
 Dim dbsLoop As Database 
 Dim prpLoop As Property 
 
 Set wrkAcc = CreateWorkspace("AccWorkspace", "admin", _ 
 "", dbUseJet) 
 
 ' Make sure there isn't already a file with the name of 
 ' the new database. 
 If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb" 
 
 ' Create a new database with the specified 
 ' collating order. 
 Set dbsNew = wrkAcc.CreateDatabase("NewDB.mdb", _ 
 dbLangGeneral) 
 Set dbsNorthwind = wrkAcc.OpenDatabase("Northwind.mdb") 
 
 ' Enumerate the Databases collection. 
 For Each dbsLoop In wrkAcc.Databases 
 With dbsLoop 
 Debug.Print "Properties of " & .Name 
 ' Enumerate the Properties collection of each 
 ' Database object. 
 For Each prpLoop In .Properties 
 If prpLoop <> "" Then Debug.Print " " & _ 
 prpLoop.Name & " = " & prpLoop 
 Next prpLoop 
 End With 
 Next dbsLoop 
 
 dbsNew.Close 
 dbsNorthwind.Close 
 wrkAcc.Close 
 
End Sub 
 

Cet exemple utilise CreateDatabase pour créer un objet Database chiffré.

    Sub CreateDatabaseX() 
     
     Dim wrkDefault As Workspace 
     Dim dbsNew As DATABASE 
     Dim prpLoop As Property 
     
     ' Get default Workspace. 
     Set wrkDefault = DBEngine.Workspaces(0) 
     
     ' Make sure there isn't already a file with the name of 
     ' the new database. 
     If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb" 
     
     ' Create a new encrypted database with the specified 
     ' collating order. 
     Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", _ 
     dbLangGeneral, dbEncrypt) 
     
     With dbsNew 
     Debug.Print "Properties of " & .Name 
     ' Enumerate the Properties collection of the new 
     ' Database object. 
     For Each prpLoop In .Properties 
     If prpLoop <> "" Then Debug.Print " " & _ 
     prpLoop.Name & " = " & prpLoop 
     Next prpLoop 
     End With 
     
     dbsNew.Close 
     
    End Sub