Incrémentation d'une TextBox sur VB.NEt

**andyajram** · 25/05/2013, 13h13

Bonjour ,
Je suis débutant en programmation , je voudrais avoir un peu d'aide sur mon projet ,
j'ai créer une application et une base de données dans laquelle des données seront stocké, dans la colonne A de la base de donnée j'ai une série de chiffres , je veux récupérer la dernière valeur de cette colonne, l'incrémenter de 1 et récupérer la valeur pour l'afficher dans mon textbox1 puis la rajouter comme une valeur suivante dans la base de données mais je ne trouve toujours pas la fonction !! S'il vous plait quelqu'un pourra m'aider ???!

Merci d'avance!

**franticfranz** · 25/05/2013, 13h37

Bonjour,

La méthode :

1. Connecter à la base de données ;
2. Lire la dernière valeur de la colonne A et la stocker dans une variable ;
3. Incrémenter la variable ;
4. Convertir la variable en texte et la copier dans la TextBox ;
5. (Éventuellement attendre une action de l'utilisateur)
6. Enregistrer la variable dans la base de données sous forme de ligne de données supplémentaire.

Toute la cosmétique autour de cette méthode se trouve dans l'extraordinaire cours suivant :
http://plasserre.developpez.com/cours/vb-net/

Ex-tra-or-di-naire.

Regardez du coté des bases de données : vous aurez un certain nombre de choix à opérer, si ce n'est déjà fait, sur les caractéristiques de votre base de données et la manière de stocker vos données.

**andyajram** · 25/05/2013, 13h52

MErci Pour ton Intêret je verrais ca est ce que ca pourra m'aider

**abd75web** · 26/05/2013, 10h30

tu peux utiliser ub datareader pour lire la dérnière valeur

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Cmd As New SqlCommand("Select Max(Colonne A) From ....", Connexion)
Dim DR As SqlDataReader = Cmd.ExecuteReader()
 
If DR.Read Then
If Not DR.Item(0) Is DBNull.Value Then
Ta nouvelleValeur = (DR.GetValue(0) + 1).ToString
Else
Ta nouvelleValeur= "1"
End If
End If

**andyajram** · 26/05/2013, 12h19

MErci Beaucoup ABDo

**andyajram** · 26/05/2013, 13h01

Ca ne marche toujours pas ! j'arrive pas a lire la valeur ni a l'incrémenter !!

**rv26t** · 26/05/2013, 15h19

Bonjour,

Il serait intéressant de connaître la BDD que vous utilisez.

Pour lire une information il existe la méthode ExecuteScalar.

Pour sélectionner une info
Avec Access

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Function ValCpt(ByVal connString As String, ByVal Requete As String) As Int32
        Dim CptMax As Int32 = 0
        Using conn As New OleDbConnection(connString)
            Dim cmd As New OleDbCommand(Requete, conn)
            Try
                conn.Open()
                CptMax = Convert.ToInt32(cmd.ExecuteScalar())
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Using
        Return CptMax
    End Function
End Class

Appel

Code :

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

        TxtCptBDD.Text = ValCpt("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Personnes\Personnes.accdb", "Select Max(A) from compteur").ToString

Il faut utiliser les requêtes paramètrées. (pour votre insertion)
Pour apprendre leurs utilisation. Voir Tutoriel (Le tuto est avec un insert et sqlServeur) ou Faq.

[Edit]
Il y a aussi les cours sur les BDD. Voir ceux avec ADO.
[/Edit]

A+, Hervé.

**andyajram** · 26/05/2013, 22h51

Salut désolé pour le retard ! Ma base de données est sous Microsoft SQL server !!

**rv26t** · 27/05/2013, 09h16

donc utiliser sql à la place de oledb.

**andyajram** · 27/05/2013, 13h24

D'accord MErci Beaucoup

**ebastien** · 27/05/2013, 17h45

Bonjour,

Juste pour info, SqlServer permet la création de champs auto-incrémentés. La valeur du champ est automatiquement incrémenté à chaque insertion d'un nouvel enregistrement dans la table (utile pour les ID par exemple).
Dans ce cas et si c'est pour ce type d'utilisation, il n'y a rien à faire.

eb.

**andyajram** · 27/05/2013, 20h18

Ebastien ! ce que je vous moi c'est que quand j'ouvre mon application pour saisir les informations je veux que le Champ ID qui est le premier champ a remplir ! je veux qu'il soit remplit avec la dérnière valeur sur ma base de données avec une incrémentation de 1 tu vois ! genre a chaque fois que je veux saisir a nouveau ca prend la dernière valeur de la base et lui rajoute 1 ! Chose que je n'ai pas encore arrivé a faire

il ne me reste que 3 jours pour rendre le projet

**_Ez3kiel** · 28/05/2013, 09h58

Envoyé par andyajram

Ebastien ! ce que je vous moi c'est que quand j'ouvre mon application pour saisir les informations je veux que le Champ ID qui est le premier champ a remplir ! je veux qu'il soit remplit avec la dérnière valeur sur ma base de données avec une incrémentation de 1 tu vois ! genre a chaque fois que je veux saisir a nouveau ca prend la dernière valeur de la base et lui rajoute 1 ! Chose que je n'ai pas encore arrivé a faire

il ne me reste que 3 jours pour rendre le projet

Oui et sa réponse est ce dont tu as besoin ...
Si le champ ID est déclaré "auto-incrémenté" dans ta base, lorsque tu feras ton insertion, si tu ne précises pas l'ID dans ton formulaire, la base de données l'enregistrera avec pour ID la valeur du dernier enregistrement + 1

Ainsi tu n'as même plus à gérer la saisie de l'ID dans ton formulaire ...

**andyajram** · 28/05/2013, 10h17

Envoyé par _Ez3kiel

Oui et sa réponse est ce dont tu as besoin ...
Si le champ ID est déclaré "auto-incrémenté" dans ta base, lorsque tu feras ton insertion, si tu ne précises pas l'ID dans ton formulaire, la base de données l'enregistrera avec pour ID la valeur du dernier enregistrement + 1

Ainsi tu n'as même plus à gérer la saisie de l'ID dans ton formulaire ...

Oui vous avez raison j'ai réussi a faire la démarche et ca marche maintenant Merci Beaucoup les gars