Discussion :

[Lois]

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!

[bifidus]

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 :

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

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

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

[Lahouari]

Code :

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

1
2
 
Dim maDate as Date = Nothing