[VB.NET] AutoIncrement sur une column

Version imprimable

Bonjour à tous

Une petite question, j'aimerai créer un AutoIncrement sur une Column, mais je n'y arrive pas.
Quelqu'un peut m'aider. Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim LaDB As String = application.StartupPath + "\MaBase.mdb"

Dim ADOXcatalog As New ADOX.Catalog
Dim ADOXtable As New ADOX.Table
Dim ADOXindex As New ADOX.Index

ADOXcatalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LaDB)
ADOXcatalog.ActiveConnection =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LaDB

        
ADOXtable.Name = "Membres"
ADOXtable.Columns.Append("Licence", ADOX.DataTypeEnum.adVarWChar, 7)
ADOXtable.Columns.Append("Nom", ADOX.DataTypeEnum.adVarWChar, 30)
ADOXtable.Columns.Append("Prenom", ADOX.DataTypeEnum.adVarWChar, 30)

ADOXtable.Columns.Append("Id", ADOX.DataTypeEnum.adInteger) 'Je voudrai l'autoIcrement ici ;) 

ADOXcatalog.Tables.Append(ADOXtable)
ADOXindex.Columns.Append("Licence")
ADOXtable.Indexes.Append(ADOXindex)

	
ADOXtable = Nothing
ADOXindex = Nothing
ADOXcatalog = Nothing

Merci d'avance :lol: :lol:

Pascal

un machin du genre

Code:

1
2
3
4
5
With ADOXtable.Columns("Id")
    .Properties("Autoincrement") = True
    .Properties("Seed") = 1
    .Properties("Increment") = 1
End With

Ca me cause ...

Merci :D

Juste un petit détail, là on donne les propriété pour "Id".
Pour l'ajouter à ma table, je conserve ?

Code:

ADOXtable.Columns.Append("Id", ADOX.DataTypeEnum.adInteger)

Le code doit-il resembler à ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ... DOXtable.Name = "Membres" ADOXtable.Columns.Append("Licence", ADOX.DataTypeEnum.adVarWChar, 7) ADOXtable.Columns.Append("Nom", ADOX.DataTypeEnum.adVarWChar, 30) ADOXtable.Columns.Append("Prenom", ADOX.DataTypeEnum.adVarWChar, 30) With ADOXtable.Columns("Id") .Properties("Autoincrement") = True .Properties("Seed") = 1 .Properties("Increment") = 1 End With ADOXtable.Columns.Append("Id", ADOX.DataTypeEnum.adInteger) ...
Pascal

22/09/2006, 10h11
PM_calou

Ca bug ...

à la compilation j'ai le message suivant:
La propriété 'Item' est 'ReadOnly' pour les 3 .Properties
Que je place ce code avant ou aprés append
:?

Pascal
22/09/2006, 20h59
Hakki

pareil que toi, il me dit readonly, pas moyen de definir la propriété autoincrement

bon voila mon code: il ne marche pas mais ne fait plus d'erreur à la compilation
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 tbl = New ADOX.Table tbl.Name = "editeur" 'création du champs id autoincrement col = New ADOX.Column With col .ParentCatalog = cat .Name = "id" .Type = ADOX.DataTypeEnum.adInteger 'TODO METTRE EN PLACE LE CHAMPS AUTOINCREMENT .Properties("Autoincrement").Value = 1 End With tbl.Columns.Append(col) tbl.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id") tbl.Columns.Append("nom", ADOX.DataTypeEnum.adVarWChar, 255) tbl.Columns.Append("pays", ADOX.DataTypeEnum.adVarWChar, 255) 'TODO TODO Création de la table Try cat.Tables.Append(tbl) Catch ex As Exception
l'exception contient ceci:

Citation:

Une opération OLE-DB en plusieurs étapes a généré des erreurs. Vérifiez chaque valeur d'état OLE-DB disponible. Aucun travail n'a été effectué.

je comprend plus rien là