Discussion :

[Jah73]

Bonjour,

Pour simplifier, j'ai une classe avec plusieurs Property dedans :

Code :

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

1
2
3
4
5
6
Public Class BatchData
     ...
     Public Property MarkCorrection As Integer
     Public Property GridCorrection As String
     ...
End Class

Dans mon code principal, j'instancie cette classe et je lui assigne ou non des valeurs :

Code :

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

1
2
Dim bd as new BatchData()
bd.MarkCorrection = 1

Après j'ai une classe qui me permet de récupérer ces valeurs et les stocker dans une BDD mais la ça bloque :

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
Public Sub InsertBatchData(ByVal pExpID As Integer, ByRef pBatchData As BatchData)
      Try
            Dim insertBatchData As SqlCommand = New SqlCommand("InsertBatchData")
 
            With insertBatchData.Parameters
                  .Add(New SqlParameter("@markCorrec", SqlDbType.Int))
                  .Add(New SqlParameter("@gridCorrec", SqlDbType.VarChar))
            End With
 
            With insertBatchData                        
                  .Parameters("@markCorrec").Value = IIf(pBatchData.NumberOfMarksNY.ToString Is Nothing, DBNull.Value, pBatchData.NumberOfMarksNY)
                  .Parameters("@gridCorrec").Value = IIf(pBatchData.WaferGridCorrection.ToString Is Nothing, DBNull.Value, pBatchData.WaferGridCorrection.ToString)
            End With
 
            ExecuteRequest.NonQueryStoredProcedure(insertBatchData)
 
            Catch ex As Exception
                  Console.WriteLine("Erreur Table Batch Data : " & ex.Message)
            End Try
 
End Sub

Le problème c'est que je n'ai pas assignée de valeur à GridCorrection et il est nul. Du coup

Code :

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

IIf(pBatchData.WaferGridCorrection.ToString Is Nothing, DBNull.Value, pBatchData.WaferGridCorrection.ToString)

lève l'exception :

La référence d'objet n'est pas définie à une instance d'un objet

Ma question est : Comment je peux savoir si l'objet est instancié ?

Merci d'avance

Jah

[tomlev]

Si WaferGridCorrection est nul (Nothing), l'appel à ToString provoque l'exception. Il ne fait pas tester le résultat de ToString (qui de toute façon ne renvoie jamais null), mais la valeur de la propriété elle-même : pBatchData.WaferGridCorrection Is Nothing.

Pour NumberOfMarksNY, inutile de tester, car Integer est un type valeur, et ne vaut donc jamais null

[Jah73]

Bonjour Tomlev et merci pour ta réponse,

Je vais corriger ca pour les Integer

Pour IIf(pBatchData.WaferGridCorrection Is Nothing, DBNull.Value, pBatchData.WaferGridCorrection.ToString)
, malheuresement ca ne fonctionne pas :



EDIT : Voici l'état de WaferGridCorrection au moment où je fais If

[tomlev]

Utilise If à la place de IIf.

IIf est une fonction, donc les deux arguments sont évalués avant que ça puisse renvoyer un résultat, donc pBatchData.WaferGridCorrection.ToString est évalué même si pBatchData.WaferGridCorrection est nul, d'où l'erreur.
If, en revanche, est un opérateur, pas une fonction, et il n'évalue que la partie qui correspond au test (donc pBatchData.WaferGridCorrection.ToString n'est évalué que si pBatchData.WaferGridCorrection Is Nothing renvoie False.

Soit dit en passant, tu n'as pas besoin d'appeler ToString sur WaferGridCorrection, puisque c'est déjà de type String...

[Jah73]

Merci tomlev pour tes explications claires et précises

Je corrige mes erreurs et je clos le sujet