none
Créer un compteur automatique RRS feed

  • Discussion générale

  • Il n'est pas rare que nous faisions appel à l'auto-incrémentation pour générer un id. Pour ce faire, l'objet DataColumn possède 3 propriétés :

    AutoIncrement : Booleen qui a True permet d'activer l'auto-incrémentation.
    AutoIncrementSeed : Contient la valeur qui sera affectée à la prochaine ligne insérée dans notre table.
    AutoIncrementStep : Incrémente la valeur se trouvant dans l'AutoIncrementSeed.

    Dim MonDataSet As New DataSet
    Dim MaTable As DataTable = MonDataSet.Tables.Add("Personnes")

    With MaTable
        .Columns.Add("Id")
        .Columns("Id").AutoIncrement = True
        .Columns("Id").AutoIncrementSeed = 1
        .Columns("Id").AutoIncrementStep = 1
        .Constraints.Add("ColonnesUniques", .Columns("Id"), True)
        .Columns.Add("Nom")
        .Columns.Add("Prenom")
    End With

    Dim Enregistrement As DataRow = MaTable.NewRow
    Enregistrement("Nom") = "Gates"
    Enregistrement("Prenom") = "Bill"
    MaTable.Rows.Add(Enregistrement)

    Enregistrement = MaTable.NewRow
    Enregistrement("Nom") = "Ballmer"
    Enregistrement("Prenom") = "Steve"
    MaTable.Rows.Add(Enregistrement)

    For Each ligne As DataRow In MaTable.Rows
        Console.WriteLine(ligne("Id").ToString + " " + ligne("Nom") + " " + ligne("Prenom"))
    Next

    Résultat :
    1 Gates Bill
    2 Ballmer Steve
    samedi 9 septembre 2006 20:01