Incrémentation d'une TextBox sur VB.NEt

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!:P

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.

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

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

Code:

---

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

---

MErci Beaucoup ABDo

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

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:

---

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:

---

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é.

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

donc utiliser sql à la place de oledb.

D'accord MErci Beaucoup :D

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.

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 8O

Citation:

---

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 8O

---

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 ...

Citation:

---

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 ;)

Merci Beaucoup les gars j'ai réussi a résoudre mon problème

Bien joué :ccool:
N'oublie pas le bouton :resolu: