Variable avec comportement différent

Version imprimable

Bonjour à tous
voila mon code si la condition

Code:

If ComboBox7.SelectedValue = Nothing

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

mais si le code passe par le

Code:

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:

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:

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:

MsgBox(ComboBox7.SelectedValue)

renvoi null

si vous voyez ou se trouve le problème merci de me mettre sur la voie

03/03/2018, 23h36
clementmarcotte

Bonjour,

À première vue et sans avoir testé.

Il semblerait que tu n'aies pas, soit dans ton code, soit dans ton myproject :

Code:

option strict on

et/ou

Code:

option explicit on

(c'est une des deux)

Parce que tu sembles avoir droit au transtypage automatique hérité des BASIC d'origine. Et quand une variable n'est pas typée, VB va convertir vers le type qui semble convenir; si ce sont juste des chiffres, il va en faire un numérique, des lettres, un texte etc.

Donc, en principe, si dans ta première partie tu mets

Code:

If ComboBox7.SelectedValue = 0 Then

Ça pourrait marcher, en supposant que ton résultat soit obligatoirement un nombre

Dans ta deuxième partie, tu as:

Code:

Dim Result = CmdLastId.ExecuteScalar()

Ton resultat est de type objet, et peut avoir une valeur nothing. Donc, VB a probablement converti tom null en nothing pour faire passer le test...

La morale de l'histoire, toujours typer ses variables. Et faire les conversions explicitement, c'est encore mieux que de laisser faire automatiquement les transtypages.

Toujours de mémoire, tu peux vérifier le type de résultat avec GetType.
04/03/2018, 07h04
spookyz

Bonjour et merci clementmarcotte,
je n'ai effectivement pas de "Option stric ou expicit", je vais maitenant chercher avec les pistes que tu me donne
et lorsque j'aurai trouvé, je mettrai ma solution et placerai le post en Résolu.
Encore merci.

Bon désolé, je ne m'en sort pas !

J'ai ajouté en haut de ma Form1 "Option Explicit On"

Voici la façon de remplir ma combobox7

Code:

1
2
3
4
5
6
7
8
9
10
Dim RqU_Pds As String = "SELECT * FROM T_Unites_Pds"
        Dim CmdU_Pds As New SqlCommand(RqU_Pds, Connexion)
        Dim AdpU_Pds As New SqlDataAdapter(CmdU_Pds)
        Dim DSU_Pds As New DataSet
 
AdpU_Pds.Fill(DSU_Pds, "TbU_Pds")
 
ComboBox7.DisplayMember = "U_PDS_UNITE"
            ComboBox7.ValueMember = "ID_U_PDS"
            ComboBox7.DataSource = DSU_Pds.Tables("TbU_Pds")

Le Cas 1 signifie que je passe par l'ajout de ligne "Première partie du code" Voir premire post

Le Cas 2 signifie que je ne passe pas par l'ajout de ligne "Première partie du code" je n'ajoute pas de nouvelle ligne dans la BDD

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
28
29
30
31
32
33
34
35
36
37
'Fonctionne dans les 2 cas
        Dim Test1 = 40
        ComboBox7.SelectedValue = Test1
        MsgBox(ComboBox7.SelectedValue)
        'Fonctionne dans les 2 cas
        Dim Test2 As Int32 = 41
        ComboBox7.SelectedValue = Test2
        MsgBox(ComboBox7.SelectedValue)
        'Fonctionne dans les 2 cas
        ComboBox7.SelectedValue = 42
        MsgBox(ComboBox7.SelectedValue)
 
 
        'Ne fonctionne que dans le Cas 2
        Dim CmdLastId As New SqlCommand("Select Ident_Current('T_Unites_Pds')", Connexion)
 
        Dim Cmdtip As Type = CmdLastId.ExecuteScalar().GetType
        'Cmdtip me renvoi {Name = "Decimal" FullName = "System.Decimal"}
 
        Dim Result1 = Convert.ToInt32(CmdLastId.ExecuteScalar())
        ComboBox7.SelectedValue = Result1
        'Cas 2 le comportement est correct
        Dim ComboValTip1 As Type = ComboBox7.SelectedValue.GetType
        'Cas 2 : ComboValTip1 me renvoi {Name = "Int32" FullName = "System.Int32"}
 
        'Cas 1 : plante et me revoi
        'System.NullReferenceException
        'La référence d'objet n'est pas définie à une instance d'un objet.'
        'System.Windows.Forms.ListControl.SelectedValue.get retournée Nothing.
 
 
        Dim Result2 = CType(CmdLastId.ExecuteScalar(), Int32)
        ComboBox7.SelectedValue = Result2
        'Cas 2 le comportement est correct
        Dim ComboValTip2 As Type = ComboBox7.SelectedValue.GetType
        'Cas 2 :ComboValTip2 me renvoi {Name = "Int32" FullName = "System.Int32"}
        MsgBox(ComboBox7.SelectedValue)

j'ai essayé beaucoup d'autres choses (trop long de toutes les présenter dans ce post)
mais rien ne fonctionne je ne sais plus quoi chercher alors ???

06/03/2018, 19h01
spookyz

Alleluia !!
Bon voila j'ai enfin trouvé :oops::oops::oops:
depuis le début ça fonctionne le problème c'etait que je ne remettais pas à jour la combobox avec le nouvelle item
il ne pouvais donc pas le trouver (je craint quand mème!):aie:
Merci à clementmarcotte et à tous ceux qui font vivre ce super site.