Workspace.CreateDatabase, méthode (DAO)
S’applique à : Access 2013, Office 2013
Crée un objet Database, enregistre la base de données sur le disque, et renvoie un objet Database ouvert (espaces de travail Microsoft Access uniquement).
Syntaxe
expression . CreateDatabase(Name, Connect, Option)
expression Variable qui représente un objet Workspace.
Paramètres
Nom |
Obligatoire/facultatif |
Type de données |
Description |
---|---|---|---|
Name |
Obligatoire |
String |
String comportant jusqu’à 255 caractères formant le nom du fichier de base de données que vous créez. Il peut s’agir du nom de fichier et du chemin d’accès complets. Si le réseau le prend en charge, vous pouvez également indiquer un chemin réseau, comme « \\server1\share1\dir1\db1 ». Vous ne pouvez créer que des fichiers de base de données Microsoft Access avec cette méthode. |
Connect |
Obligatoire |
String |
|
Option |
Facultatif |
Variant |
Constante ou combinaison de constantes qui indique une ou plusieurs options, comme spécifié dans la section Remarques. Vous pouvez combiner des options en associant les constantes correspondantes. |
Remarques
Vous pouvez utiliser l’une des constantes suivantes pour l’argument ParamètresRégionaux afin de spécifier la propriété CollatingOrder du texte pour des comparaisons de chaînes.
Constante |
Ordre de classement |
---|---|
dbLangGeneral |
Anglais, allemand, français, portugais, italien et espagnol |
dbLangArabic |
Arabe |
dbLangChineseSimplified |
Chinois simplifié |
dbLangChineseTraditional |
Chinois traditionnel |
dbLangCyrillic |
Russe |
dbLangCzech |
Tchèque |
dbLangDutch |
Néerlandais |
dbLangGreek |
Grec |
dbLangHebrew |
Hébreu |
dbLangHungarian |
Hongrois |
dbLangIcelandic |
Islandais |
dbLangJapanese |
Japonais |
dbLangKorean |
Coréen |
dbLangNordic |
Langues nordiques (Moteur de base de données Microsoft Jet version 1.0 uniquement) |
dbLangNorwDan |
Norvégien et danois |
dbLangPolish |
Polonais |
dbLangSlovenian |
Slovène |
dbLangSpanish |
Espagnol traditionnel |
dbLangSwedFin |
Suédois et finnois |
dbLangThai |
Thaï |
dbLangTurkish |
Turc |
Vous pouvez utiliser une ou plusieurs des constantes suivantes dans l'argument options pour indiquer la version du format de données et préciser s'il faut chiffrer ou non la base de données.
Constante |
Description |
---|---|
dbEncrypt |
Crée une base de données chiffrée. |
dbVersion10 |
Crée une base de données qui utilise le format de fichier de la version 1.0 du moteur de base de données Microsoft Jet. |
dbVersion11 |
Crée une base de données qui utilise le format de fichier de la version 1.1 du moteur de base de données Microsoft Jet. |
dbVersion20 |
Crée une base de données qui utilise le format de fichier de la version 2.0 du moteur de base de données Microsoft Jet. |
dbVersion30 |
Crée une base de données qui utilise le format de fichier de la version 3.0 (compatible avec la version 3.5) du moteur de base de données Microsoft Jet. |
dbVersion40 |
Crée une base de données qui utilise le format de fichier de la version 4.0 du moteur de base de données Microsoft Jet. |
dbVersion120 |
Crée une base de données qui utilise le format de fichier de la version 12.0 du moteur de base de données Microsoft Access. |
Si vous omettez la constante de chiffrement, CreateDatabase crée une base de données non chiffrée.
Utilisez la méthode CreateDatabase pour créer et ouvrir une nouvelle base de données vide, et renvoyer l'objet Database. Vous devez compléter sa structure et son contenu en utilisant des objets DAO supplémentaires. Si vous souhaitez réaliser une copie partielle ou totale d'une base de données existante, vous pouvez utiliser la méthode CompactDatabase pour effectuer une copie que vous pouvez personnaliser.
Exemple
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