Utiliser le modèle ADOX avec Visual Basic

Attributes

Définit si la colonne est de longueur fixe et si elle accepte les valeurs NULL.

DefinedSize

Définit la taille maximum du champ

Name

Nom de la table. Obligatoire. L'unicité d'un nom dans une collection n'est pas obligatoire, mais dans une même base, il ne peut pas y avoir deux tables portant le même nom.

NumericScale

À ne pas confondre avec la propriété Précision. Donne l'échelle (nombre de chiffres après la virgule) d'un champ dont le type est adNumeric ou adDecimal.

ParentCatalog

Qu'on ne présente plus !

Precision

Définit la précision (nombre maximal de chiffres pour représenter la valeur) d'un champ numérique.

Type

Définit le type du champ. Il existe beaucoup de types définis (39), mais le tableau suivant vous donnera les principaux types Access.

Les propriétés dynamiques de l'objet Column intéressantes sont :

Autoincrement : Permet de créer les colonnes à numérotation automatique.

Default : Définit la valeur par défaut d'un champ.

Nullable : Définit si la colonne accepte des valeurs NULL.

Fixed Length : Définit si la colonne est de longueur fixe.

Seed : Détermine la prochaine valeur qui sera fournie par un champ de type numéro Automatique.

Increment : Définit le pas d'incrément d'un champ NuméroAuto.

Jet OLEDB:Column Validation Text : Définit le message d'alerte si une règle de validation n'est pas respectée.

Jet OLEDB:Column Validation Rule : Définit une règle de validation pour un champ.

Jet OLEDB:Allow Zero Length : Définit si les chaînes vides sont autorisées.

Dans l'exemple suivant, nous allons créer une table contenant trois champs, Identification de type NuméroAuto, Nom de type Texte, Ntel de type numérique formaté.

Dim Catalogue As ADOX.Catalog, MaTable As ADOX.Table
Dim strConn As String, compteur As Long, MaCol As ADOX.Column
    Set Catalogue = New ADOX.Catalog
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\User\jmarc\tutorial\ADOX\Test\NouvBase1.mdb"
    Catalogue.Create strConn
    Set MaTable = New ADOX.Table
    MaTable.Name = "PremTable"
    For compteur = 1 To 3
        Set MaCol = New ADOX.Column
        With MaCol
            .DefinedSize = Choose(compteur, 0, 50, 14)
            .Name = Choose(compteur, "Id", "Nom", "Tel")
            .Type = Choose(compteur, adInteger, adVarWChar, adVarWChar)
            .Attributes = Choose(compteur, 0, adColFixed, adColFixed + adColNullable)
            If compteur = 1 Then
                Set .ParentCatalog = Catalogue
                MaCol.Properties("Autoincrement") = True
                MaCol.Properties("Seed") = CLng(1)
                MaCol.Properties("Increment") = CLng(1)
            End If
        End With
        MaTable.Columns.Append MaCol
        Set MaCol=Nothing
    Next compteur
    Catalogue.Tables.Append MaTable
End Sub

Je commence donc par créer la base de données. Pour cela j'utilise une chaîne de connexion qui est obligatoire pour pouvoir utiliser la méthode Create de catalogue. Dans cet exemple, je ne définis pas de fichier de sécurité. Ensuite je crée mon objet Table. Comme je n'utilise pas sa collection Properties, je ne valorise pas sa propriété ParentCatalog.

Dans la boucle, je crée mes colonnes. J'utilise la fonction Choose afin d'écrire de façon plus concise. Pour chaque colonne je définis une taille, un nom, un type et éventuellement ses attributs. Notons que comme la colonne n'est pas encore ajoutée à la collection Columns, elle n'existe pas encore. Dès lors, l'ordre de valorisation des propriétés n'a aucune importance. Dans le cas de la colonne « Id », je vais créer un champ NuméroAuto. Pour cela, je dois valoriser des propriétés dynamiques, donc je dois définir la propriété ParentCatalog. Enfin j'ajoute la colonne à la collection Columns puis la table à la collection Tables.

Notez aussi que tout ce code revient au même, à l'exception de la création de la base que la commande DDL

CREATE TABLE PremTable(Id COUNTER, Nom TEXT 50 NOT NULL, Tel TEXT 14)

