> Tech > Définir des valeurs NULL en VB 6.0

Définir des valeurs NULL en VB 6.0

Tech - Par iTPro - Publié le 24 juin 2010
email

Mettre à  NULL la propriété Value d'un objet Recordset Field actualisable est simple : on peut utiliser les mots-clés Framework en général) offrent de nombreuses techniques pour traiter des valeurs NULL, comme le montrent les exemples de code ci-après. En premier lieu, il faut ouvrir une connexion et exécuter une

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.

Téléchargez gratuitement cette ressource

Endpoint Security : Etude IDC Enjeux & Perspectives

Endpoint Security : Etude IDC Enjeux & Perspectives

Quel est l'état de l'art des solutions de Endpoint Security et les perspectives associées à leur utilisation ? Comment garantir la sécurité des environnements sensibles en bloquant au plus tôt les cyber attaques sophistiquées, avant qu’elles n'impactent durablement vos environnements de travail ?

Tech - Par iTPro - Publié le 24 juin 2010