Comparaison d'une date avec un masque

Version imprimable

J'aimerai comparer une date saisie dans un textbox à un masque de saisie ( dd/mm/yyyy , dd/mm/yy et dd/mm ), ceci me permettant d'exécuter une requête.

voila ce que j'ai essayé de faire...
Code:

1 2 3 4 If txtOptionRecherch.Text = Format("dd/mm/yyyy") Then cmdSelect = "SELECT NumCli as Numéro, NomCli as Nom, PrenomCli as Prénom, TelCli as Tel FROM Client WHERE DateCreat=#" & txtOptionRecherch.Text & "#" lblResultatTab.Text = " client(s) trouvé(s) au " & txtOptionRecherch.Text End If
merci d'avance,
Elros.

Code:

1
2
3
4
5
6
   txtOptionRecherch.Mask = "00/00/0000"
        If txtOptionRecherch.MaskCompleted Then
 
        ...
 
        End If

04/05/2009, 08h19
Elros

Mask et MaskCompleted ne sont pas membres System.Windows.Forms.TextBox
:cry:
04/05/2009, 10h21
Pol63

tu fais une requete différente selon le format entré dans le textbox ou tu completes juste ce qui a été écrit dans le textbox avec l'année actuelle par exemple ?

sinon je te conseille d'utiliser les dbparameters pour faire des requetes paramétrées
ca évite les conversion de date et les problèmes des ' sur les chaines de caractères
04/05/2009, 12h11
Elros

Je fais une requête différente en fonction de ce qui est saisie.
Si l'utilisateur saisie 14/05/2009 j'afficherai tous les clients de cette date.
Si l'utilisateur saisie 05/2009 j'afficherai tous les clients de ce mois à cette année.
Et si l'utilisateur saisie 2009 j'afficherai tous les clients de cette année.
Voila mon problème exacte, c'est pour ca que je voulais comparer ce qui est saisie aux masques.
04/05/2009, 12h55
Hinault Romaric

ton problème n'est pas lié au format tu peu verifier le nombre de caractères saisie avec la fonction Len la sa te permet de savoir quel requete exécuté

Citation:

Envoyé par Elros

Mask et MaskCompleted ne sont pas membres System.Windows.Forms.TextBox
:cry:

Ah oui, je pensais que tu utilisais une MaskedTextbox.

Si tu connais par avance l'ensemble des possibilités saisies par l'utilisateur et qu'il n'y en ait pas de trop, tu peux toujours faire du bricolage en imbriquant les conditions:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Dim MaskedTextBox1 As New MaskedTextBox  'on instancie une MaskedTextbox
        MaskedTextBox1.Text = txtOptionRecherch.Text ' text à comparer
 
        MaskedTextBox1.Mask = "00/00/0000" 'on définit un masque
        If MaskedTextBox1.MaskCompleted Then
            MsgBox("ok 00/00/0000") 'text correspond au masque
 
        Else : MaskedTextBox1.Mask = "00/00/00" 'sinon on change le mask et ainsi de suite...
            If MaskedTextBox1.MaskCompleted Then
                MsgBox("ok 00/00/00")
            Else : MaskedTextBox1.Mask = "00/00"
                If MaskedTextBox1.MaskCompleted Then
                    MsgBox("ok 00/00")
                End If
            End If
 
        End If

Il y a sûrement mieux...

04/05/2009, 13h38
roster

Citation:

Envoyé par lilroma

ton problème n'est pas lié au format tu peu verifier le nombre de caractères saisie avec la fonction Len la sa te permet de savoir quel requete exécuté

Beaucoup plus efficace en effet si l'on vérifie que seuls des caractères numériques soient saisis, à l'exception de '/'.
04/05/2009, 13h38
Pol63

splitter sur /
et ensuite selon le nombre d'éléments trouvés faire le traitement adéquat

j'ai résolu mon problème, mais bon ça reste lourd comme code...

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
 
                'permet de couper une date en 1,2 ou 3 parties
                tabDate = Split(txtOptionRecherch.Text, "/")
                ' jj/mm/aaaa
                If tabDate.Length = 3 Then
                    While tabDate(0).Length <> 2 Or tabDate(1).Length <> 2 Or tabDate(2).Length <> 4
                        txtOptionRecherch.Text = InputBox("Veuillez entrer un date au format (jj/mm/aaa) !", "Attention")
                        tabDate = Split(txtOptionRecherch.Text, "/")
                    End While
                    cmdSelect = "SELECT NumCli as Numéro, NomCli as Nom, PrenomCli as Prénom, TelCli as Tel FROM Client WHERE DateCreat=#" & txtOptionRecherch.Text & "#"
                    lblResultatTab.Text = " client(s) trouvé(s) au " & txtOptionRecherch.Text
                End If
                ' mm/aaaa
                If tabDate.Length = 2 Then
                    While tabDate(0).Length <> 2 Or tabDate(1).Length <> 4
                        txtOptionRecherch.Text = InputBox("Veuillez entrer un date au format (mm/aaaa) !", "Attention")
                        tabDate = Split(txtOptionRecherch.Text, "/")
                    End While
                    cmdSelect = "SELECT NumCli as Numéro, NomCli as Nom, PrenomCli as Prénom, TelCli as Tel FROM Client WHERE Month(DateCreat)=" & tabDate(0) & " AND Year(DateCreat)=" & tabDate(1) & ""
                    lblResultatTab.Text = " client(s) trouvé(s) au mois " & tabDate(0) & "/" & tabDate(1)
                End If
                ' aaaa
                If tabDate.Length = 1 Then
                    While tabDate(0).Length <> 4
                        txtOptionRecherch.Text = InputBox("Veuillez entrer un date au format (aaaa) !", "Attention")
                        tabDate = Split(txtOptionRecherch.Text, "/")
                    End While
                    cmdSelect = "SELECT NumCli as Numéro, NomCli as Nom, PrenomCli as Prénom, TelCli as Tel FROM Client WHERE Year(DateCreat)=" & tabDate(0) & ""
                    lblResultatTab.Text = " client(s) trouvé(s) en " & tabDate(0)
                End If

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
tabDate = Split(txtOptionRecherch.Text, "/")
 
cmdSelect = "SELECT NumCli as Numéro, NomCli as Nom, PrenomCli as Prénom, TelCli as Tel FROM Client WHERE DateCreat>=@DateDeb AND DateCreat<=@DateFin"
 
dim pdeb as parameter = cmd.parameters.add("@DateDeb",datetime)
dim pfin as parameter = cmd.parameters.add("@DateFin",datetime)
 
Select Case tabDate.Length
    Case 1 ' année
        pdeb.Value = cdate("01/01/" & txtOptionRecherch.Text & " 00:00:00")
        pfin.Value = cdate("31/12/" & txtOptionRecherch.Text & " 23:59:59")
    Case 2 ' mois/année
        pdeb.Value =  cdate("01/" & txtOptionRecherch.Text & " 00:00:00")
        dim datefin as date = cdate("01/" & txtOptionRecherch.Text & " 23:59:59")
        datefin.addmonths(1)
        datefin.adddays(-1)
        pfin.Value = datefin
    Case 3 ' jour/mois/année
        pdeb.Value = cdate(txtOptionRecherch.Text & " 00:00:00")
        pfin.Value = cdate(txtOptionRecherch.Text & " 23:59:59")
End Select

et ça ça t'irait pas ?

06/05/2009, 01h56
Elros

Ah je n'avais pas pensé à faire ça comme ça.
Merci