Bonjour,
Voila plusieurs dizaines de minutes qu'un truc m'énerve au plus haut point. Je cherche à générer une base de données Access en VB.Net. Un champ devrait avoir la propriété Numéro auto. Et ben malgré plusieurs codes sources que j'ai vu, aucun ne fonctionne! Si quelqu'un pouvait m'éclairer. Voici le code :
Dim adCat As New ADOX.Catalog
Dim tb As New ADOX.Table
adCat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=demo.mdb")
tb.Name = "Contacts"
Dim col As New ADOX.Column
col.Name = "Numéro"
col.Type = ADOX.DataTypeEnum.adInteger
tb.Columns.Append(col)
tb.Columns.Append("Nom", ADOX.DataTypeEnum.adVarWChar, 50)
tb.Columns.Append("Prénom", ADOX.DataTypeEnum.adVarWChar, 50)
tb.Keys.Append("PK_Numero", ADOX.KeyTypeEnum.adKeyPrimary, "Numéro")
adCat.Tables.Append(tb)
Donc le champ Numéro devrait être automatique. D'après plusieurs forums, il faudrait mettre ça comme :
col.Properties("AutoIncrement").Value = True
Et ben VB.Net ne veut rien savoir, il me dit que cette propriété n'est pas présente dans la liste, qui est même vide (si je fais un col.Properties.Count ça me renvoie 0). Ca commence vraiment à m'énerver, alors si quelqu'un a une indication, je suis preneur.
Configuration: Windows XP
Firefox 2.0.0.14
Base de donnée access gestion de parc
