Tester si un objet existe

Version imprimable

Bonjour,

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

Code:

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:

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:

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:

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

lève l'exception :

Citation:

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 :ccool:

Jah

04/02/2014, 14h59
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
04/02/2014, 15h37
Jah73

2 pièce(s) jointe(s)

Bonjour Tomlev et merci pour ta réponse,

Je vais corriger ca pour les Integer :ccool:

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

Pièce jointe 136114

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

Pièce jointe 136116
04/02/2014, 16h09
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...
04/02/2014, 16h21
Jah73

Merci tomlev pour tes explications claires et précises :ccool:

Je corrige mes erreurs et je clos le sujet ;)