[VB.NET] Valur null pour une date.

J'aimerais savoir si dans ADO.NET il y a une façon de définir qu'une variable de type date est null, et si il est possible de passer la valeur null à cette variable date.

En fait lorsque je mets "null", comme valeur, à l'exécution vb.net remonte l'erreur que la date n'a pas été renseignée.

Merci pour votre aide!

Faut se Faire une Classe qui accepte les valeurs nulles ou dates...
Les valeurs nulles sont stockées en date.Minvalue

ca donne un truc dans ce gout la:

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
<Serializable()> Public Class NullDateClass
 
    Dim _Value As Date = Date.MinValue
 
    Public Property Value() As Date
      Get
        Return Me._Value
      End Get
      Set(ByVal Valeur As Date)
        Me._Value = Valeur
      End Set
    End Property
 
    Public Shadows ReadOnly Property ToString() As String
      Get
        If Me._Value = Date.MinValue Then Return String.Empty Else Return Me._Value.ToString
      End Get
    End Property
 
  Public WriteOnly Property FromString() As String
      Set(ByVal Value As String)
        Value = Value.Replace("h", ":")
        If IsDate(Value) Then Me._Value = CDate(Value) Else Me._Value = Date.MinValue
      End Set
    End Property
 
    Public ReadOnly Property IsDate() As Boolean
      Get
        If Me._Value = Date.MinValue Then Return False Else Return True
      End Get
    End Property
 
End Class

Ensuite faut se faire un composant d'acces aux données qui renvoie des classes NulldateClass et qui ressemble à ca:

Code:

1
2
3
4
5
6
    Public Function GetNullDate(ByVal fieldName As String) As NullDateClass
      Dim ThisDate As New NullDateClass
      Dim i As Integer = Me._DataReader.GetOrdinal(fieldName)
      If Not Me._DataReader.IsDBNull(i) Then ThisDate.Value = Me._DataReader.GetDateTime(i)
      Return ThisDate
    End Function

Ah... le bon vieux VB6

Code:

1
2
 
Dim maDate as Date = Nothing