condition sur la requete sql : is nothing

bonjour
j'ai un programme qui verifie si il y a un enregistrement deja existant dans la table si oui il change la valeur d'un textebox si non il ne fait rien
car ce textebox a deja une valeur affectée dans le form-load
voila le code du bouton "verifier"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim connectString As String = My.Settings.ONEConnectionString Dim connection As New System.Data.SqlClient.SqlConnection(connectString) Dim command2 As New System.Data.SqlClient.SqlCommand("SELECT max(NI) FROM programme WHERE DATE='" & TextBox1.Text & "' AND EQUIPE= '" & ComboBox1.SelectedValue & "'", connection) Dim r As String Try connection.Open() r = command2.ExecuteScalar.ToString Finally connection.Close() End Try If Not (r Is Nothing) Then TextBox5.Text = (r) End If End Sub
quand il y a un enregistrement il fait le changement :ccool:
mais quand la requete ne retourne pas de valeur il efface le textbox :cry:
je sais pas comment exprimer :si la requete ne retourne pas une valeur reelle
ne fait rien ..j'ai mal exprimer ca avec "is nothing " car il prend une valeur nulle et il l'a mis dans le textebox:roll:
pourriez vous m'aider a resoudre ce probleme :(

Code:

1
2
3
4
dim value as object = command2.ExecuteScalar
if value isnot system.dbnull.value then
  TextBox5.Text = value.tostring
end if

merci bien pol63 :ccool:
voila la condition que j'ai fait

Code:

1
2
3
4
 If Not (r Is DBNull.Value) And (r.Length > 0) Then
 
            TextBox5.Text = (r)
            End If