Bonjour j'ai réussi à créer ma base acces de cette façon :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
cat = New ADOX.Catalog
Try
   cat.Create("Provider=Microsoft.Jet.OleDB.4.0;Data source=" & strChemin & ";")
   bAns = True
Catch ex As Exception
   bAns = False
   MessageBox.Show(ex.ToString)
Finally
Mon problème vient maintenant de la création des tables, j'ai une erreur qui me dit
Précision non valide
dans l'exception. Je procède de la façon suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim tbl As New ADOX.Table
tbl.Name = "editeur"
tbl.Columns.Append("id", ADOX.DataTypeEnum.adNumeric)
tbl.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id")
tbl.Columns.Append("nom", ADOX.DataTypeEnum.adChar, 255)
tbl.Columns.Append("pays", ADOX.DataTypeEnum.adChar, 255)
            'TODO TODO Création de la table
Try
     cat.Tables.Append(tbl)
Catch ex As Exception
Je pense que ca vient des type de champs, mais je n'arrive pas à les ajuster comme il faut. Je précise que la base de données est de type mdb

Merci d'avance à ceux qui aurait la solution ou un lien qui pourrait m'aider