Question 74

Comment creer une base de donnees avec ADO ?

Il faut employer le mod?le objet ADOX qui est consacre a la structure des bases de donnees (le modele objet ADODB etant lui consacre a la gestion de donnees).

La première chose a faire est de rajouter une référence à ADOX. Pour ce faire, cliquer sur le menu "Projet/References...". Dans la liste des références disponibles, sélectionnez "Microsoft ADO Ext. 2.1 for DDL and Security". Vous pouvez maintenant essayer l'exemple suivant qui crée une base de données contenant une table elle-même composée de trois champs et d'une clé primaire.

Private Sub Form_Load()

    Dim cat As New ADOX.Catalog
    Dim tbl As New ADOX.Table
    Dim key As New ADOX.key

    ' Creation de la base de donnee
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mes Documents\MyDataBase.mdb"

    ' Ajout d'une table
    tbl.Name = "Table1"
    tbl.Columns.Append "Champ1", adInteger
    tbl.Columns.Append "Champ2", adInteger
    tbl.Columns.Append "Champ3", adVarWChar, 50
    cat.Tables.Append tbl

    ' Ajout d'une cle primaire
    key.Name = "ClePrimaire"
    key.Type = adKeyPrimary
    key.RelatedTable = "Table1"
    key.Columns.Append "Champ1"
    tbl.Keys.Append key

    Set key = Nothing
    Set tbl = Nothing
    Set cat = Nothing

End Sub

Si vous désirez plus d'informations, lisez l'excellent technopoche consacré à cette technologie.

Voir aussi :

• Comment ajouter une table à une base de données avec ADO ?
• Comment ajouter un champ à une table d'une base de données ?
• Comment supprimer un champ d'une table d'une base de données ?
• Où puis-je trouver la dernière version d'ADO et d'ADOX ?