incrémenter mon textBox avec BD SQl Server

Version imprimable

Bonjour

j'ai un problème pour incrémenter mon textBox et voici le code que j'ai confectionner dans ma form load
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Public crs As OleDb.OleDbDataReader Public cmd As OleDb.OleDbCommand Private Sub Gestion_des_Comptes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' ' ' 'incrémenter mon textbox3 Dim conn As OleDb.OleDbConnection conn = New OleDb.OleDbConnection(ChaineConnection) conn.Open() cmd.CommandText = "select max([Id Code Utilisateur]) from [Code Utilisateur]" crs = cmd.ExecuteReader crs.Read() Dim x1 = crs.GetString(0) TextBox3.Text = Val(x1) + 1 cmd.Connection = conn cmd.ExecuteNonQuery() conn.Dispose() cmd.Dispose()
l'erreur générer est

Citation:

La référence d'objet n'est pas définie à une instance d'un objet.

ma chaîne de connections fonctionne très bien mais je ne comprend pas ou ce situe l'erreur!!!!
Si vous pouvez m aider pour exécuter ce code je serai reconnaissant.
Merci d’avance...... ;)

Bonjour,

Bon, ton code et ton énoncé ne sont pas très clair, mais je pense que cela provient de ta succession de commandes pour exécuter ta requête/Connexion.

Par contre, je ne comprend pas ce que tu entends par "Incrémenter" vis à vis de ton code.

Essaye ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim SQL as string Dim CNX as new OleDbConnection(chaineConnexion) SQL = "select max([Id Code Utilisateur]) from [Code Utilisateur]" Dim myCmd as OleDbCommand = new OleDbCommant(SQL,CNX) CNX.open() Dim myReader as OleDbReaderDataReader = myCmd.ExecuteReader() myReader.Read() TextBox3.text = myReader.item(0).toString myReader.close CNX.close()
(au passage merci Deepin pour les balises CODE :ccool: Je decryptais le post avant ton passage )

29/02/2012, 12h31
dhiaeddine2012

hi

je voulez dire qu’a chaque fois j'ajoute 1 dans mon textbox ,,mais je vais assaillez votre solution pour voire le résultat... et merci

j'ai modifier le code

j'ai modifier le code pas d'erreur mais le textbox ne prend aucune valeur !!ca marche pas :cry:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim conn As OleDb.OleDbConnection
        Dim SQL As String
        conn = New OleDb.OleDbConnection(ChaineConnection)
        Dim cmd As OleDb.OleDbCommand
        SQL = "select max([Id Code Utilisateur]) from [Code Utilisateur]"
        cmd = New OleDb.OleDbCommand(SQL, conn)
        cmd.Connection = conn
        conn.Open()
        Dim myReader As OleDb.OleDbDataReader = cmd.ExecuteReader()
        myReader.Read()
        Dim x1 = myReader.Item(0).ToString
        TextBox3.Text = Val(x1) + 1
        myReader.close()
        conn.Close()

29/02/2012, 13h11
dhiaeddine2012

c'est bon ça marche :))

c'est bon ça marche :)) merci mec
29/02/2012, 13h19
Bluedeep

Au demerant, cela n'a pas vraiment de sens d'utiliser un DataReader pour retourner le résultat d'une requête dont le seul retour est une fonction d'agrégat.
29/02/2012, 13h19
AcidLines

De rien, par contre pense aux balises QUOTE pour afficher tes codes.