incrémenter mon textBox avec BD SQl Server
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...... ;)