Discussion :

[MADA BLACK]

Bonour tout le monde
Svp j'ai vraiment besoin d'aide
J'ai dans ma table ( Factory ) un champs de type date nomme ( EngageDate ) .. l'enregistrement des records est de cette facon ( dd-MM-yyyy )
Comment filtrer les records et les afficher sur ma DataGridView1 lorsque je choisis le mois par ComboBox1 et l'annee par ComboBox2
Voici mon 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
15
16
17
18
19
20
21
22
23
24
25
Imports System.Data.OleDb
Public Class Form1
    Dim Conne As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataFactory.mdb;persist security info=false")
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call Fill_Data_From_Table()
        For Mois = 1 To 12
            ComboBox1.Items.Add(Mois.ToString("00"))
        Next
        For Annee = 2019 To 2030
            ComboBox2.Items.Add(Annee.ToString("00"))
        Next
    End Sub
    Public Sub Fill_Data_From_Table()
        Try
            Dim da As New OleDbDataAdapter
            Dim dt As New DataTable
            dt.Clear()
            da = New OleDbDataAdapter("Select * From Factory", Conne)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Avertissement", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub
End Class

Merci beaucoup d'avance pour l'aide
Cordialement
MADA

[mermich]

Salut,

Idelament, stocker une date dans un champs de type date c'est mieux, la seconde option c'est de stocker dans un format de type yyyy-MM-dd , car ainsi tu peux facilement fait where madate> '2018-12-01'



Sinon pour la requete :

Code :

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

Select * from Factory WHERE [EngageDate] Between #" + dt_start + "# and #" + dt_end + "#

[MADA BLACK]

Merci beaucoup mermich
Tres gentil de votre part
Svp comment integrer cette ligne dans mon code pour filtrer les records j'ai pas pu ecrire le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
   Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        Try
            Dim da As New OleDbDataAdapter
            Dim dt As New DataTable
            dt.Clear()
            da = New OleDbDataAdapter("Select * from Factory WHERE [EngageDate] Between #" + dt_start + "# and #" + dt_end + "#", Conne)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Avertissement", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub

Amicalement
MADA

[Phil Rob]

Salut Mada,

La requête de Mermich devrait convenir, mais il te faut affecter les dt_start et dt_end à partir de tes Combos, sans oublier d'ajouter le jour (cela peut être toujours le 1er).
Pour bien affecter ces variables, il faudrait t'assurer du format des champs dans la DB (est-ce réellement des dates ou est-ce des strings, et dans quelle forme yyyy/mm/dd ou dd/mm/yyyy ou mm/dd/yyyy).

Par exemple, ponstituer la variable dt_start pour le format dd/mm/yyyy pourrait s'écrire comme ceci : dt_start = "01/" & ComboBox1.Text & "/" & ComboBox2.Text.

J'espère que ceci t'aidera ...

[MADA BLACK]

Bonsoir Phil Rob
Bonsoir maitre
Ravi de vs rencontrer dans ce sujet
Merci beaucoup pour l'intention d'aide .. tres gentil de votre part
Effectivement voici les valeurs dans ma table


Cordialement
MADA

[Phil Rob]

Le code ci-dessous devrait convenir mais je perçois 2 problèmes :

1. Tes Combos 1 et 2 permettent de définir une date, mais celle du début ou celle de fin ? et comment définir l'autre ?
2. Je ne suis pas sûr que ce soit bien d'écrire ce code sous ComboBox2_SelectedIndexChanged. Je crois qu'un bouton "Cherche" cliqué quand tu veux serait mieux pour tenir compte des différents paramètres présents sur l'écran, surtout si tu dois ajouter des Combos 3 et 4 ...

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
 
' Les déclarations 
Dim WHEREParte1 As String
Dim WHEREParte2 As String
Dim ChaineSQL As String
Dim dt_start As String
Dim dt_end As String
 
' Les affectations
dt_start = "01/" & ComboBox1.Text & "/" & ComboBox2.Text
dt_end =    ... à constituer de la ême manière que dt_start
 
WHEREParte1 = "FORMAT(" & EngageDate & " , 'dd/MM/yyyy')" & " BETWEEN " & "'" & dt_start & "'"
WHEREParte2 = "'" & dt_end & "'"
ChaineSQL = "SELECT * FROM Factory WHERE " & WHEREParte1 & " AND " & WHEREParte2
 
'Ton code de lecture de la db
        Try
            Dim da As New OleDbDataAdapter
            Dim dt As New DataTable
            dt.Clear()
            da = New OleDbDataAdapter(ChaineSQL, Conne)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Avertissement", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try

[MADA BLACK]

