Salut tout le monde
Gentelman .. s'il vs plait j'ai vraiment besoin d'aide pour resoudre ce cauchemar
Avec trois champs dans ma Table1 ..(Id-Proverbe_Date-Proverbe_Text)
J'ai ecris manuellement des proverbes dans ma Table1 et j'ai voulu affichre chaque nouveau jour un de ces proverbes dans TextBox1
Voici mon code qui fonctionne tres bien et affiche correctement le proverbe du jour :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Dim sConnection As String = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=|datadirectory|\Database1.mdb"
        Using Conne As New OleDbConnection(sConnection)
            Conne.Open()
            Using Comme As New OleDbCommand("SELECT * FROM Table1 WHERE Proverbe_Date = Date()", Conne)
                Using DR = Comme.ExecuteReader()
                    If DR.HasRows Then
                        Do While DR.Read
                            TextBox1.Text = DR.Item("Proverbe_Text").ToString()
                        Loop
                    End If
                End Using
            End Using
            Conne.Close()
        End Using
Ma malheur c'est .. avec ce code je serai oblige d'ecrire des proverbes de 10 ou 20 ou 30 prochaines annees car le champs de ( Proverbe_Date ) est bien comme ca par exemple :07/03/2019
Tandsique moi je veux ecrire simplement 365 proverbes et chaque nouvelle annee se repetent ces proverbes deja ecrits .. donc il est necessaire de mettre query pour recuperer le jour et le mois
J'ai essaye comme ca mais j'ai pas reussi ..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Using Comme As New OleDbCommand("SELECT * FROM Table1 where month(Proverbe_Date)  AND myday(Proverbe_Date) ", conne)
Comment faire svp pour afficher le proverbe dans TextBox1 depent de jour en cours et mois en cours .. et on ne tient pas compte d'annee actuelle
Amicalement
MADA