|
Créer une Table
dans une base de données
Instruction permettant de créer
une Table :CreateTableDef,
méthode
Set tabledef = database.CreateTableDef
(name, attributes, source, connect)
La syntaxe de la méthode CreateTableDef
comprend les éléments
suivants :
| Élément |
Description |
tabledef
|
Variable
objet représentant l'objet
TableDef à créer. |
| database
|
Variable objet représentant
l'objet Database à utiliser
pour créer l'objet TableDef. |
| name |
Facultatif.
Donnée de type Variant (sous-type
String) constituant un nom unique
pour le nouvel objet TableDef. |
| attributes
|
Facultatif. Constante
ou combinaison de constantes indiquant
une ou plusieurs des caractéristiques
du nouvel objet TableDef.
voir la propriété
Attributes. |
| source |
Facultatif. Donnée
de type Variant (sous-type String)
contenant le nom d'une table d'une
base de données externe qui
constitue la source originale des
données. La chaîne
source devient la valeur de la propriété
SourceTableName du nouvel objet
TableDef. |
| connect |
Facultatif. Donnée
de type Variant (sous-type String)
contenant des informations sur la
source d'une base de données
ouverte, utilisée dans une
requête directe, ou d'une
table attachée. |
Exemple :
Dim Tb As TableDef
* worksdata est la base de données
où l'on ajoute une table comprenant
25 champs nommés "Champ1";"Champ2";...;"Champ25"
de type Text
Set Tb = Worksdata.CreateTableDef(Table)
For q = 1 To 25
Tb.Fields.Append Tb.CreateField("Champ"
& Format(q), dbText, 255)
Next q
Worksdata.TableDefs.Append Tb
La table sera ajoutée à
la base de données par l'instruction
: MaBase.Tabledefs.Append Table (la
table doit contenir au moins 1 champ)
|
