Bonjour j'ai réussi à créer ma base acces de cette façon :
Mon problème vient maintenant de la création des tables, j'ai une erreur qui me dit
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) Finallydans l'exception. Je procède de la façon suivante:Précision non valide
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
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
Merci d'avance à ceux qui aurait la solution ou un lien qui pourrait m'aider
Partager