Variable avec comportement différent

**spookyz** · 03/03/2018, 22h11

Bonjour à tous
voila mon code si la condition

Code :

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

If ComboBox7.SelectedValue = Nothing

n'est pas rempli alors la deuxième partie fonctionne

mais si le code passe par le

Code :

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

If ComboBox7.SelectedValue = Nothing

alors la deuxiéme partie ne fonctionne pas mais ne plante pas
c'est la tout mon problème car la varible Result renvoi bien dans les 2 cas le numero du dernier ID

Première partie

Code :

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

1
2
3
4
5
6
7
8
9
 If ComboBox7.SelectedValue = Nothing Then
 
            Dim RqInsert As String = "Insert into T_Unites_Pds( U_PDS_UNITE ) values ('" & ComboBox7.Text & "')"
            Dim CmdInsert As New SqlCommand(RqInsert, Connexion)
 
            MsgBox("Il y a eu " & CmdInsert.ExecuteNonQuery() & " lignes mises à jour")
 
            CmdInsert.Dispose()
        End If

Deuxième partie

Code :

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

1
2
3
4
5
Dim CmdLastId As New SqlCommand("Select Ident_Current('T_Unites_Pds')", Connexion)
        'Dim Result = CType(CmdLastId.ExecuteScalar(), Long)
        Dim Result = CmdLastId.ExecuteScalar()
        ComboBox7.SelectedValue = Result
        MsgBox(ComboBox7.SelectedValue)

Donc voila le mystère si par exemple le dernier ID = 45
dans les deux cas "Result" a bien la valeur 45 mais si le code passe par la première partie
alors

Code :

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