Contrôle sur une date

**loverdev** · 05/06/2007, 09h35

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** · 05/06/2007, 09h37

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** · 05/06/2007, 09h42

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** · 05/06/2007, 09h48

Essaie d'affecter la valeur DBNull.Value

**loverdev** · 05/06/2007, 10h16

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** · 05/06/2007, 10h24

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.

**loverdev** · 05/06/2007, 10h26

Comment je fais pour corriger ca?

Code :

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

1
2
3
4
5
6
7
 
If Val(Dates.Value) = Val(Date.Today) Then
            command.Parameters("@dates").IsNullable = True
        Else
            command.Parameters.Add(New OleDbParameter("@dates", OleDbType.Date))
            command.Parameters("@dates").Value = CType(Dates.Text, Date)
        End If

**SaumonAgile** · 05/06/2007, 11h45

Tu vois que si tu passes dans le premier cas, tu essaies d'utiliser un paramètre que tu n'as pas créé. Je te laisse en tirer les conclusions qui s'imposent

**loverdev** · 05/06/2007, 11h48

J'ai créé ce paramètre et pour en être sûre voici le code complet :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Imports System.Data.OleDb
Imports System.Data
Imports System.Data.OleDb.OleDbType
Imports System.DBNull
Imports System.Data.OleDb.OleDbParameterCollection
 