Merci beaucoup pour le code
J'ai seulement une faute au niveau du EngageDate WHEREParte1 = "FORMAT(" & EngageDate & " , 'dd-MM-yyyy')" & " BETWEEN " & "'" & dt_start & "'".

EngageDate is not declared.it may be inaccessible due to its protection level

Amicalement
MADA

[ProgElecT]

Salut

A tenter

Code :

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

WHEREParte1 = "FORMAT(EngageDate,'dd/MM/yyyy') BETWEEN '" & dt_start & "'"

[Phil Rob]

Oui Mada, EngageDate est le nom du champ et il doit placé comme tel.
La correction de ProgElecT te donne la bonne écriture, sans doute l'as-tu déjà constaté ...

Je ne reviendrai plus sur le forum avant tard ce soir.

Bonne journée,

[MADA BLACK]

Bonjour cher ProgElect
Merci beaucoup pour l'aide
Merci mon cher ami depuis Vb6
J'ai essaye avec ce code de cette facon .. pas d'erreur mais malheureusement aussi rien ne s'affiche sur DataGridView1

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
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
 
        Dim WHEREParte1 As String
        Dim WHEREParte2 As String
        Dim ChaineSQL As String
        Dim dt_start As String
        Dim dt_end As String
 
 
        dt_start = "01/" & ComboBox1.Text & "/" & ComboBox2.Text
        dt_end = "01/" & ComboBox1.Text & "/" & ComboBox2.Text
 
        WHEREParte1 = "FORMAT(EngageDate  , 'dd-MM-yyyy')" & " BETWEEN " & "'" & dt_start & "'"
        'WHEREParte1 = "FORMAT(EngageDate,'dd/MM/yyyy') BETWEEN '" & dt_start & "'"
        WHEREParte2 = "'" & dt_end & "'"
        ChaineSQL = "SELECT * FROM Factory WHERE " & WHEREParte1 & " AND " & WHEREParte2
 
 
        Try
            Dim da As New OleDbDataAdapter
            Dim dt As New DataTable
            dt.Clear()
            da = New OleDbDataAdapter(ChaineSQL, Conne)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Avertissement", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
 
    End Sub

Amicalement
MADA

[MADA BLACK]

Bonjour maitre
Bonjour Phil Rob
Je vous souhaite une bonne et heureuse journée
Svp .. Lorsque vous aurez suffisamment de temps .. consulter mon code
Amicalement
MADA

[ProgElecT]

Salut (re )

Code :

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

1
2
        dt_start = "01/" & ComboBox1.Text & "/" & ComboBox2.Text
        dt_end = "01/" & ComboBox1.Text & "/" & ComboBox2.Text

donc dt_start et dt_end sont égaux, tu devrais avoir au moins le enregistrement pour cette journée, si il n'y a pas d'enregistrement pour cette date, tu n'auras aucun retour.

Code :

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

1
2
        dt_start = "01/" & ComboBox1.Text & "/" & ComboBox2.Text
        dt_end = "29/" & ComboBox1.Text & "/" & ComboBox2.Text

Là tu auras les enregistrement pour le mois (du 1er au 29 du mois)

Un petit rappel, pour avoir le dernier jour du mois il ajouter 1 mois à la date dt_start moins 1 jour, mais çà on l'a déjà vue sous VB6

[MADA BLACK]

Merci cher ProgElect
Malheureusement toujours pas de bon resultat .
Amicalement
MADA

[ProgElecT]

Re

Des fois

Code :

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

1
2
3
4
5
6
7
8
        'dt_start = "01/" & ComboBox1.Text & "/" & ComboBox2.Text
        'dt_end = "01/" & ComboBox1.Text & "/" & ComboBox2.Text
        dt_start = "01-" & ComboBox1.Text & "-" & ComboBox2.Text
        dt_end = "28-" & ComboBox1.Text & "-" & ComboBox2.Text
 
        'WHEREParte1 = "FORMAT(EngageDate,'dd/MM/yyyy') BETWEEN '" & dt_start & "'"
        WHEREParte1 = "EngageDate BETWEEN '" & dt_start & "'"
        WHEREParte2 = "'" & dt_end & "'"

[MADA BLACK]

Cher ProgElect
Avec ce 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
15
16
17
18
19
20
21
22
23
24
25
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
 
        Dim WHEREParte1 As String
        Dim WHEREParte2 As String
        Dim ChaineSQL As String
        Dim dt_start As String
        Dim dt_end As String
 
        dt_start = "01-" & ComboBox1.Text & "-" & ComboBox2.Text
        dt_end = "28-" & ComboBox1.Text & "-" & ComboBox2.Text
        WHEREParte1 = "EngageDate BETWEEN '" & dt_start & "'"
        WHEREParte2 = "'" & dt_end & "'"
        ChaineSQL = "Select * From Factory Where " & WHEREParte1 & " And " & WHEREParte2
        Try
            Dim da As New OleDbDataAdapter
            Dim dt As New DataTable
            dt.Clear()
            da = New OleDbDataAdapter(ChaineSQL, Conne)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Avertissement", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
 
    End Sub

