Discussion :

[loverdev]

Voici ce que j'ai fait :

Code :

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

1
2
3
4
 
 
If Val(Dates.Value) = Val(Date.Today) Then  command.Parameters("@dates").Value = "" Else command.Parameters.Add(New OleDbParameter("@dates", OleDbType.Date)) command.Parameters("@dates").Value = CType(Dates.Text, Date) End If If Val(Dates.Value) > Val(Datef.Text) Then MsgBox("La date de signature de l'abonnement doit être inférieure à la date fin") Exit Sub End If If Val(Datef.Value) = Val(Date.Today) Then command.Parameters("@datef").Value = "" Else command.Parameters.Add(New OleDbParameter("@datef", OleDbType.Date)) command.Parameters("@datef").Value = CType(Datef.Text, Date)
 End If

tout va bien sauf qu'il me met un msg d'erreur au niveau de cette ligne de

Code :

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

1
2
 
  command.Parameters("@datef").Value = ""

A ce niveau je veux que lorsque l'on ne choisit pas une date a travers le datetimepicker (par défaut il y a la date du système), lors de l'insertion des données dans la table il prend une chaine vide. Alors comment faire?

[SaumonAgile]

Un champ vide de type date ne contient pas une chaine vide, mais plutot null.
Tu as essayé en mettant null à la place de "" ?

[loverdev]

J'ai essayé avec null mais il ne l'accepte pas il me dit de mettre a la place de null Value alors j'ai fait ça :

Code :

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

1
2
 
command.Parameters("@dates").Value = Value

mais j'ai un msg d'erreur qui apparait. Que faire?

[SaumonAgile]

Essaie d'affecter la valeur DBNull.Value

[loverdev]

J'ai essayé comme vous me l'avez conseillé mais il m'affiche ce msg d'erreur "L'exception IndexoutOfRangeException n'a pas été gérée" et "Un OledbParameter avec ParameterName '@dates' n'est pas contenu dans ce OledbParameterCollection". Que faire?

[SaumonAgile]

Bah c'est explicite comme message. Tu essaie d'affecter une valeur à un paramètre que tu n'as pas créé.
Il te suffit d'utiliser le debogueur pour t'en rendre compte.