Dim Mabase As Database
Dim Table As TableDef
Dim Champ As Field |
Déclaration
des variables |
| |
|
Set
Mabase = DbEngine.CreateDatabase("C:\Mes
Documents\Essai.mdb", dbLangGeneral)
|
Création de la base de
données "Essai.mdb"
dans le répertoire "Mes
Documents"
|
| |
|
|
Ici la méthode CreateDatabase
a été appliquée
sur l'objet DbEngine, elle aurait
pu être appliquée
sur un objet Workspace
Le nom de la base de données
a créer peut être
transmise par l'intermédiaire
d'une variable de type string
:
- NomdelaBase = "c:\Mes
Documents\Essai.mdb"
- Set Mabase = DbEngine.CreateDatabase(NomdelaBase,
dbLangGeneral)
Insertion d'une Table :
|
Set
Table = Mabase.CreateTableDef("Livre")
|
Création de la table "Livre"
Le nom de la table "Livre"
peut être transmise par
l'intermédiaire d'une variable
de type string
|
|
La table contient un objet "Fields"(champs),
qui est une collection de champs.
Cette collection de champs est
vide. On lui applique la méthode
"Append"(ajoute):
- On lui ajoute un champ créé
par la méthode "CreateField"
Pour chaque champ, on défini
son nom et son type
|
|
Table.Fields.Append
Table.CreateField("Titre",
dbText)
Table.Fields.Append Table.CreateField("Auteur",
dbText)
Table.Fields.Append Table.CreateField("Prix",
dbCurrency)
Table.Fields.Append Table.CreateField("Quantité",
dbInteger)
Table.Fields.Append Table.CreateField("Date",
dbDate)
|
Type des champs déclarés:
- "Titre" et "Auteur"
sont de type texte
- "Prix" est un format
monaitaire
- "Quantité"
est un entier
- "Date" est en format
date
|
|
"MaBase" contient un
objet "TableDefs" qui
est une collection de Tables.
On lui ajoute donc la table venant
d'être définie par
la méthode "Append".
|
|
| Mabase.TableDefs
Append Table |
La table est ajoutée
à la base de donnée |
| |
|
| |
|
Et voilà, une base de donnée
est créée...
