Discussion :

[ciara]

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 :

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
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
mais quand la requete ne retourne pas de valeur il efface le textbox
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
pourriez vous m'aider a resoudre ce probleme

[Pol63]

Code :

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

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

[ciara]

merci bien pol63
voila la condition que j'ai fait

Code :

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

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