Discussion :

[PM_calou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pascal

[bidou]

un machin du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PM_calou]

Merci

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Le code doit-il resembler à ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PM_calou]

à 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

[Hakki]

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

[Hakki]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

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à