Public Class Frmajoutab
    Public sql As String
 
    Private Sub Frmajoutab_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FournisseurTableAdapter.Fill(Me.MarchesDataSet.Fournisseur)
    End Sub
 
    Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim cn As New OleDb.OleDbConnection
        Dim command As OleDbCommand = New OleDbCommand("insert into Abonnement (Num_abonnement, Lib_abonnement, Date_debut_ab, Date_fin_ab, Montant_ab, Num_frs, Nom_frs) values (@numab, @libab, @Dates, @Datef, @montantab, @numfrs, @Cbxfrs) ")
 
        If Txtnumab.Text = "" Or Txtlibab.Text = "" Or Txtmontantab.Text = "" Or Txtnumfrs.Text = "" Then
            MsgBox("Vous devez saisir des valeurs non nulles.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            Exit Sub
        End If
        sql = "select count * from Abonnement where Num_abonnement ='" & Txtnumab.Text & "'"
        command.Parameters.Add(New OleDbParameter("@numab", OleDbType.Char, 50))
        command.Parameters("@numab").Value = Txtnumab.Text
        command.Parameters.Add(New OleDbParameter("@libab", OleDbType.Char, 255))
        command.Parameters("@libab").Value = Txtlibab.Text
        If Val(Dates.Value) = Val(Date.Today) Then
            command.Parameters("@dates").IsNullable = True
        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").IsNullable = True
        Else
            command.Parameters.Add(New OleDbParameter("@datef", OleDbType.Date))
            command.Parameters("@datef").Value = CType(Datef.Text, Date)
        End If
        command.Parameters.Add(New OleDbParameter("@montantab", OleDbType.Decimal, 15))
        command.Parameters("@montantab").Value = MonFormat(Txtmontantab.Text, 3)
        command.Parameters.Add(New OleDbParameter("@numfrs", OleDbType.Integer, 10))
        command.Parameters("@numfrs").Value = CInt(Txtnumfrs.Text)
        command.Parameters.Add(New OleDbParameter("@cbxfrs", OleDbType.Char, 50))
        command.Parameters("@cbxfrs").Value = Cbxfrs.Text
        Try
            cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb"
            cn.Open()
            command.Connection = cn
            command.ExecuteNonQuery()
            MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Catch ex As Exception
            MsgBox("Le numéro d'abonnement existe déjà")
        Finally
            If Not (cn Is Nothing) Then
                cn.Close()
            End If
        End Try
        Me.Dispose()
        Frmprincipale.Show()
    End Sub
End Class

**SaumonAgile** · 05/06/2007, 11h50

Bah non tu ne le crées que dans le else...

**loverdev** · 05/06/2007, 12h02

Ok j'ai compris où était mon erreur. Mais quand j'ai modifié le code comme vous me l'avez dis il me sort le msg "Cet abonnement existe déjà" alors que dans la table abonnement, l'abonnement que je veux créer n'existe pas. C'est due a quoi?

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
Imports System.Data.OleDb
Imports System.Data
Imports System.Data.OleDb.OleDbType
Imports System.DBNull
Imports System.Data.OleDb.OleDbParameterCollection
 
Public Class Frmajoutab
    Public sql As String
 
    Private Sub Frmajoutab_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FournisseurTableAdapter.Fill(Me.MarchesDataSet.Fournisseur)
    End Sub
 
    Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim cn As New OleDb.OleDbConnection
        Dim command As OleDbCommand = New OleDbCommand("insert into Abonnement (Num_abonnement, Lib_abonnement, Date_debut_ab, Date_fin_ab, Montant_ab, Num_frs, Nom_frs) values (@numab, @libab, @Dates, @Datef, @montantab, @numfrs, @Cbxfrs) ")
 
        If Txtnumab.Text = "" Or Txtlibab.Text = "" Or Txtmontantab.Text = "" Or Txtnumfrs.Text = "" Then
            MsgBox("Vous devez saisir des valeurs non nulles.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            Exit Sub
        End If
        sql = "select count * from Abonnement where Num_abonnement ='" & Txtnumab.Text & "'"
        command.Parameters.Add(New OleDbParameter("@numab", OleDbType.Char, 50))
        command.Parameters("@numab").Value = Txtnumab.Text
        command.Parameters.Add(New OleDbParameter("@libab", OleDbType.Char, 255))
        command.Parameters("@libab").Value = Txtlibab.Text
        If Val(Dates.Value) = Val(Date.Today) Then
            command.Parameters.Add(New OleDbParameter("@dates", OleDbType.Date))
            command.Parameters("@dates").IsNullable = True
        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.Add(New OleDbParameter("@datef", OleDbType.Date))
            command.Parameters("@datef").IsNullable = True
        Else
            command.Parameters.Add(New OleDbParameter("@datef", OleDbType.Date))
            command.Parameters("@datef").Value = CType(Datef.Text, Date)
        End If
 
        command.Parameters.Add(New OleDbParameter("@montantab", OleDbType.Decimal, 15))
        command.Parameters("@montantab").Value = MonFormat(Txtmontantab.Text, 3)
        command.Parameters.Add(New OleDbParameter("@numfrs", OleDbType.Integer, 10))
        command.Parameters("@numfrs").Value = CInt(Txtnumfrs.Text)
        command.Parameters.Add(New OleDbParameter("@cbxfrs", OleDbType.Char, 50))
        command.Parameters("@cbxfrs").Value = Cbxfrs.Text
        Try
            cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb"
            cn.Open()
            command.Connection = cn
            command.ExecuteNonQuery()
            MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Catch ex As Exception
            MsgBox("Le numéro d'abonnement existe déjà")
        Finally
            If Not (cn Is Nothing) Then
                cn.Close()
            End If
        End Try
        Me.Dispose()
        Frmprincipale.Show()
    End Sub
End Class

**SaumonAgile** · 05/06/2007, 13h14

Si tu ne donnes pas le contenu exact de l'exception déclenchée, on ne pourra pas t'aider.

**loverdev** · 05/06/2007, 14h08

Je n'ai plus le pb de l'exception. Mais quand j'essaye de valider l'ajout d'un abonnement tout en laissant le datetimepicker ayant la valeur de la date système (dans ce cas lors de l'ajout il n'insère rien au niveau du champ date dans la base de données), il m'affiche le msg "Cet abonnement existe déjà". Or dans la base de données cet abonnement n'existe pas. Comment je peux corriger ça?

**SaumonAgile** · 05/06/2007, 15h18

Toujours pareil, tant que tu ne donnes pas les détails de l'exception qui déclenche l'affichage du message, on ne peut pas t'aider.

**loverdev** · 05/06/2007, 15h20

Le msg qui apparaît se trouve dans le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Try
            cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb"
            cn.Open()
            command.Connection = cn
            command.ExecuteNonQuery()
            MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Catch ex As Exception
            MsgBox("Le numéro d'abonnement existe déjà")<==============
        Finally
            If Not (cn Is Nothing) Then
                cn.Close()
            End If
        End Try

**SaumonAgile** · 05/06/2007, 16h29

Restons calmes...

J'ai bien compris que le message d'affiche à cause du messagebox, merci de préciser.
Si ton message s'affiche c'est parce que ton code déclenche une exception qui est 'catchée' ici :

Code :

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

Catch ex As Exception

Ce que je te demande, c'est quand tu débogues, quel est le type et le message contenu dans ce 'ex'.

**loverdev** · 05/06/2007, 17h27

Le msg qui s'affiche dans ce ex est "Cet abonnement existe déjà"

**SaumonAgile** · 05/06/2007, 17h36

J'ai l'impression que tu le fais exprès...
Oublie ton MessageBox, on s'en fiche.
Quand tu débogues, que contient la variable ex ? Quelle est l'exception déclenchée et qui est ensuite 'catchée' par le try/catch ?

**loverdev** · 05/06/2007, 18h01

il me met "Le paramètre @dates n'a pas de valeur par défaut"

**SaumonAgile** · 05/06/2007, 18h06

C'est parce que tu n'as pas initialisé le paramètre @dates et qu'il est de tout de même présent dans la requête.
Dans ce cas, tu crées le paramètre @dates avec comme valeur DBNull.Value.

Contrôle sur une date

VB.NET

Discussions similaires

Partager

Partager