J'ai eu cet erreur : Type de donnees incompatible dans l'expression du critere.
Cordialement
MADA

[Phil Rob]

Bonjour,
Cher Mada () ...

J'ai bien vérifié mes codes, la bonne syntaxe est celle-ci :

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
' Les déclarations 
Dim WHEREParte1 As String
Dim WHEREParte2 As String
Dim ChaineSQL As String
Dim dt_start As String
Dim dt_end As String
 
' Les affectations     EN PRENANT EXEMPLE SUR TON CODE (tu cherches du 1er au 28 du même mois)
dt_start = "01/" & ComboBox1.Text & "/" & ComboBox2.Text
dt_end =   "28/" & ComboBox1.Text & "/" & ComboBox2.Text
 
' Les parties du Between, avec la commande Format corrigée
WHEREParte1 = "FORMAT( EngageDate , 'dd/MM/yyyy')" & " BETWEEN " & "'" & dt_start & "'"
WHEREParte2 = "'" & dt_end & "'"
 
' La chaine SQL pour exécution
ChaineSQL = "SELECT * FROM Factory WHERE " & WHEREParte1 & " AND " & WHEREParte2
 
' Ton code de lecture de la db
        Try
            Dim da As New OleDbDataAdapter
            Dim dt As New DataTable
            dt.Clear()
            da = New OleDbDataAdapter(ChaineSQL, Conne)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Avertissement", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try

Veux-tu bien réessayer ce code ?

Si cela ne fonctionne pas, tu peux envoyer une partie de ton programme (qui peut être exécutée) et je testerai ce soir.

Bonne journée,

[Phil Rob]

SUITE ...


Quand tu essayes mon code et que ça ne fonctionne pas, tu peux aussi faire les modifications suivantes (pour le cas où la commande FORMAT serait moins "puissante" que je le coirs) :

Code :

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

1
2
3
4
5
6
7
8
 
' Les affectations     EN PRENANT EXEMPLE SUR TON CODE (tu cherches du 1er au 28 du même mois)
dt_start = "01-" & ComboBox1.Text & "-" & ComboBox2.Text                ' Remplacement des slashes par des tirets
dt_end =   "28-" & ComboBox1.Text & "-" & ComboBox2.Text               ' Remplacement des slashes par des tirets
 
' Les parties du Between, avec la commande Format corrigée
WHEREParte1 = "FORMAT( EngageDate , 'dd-MM-yyyy')" & " BETWEEN " & "'" & dt_start & "'"               ' Remplacement des slashes par des tirets
WHEREParte2 = "'" & dt_end & "'"

A ce soir ...

[MADA BLACK]

Bonsoir maitre
Merci beaucoup pour l'aide
Maintenant avec ces deux codes .. lorsque je choisis le mois par ComboBox1 alors s'affichera sur DataGridView1 d'une facon excellente tous les records dont le mois selectionné
Par exemple je choisis par ComboBox1 le mois (08) alors s'affichera par exemple :
14-08-2010
12-08-2013
06-08-2017
23-08-2019
Mais lorsque je choisis l'annee par ComboBox2 .. rien ne se passe
Normalement je choisis comme exemple le mois par ComboBox1 (08) s'affichera ces records :
14-08-2010
12-08-2013
06-08-2017
23-08-2019
......Et ensuite je choisis l'annee par ComboBox2 par exemple 2017 .. s'affichera sur DataGridView1 le record ( 06-08-2017 )
Merci beaucoup d'avance pour l'aide
Amicalement
MADA

[Phil Rob]

Bonsoir Mada,

Sûrement une petite erreur dans la constitution des variables dt_start et dt_end.

Je t'envoie ci-joint, un projet de test pour ton problème DB_FechasMada.zip. La DB (Access 2013) est dans le dossier du projet.

Avant d'entrer dans ce projet, je te propose de regarder la video https://www.dropbox.com/s/kjgmbmqaeh...sMada.mp4?dl=0, de sorte à savoir comment utiliser le programme.

Excuse-moi si projet contient des objets parfois bizarrement nommés, c'est du au fait que je me suis servi d'une application de test réalisée pour un forum en langue espagnole.

J'espère que ce projet te permettra de mettre au point ta requête ...

Bonne soirée,

[MADA BLACK]

Bonsoir Phil Rob
Tres gentil de votre part maitre
Nous vous trouvons toujours à l'avant-garde dans les moments difficiles
Impeccable solution et super fichier
Parfaitement resolu
Cordialement
MADA