Discussion :

[nawaraa]

je possède un textbox1 où l'utilisateur peut entrer une date
une table acces nomé "test " où "date_du_jour" est un champ de type date
je souhaite qu'en cliquant sur un bouton ,afficher les données de la table test dans un datagridview où date_du_jour= la date que l'utilisateur a entré

j'ai mis ce bout de code mais il m'affiche rien dans la datagridview,je suis bloqué SVP j'ai besoin de votre aide !

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
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim jour As Date
        jour = Date.Parse(TextBox1.Text).ToString("MM/dd/yyyy")
        If Not cnn.State = ConnectionState.Open Then
            'open connection
            cnn.Open()
        End If
        Dim cmd As New OleDb.OleDbCommand("SELECT * FROM test where date_du_jour=" & jour)
 
        cmd.Connection = cnn
 
        Dim da As New OleDb.OleDbDataAdapter
        da.SelectCommand = cmd
        Dim ds As New DataSet
        da.Fill(ds)
        dgvData.DataSource = ds
 
        cmd.ExecuteNonQuery()
          cnn.Close()
 
        End Sub

[IL-MAFIOSO]

Salut,

Il existe des contrôles pour saisir une date comme le datetimepicker....
Avec un simple textbox :

Code :

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

jour = Convert.ToDateTime(Textbox1.Text)

Ensuite je ne sais pas comment tu as construis ton textbox. On peut vérifier avant de convertir si ce qui est saisi dans le textbox est un format de date (j'avais eu des soucis pour des saisies tel que 37/14/2013 .... ), Soit ainsi

Code :

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

If IsDate(Textbox1.Text) Then jour = Convert.ToDateTime(Textbox1.Text)

Soit directement dans le TextChanged de ta Textbox .... et d'afficher un message lorsque le format de la date est incoorect

Concernant la commande Select, il me semble qu'il faille l'écrire ainsi :

Code :

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

("SELECT * FROM test where date_du_jour= '" & jour & "'")

[nawaraa]

merci pour me répondre
mais j'ai suivi ce que vous me dite mais il a mis une erreur ici à la fin de l'instruction

Code :

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

("SELECT * FROM test where date_du_jour= '" & jour & "'")

mais en gardant ceci

Code :

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

("SELECT * FROM test where date_du_jour=" & jour)

et avec les autres modifications ça change rien, il ne m'affiche rien dans la daragridview

[IL-MAFIOSO]

Moi je définis chez moi ma OleDbCommand comme ceci (en mettant tes variables) et avant d'ouvrir la connexion :

Dim cmd As New OleDb.OleDbCommand("SELECT * FROM test where date_du_jour= '" & jour & "'",cnn)

Pour mon Datagridview, j'ai construis mes colonnes puis lié chaque colonne du datagridview à chaque colonne de ma base access. Dans ta base test, tu as beaucoup de données à importer pour une date précise ?

Edit : Tu as aussi ici quelques infos utiles :
http://plasserre.developpez.com/cour...ees2#LXVII-E-3

[nawaraa]

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
Dim jour As Date
        If IsDate(TextBox1.Text) Then jour = Convert.ToDateTime(TextBox1.Text)
 
        If Not cnn.State = ConnectionState.Open Then
            'open connection
            cnn.Open()
        End If
        Dim cmd As New OleDb.OleDbCommand("SELECT * FROM test where date_du_jour= '" & jour & "'", cnn)
 
        cmd.Connection = cnn
 
        Dim da As New OleDb.OleDbDataAdapter
        da.SelectCommand = cmd
        Dim ds As New DataSet
        da.Fill(ds)
        dgvData.DataSource = ds
 
        cmd.ExecuteNonQuery()
cnn.Close()
 
        End Sub

toujours il m'affiche rien et ne génère pas des erreurs aussi
j'ai pas fait la liaison des données ,j'ai presque 40 champs dans ma table test

[IL-MAFIOSO]

Re,

Regarde le lien que je t'ai mis dans mon post précédent. C'est à peu près le même principe que toi. Tout est bien expliqué (création connexion, command, etc ...)

[nawaraa]

je pense que le problème est dans le type date ,en effet j'ai changé par un autre champ de la table test qui est de type string et le programme tourne sans erreur et affiche les données dans la datagridview sans problème

[nawaraa]

ok je vais voir

[IL-MAFIOSO]

et comme ceci :

Code :

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

Dim cmd As New OleDb.OleDbCommand("SELECT * FROM test where date_du_jour= #" & Format(jour, "M/d/yyyy") & "#", cnn)

[nawaraa]

ça n'affiche rien aussi

[IL-MAFIOSO]

Vérifie dans ta base access que tu as choisis le bon format pour la date . Short date il me semble.

[nawaraa]

le format choisi c'est Date/Heure comment le mettre a short date

[IL-MAFIOSO]

Salut,

Lorsque tu es en mode création , pour ta colonne en date/Time ,
Regarde en bas, tu as une ligne format. Fais un clic à droite du champs et tu pourras choisir dans une liste déroulante . Tu peux aussi personnaliser le format. Regarde dans l'aide d'access.

[nawaraa]

salut

Même chose il n'affiche rien

[IL-MAFIOSO]

re,

comment fais-tu la saisie de la date dans ton textbox ?
regarde qu'elle valeur prend la variable jour. §Tu peux faire comme celà :
Sous la ligne :

Code :

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

If IsDate(TextBox1.Text) Then jour = Convert.ToDateTime(TextBox1.Text)

tu mets :

Code :

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

msgbox(textbox1.text & " " & jour)

Dis moi ce qui apparait dans la fenêtre