Indique si l'index est regroupé. Un index regroupé signifie qu'il existe un ordre physique pour les données. C'est en général l'index de la clé primaire.

Définit le comportement de l'index vis-à-vis des colonnes ayant une valeur NULL.

Précise si l'index représente la clé primaire de la table.

N. B. C'est là que je vous disais de faire attention. Une clé primaire (ou non d'ailleurs) est définie par la collection Keys. Néanmoins on définit en général aussi un index sur la colonne de clé primaire. En mettant à vrai cette propriété, la création de l'index implique la création de la clé. Donc si vous créez une clé primaire de façon implicite, n'essayez pas de la recréer après dans la collection Keys et vice versa.

Définit la contrainte d'unicité.

Comme toujours, la propriété ParentCatalog de l'index doit être valorisée avant l'appel d'un membre de cette collection. La plupart de ces propriétés étant en lecture seule ou redondante avec les propriétés statiques de l'objet, nous n'irons pas plus avant dans notre exploration.

Définit les colonnes sur lesquelles porte l'index. N'oubliez pas qu'un index porte sur un ou plusieurs champs, mais qu'il appartient à l'objet Table.

L'objet Column doit impérativement exister dans la table avant de pouvoir être ajouté à la collection Columns de l'index.

Les colonnes des index utilisent une propriété supplémentaire

Définit l'ordre de tri d'une colonne d'index.

Dans mon exemple précédent, je vais rajouter un index sur la colonne Nom, avec un tri croissant.

Set MonIndex = New ADOX.Index
With MonIndex
    .IndexNulls = adIndexNullsDisallow
    .Name = "ind1"
    .Columns.Append "Nom"
    .Columns("Nom").SortOrder = adSortAscending
End With
MaTable.Indexes.Append MonIndex

Ce code se situe après l'ajout des colonnes à l'objet Tables, mais avant l'ajout de l'objet Table. Comme précédemment, je manipule mon objet avant son ajout à la collection.

Cette clé devrait être composée d'une seule colonne, mais ce n'est pas une obligation. Elle sert à identifier chaque enregistrement de manière unique. La clé primaire n'accepte pas les valeurs NULL. Beaucoup de gens utilisent un champ à numérotation automatique pour définir la clé primaire, cela n'est en rien obligatoire. Une table n'a qu'une clé primaire.

Champ de même type/sous-type de données que la clé primaire, qu'elle référence dans la table enfant. Une table peut posséder plusieurs clés étrangères.

Mécanisme de vérification qui s'assure que, pour chaque valeur de clé étrangère, il y a une valeur de clé primaire lui correspondant. Ce mécanisme se déclenche lors de l'ajout d'une nouvelle valeur de clé étrangère, lors de la suppression d'une clé primaire ou lors de la modification de l'une quelconque des deux clés.

Mode opératoire dépendant de l'intégrité référentielle. Celui-ci détermine éventuellement le comportement du SGBDR en cas de suppression/modification d'un enregistrement parent.

Définit les règles à appliquer lors de la suppression d'une valeur de la clé primaire. On distingue 4 cas :

AdRINone

Aucune action (équivalent du mode de gestion SQL ON DELETE NO ACTION). Cette valeur interdit toute suppression d'un enregistrement tant qu'il existe un enregistrement dépendant dans la base.

AdRICascade

Modifications en cascade (SQL ON DELETE CASCADE). Attention à l'utilisation de cette valeur. Elle supprime tous les enregistrements liés lors de la suppression de l'enregistrement père. Ceci peut être très coûteux pour le SGBD en termes de performances et doit être limité au sein d'une transaction

AdRISetNull et adRISetDefault

Attribue la valeur nulle ou la valeur par défaut à la clé étrangère. Ceci se justifie rarement sauf pour gérer des traitements par lots a posteriori.

Tel que son nom l'indique

Si la clé est une clé étrangère, définit le nom de la table contenant la clé primaire correspondante.

Détermine s'il s'agit d'une clé primaire, étrangère ou unique. Une clé unique est une clé sans doublons.

Équivalent pour les modifications à DeleteRule pour les mises à jour.

Définit la ou les colonne(s) appartenant à la clé. Celles-ci doivent déjà appartenir à la collection Columns de l'objet Table. L'objet Column de l'objet Key utilise la propriété RelatedColumn. Celle-ci définit la colonne en relation dans la table définie par RelatedTable.