Discussion :

[dhiaeddine2012]

Bonjour

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

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

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

[AcidLines]

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 :

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
 
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 Je decryptais le post avant ton passage )

[dhiaeddine2012]

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

[dhiaeddine2012]

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

Code :

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

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

[dhiaeddine2012]

c'est bon ça marche ) merci mec

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

[AcidLines]

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