Définir des valeurs NULL en VB 6.0

requête
pour renvoyer plusieurs colonnes
dans un ensemble de lignes ; dans ce
cas, la première colonne est toujours
NULL. Pour simplifier le code, j’utilise
la variable dv pour contenir la valeur
de colonne renvoyée :

Dim dv As Object
dv = drReader.GetValue(0)
‘ Capture the first value from
‘ the data stream.
txtDateShipped.Text = «  » &
dv.ToString

On peut utiliser l’une des techniques
suivantes pour tester des valeurs
NULL dans un élément spécifique
dans la collection Items de
l’objet ADO.NET SqlDataReader,
comme je le montre plus loin – pour
apprendre à  utiliser la fonction
IsNULL() pour éviter des NULL, voir
l’encadré « Utiliser T-SQL pour éviter
des NULL indésirables ». A noter que
parce que je déclare dv comme un
objet, dv peut contenir une valeur
NULL. Si je ne déclare pas dv comme
un objet, ADO.NET produira le message
d’exception System.Invalid-
CastException: Specified cast is not
valid – mais pas avant que la requête
ne renvoie un NULL.
La première technique que j’utilise
pour tester NULL utilise la fonction
Visual Basic .NET TypeOf pour
examiner le type de données de l’objet
:

If TypeOf dv Is DBNull Then
txtDateShipped.Text =
« « 
Else
txtDateShipped.Text =
drReader(0).ToString
End If

La technique suivante compare la
valeur des données dans dv en utilisant
l’expression Is DBNull.Value qui renvoie
True (vrai) si l’objet référencé est
NULL:

If dv Is DBNull.Value Then
txtDateShipped.Text =
« « 
Else
txtDateShipped.Text =
drReader(0).ToString
End If

On peut aussi utiliser l’expression
IsDBNull pour tester NULL par rapport
à  un élément SqlDataReader spécifique
; IsDBNull renvoie True si la colonne
est définie à  NULL :

If IsDBNull(drReader(0)) Then
txtDateShipped.Text =
« « 
Else
txtDateShipped.Text =
drReader(0).ToString
End If

Et la dernière technique, que
montre le listing 1, utilise la méthode
IsDBNull de l’objet SqlDataReader ou
Rows spécifié, qui renvoie True si la colonne
spécifiée contient un NULL.