|
Créer une base
de données
|
Avant toute chose le projet doit
avoir en référence
"Microsoft DAO Object Library".
Dans le menu "Projet"
sélectionner "Références":
|
Ajouter "Microsoft
DAO Object Library"
|
Instruction permettant de créer
sa base :CreateDatabase,
méthode
Crée un objet Database, enregistre
la base de données sur disque
et renvoie un objet Database ouvert
(espaces de travail Microsoft Jet uniquement).
Syntaxe
Set database = workspace.CreateDatabase
(name, locale, options)
La syntaxe de la méthode CreateDatabase
comprend les éléments
suivants :
| Élément |
Description |
|
database
|
Variable objet représentant
l'objet Database à créer.
|
| workspace |
Variable objet représentant
l'objet Workspace existant qui va
contenir la base de données.
Si vous omettez workspace, la méthode
CreateDatabase utilise l'objet Workspace
par défaut. |
| name |
Donnée de type String d'une
longueur maximale de 255 caractères,
indiquant le nom du fichier de base
de données à créer.
Cet argument peut préciser
le chemin et le nom de fichier complets,
comme "C:\db1.mdb". Si
vous ne précisez aucune extension,
.mdb est automatiquement ajouté.
Vous pouvez également indiquer
un chemin d'accès réseau,
si votre réseau le permet,
par exemple "\\server1\share1\dir1\db1".
Cette méthode ne permet de
créer que des fichiers .mdb. |
| locale |
Expression de chaîne indiquant
l'ordre de tri utilisé lors
de la création d'une base
de données, comme indiqué
dans Valeurs. Si vous omettez
cet argument, une erreur se produit.
Vous pouvez définir le mot
de passe du nouvel objet Database
en concaténant la chaîne
de mot de passe (commençant
par ";pwd=") avec une
constante dans l'argument locale,
comme dans l'exemple suivant :
dbLangGeneral & ";pwd=MotDePasse"
Pour utiliser les paramètres
régionaux par défaut,
tout en définissant un mot
de passe, entrez seulement une chaîne
de mot de passe en argument locale,
comme dans l'exemple suivant :
";pwd=MotDePasse" |
| options |
Facultatif. Constante ou combinaison
de constantes indiquant une ou plusieurs
options, comme indiqué dans
Valeurs. Pour combiner des options,
additionnez les valeurs qui leur
sont associées. |
|
Locale :
- 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ébreux
- dbLangHungarian
Hongrois
- dbLangIcelandic
Islandais
- dbLangJapanese
Japonais
- dbLangKorean
Coréen
- dbLangNorwDan
Norvégien et danois
- dbLangPolish
Polonais
- dbLangSlovenian
Slovène
- dbLangSpanish
Espagnol traditionnel
- dbLangSwedFin
Suédois et finnois
- dbLangThai
Thaï
- dbLangTurkish
Turc
|
Options
:
- dbEncrypt
Crée une base
de données codée.(Valeur
2)
- dbVersion10(Valeur
1)
- dbVersion11
(
Valeur 8)
- dbVersion20
(Valeur 16)
- dbVersion30
(Valeur par défaut 32)
Crée une base de données
utilisant le format de fichier
3.0 du moteur de base de données
Microsoft Jet (compatible avec
la version 3.5).
|
Exemple :
Dim Newdata As Database
Set Newdata = DBEngine.CreateDatabase(MaBase,
dbLangGeneral)
....
La base de donnée est crée,
mais vide...
Il faut donc lui rajouter des tables
et des champs.
|
