Discussion :

[MADA BLACK]

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

[Phil Rob]

Salut Mada,

Voici lien lien pour une doc complète en SQL : https://sql.sh/fonctions
Tu y trouveras notamment la fonction LEFT (https://sql.sh/fonctions/left). Elle devrait te permettre de rechercher une date sur base des 5 premiers caractères à gauche (par exemple 07/03) :
SELECT LEFT( Date, 5 );
ou bien, sans garantie de syntaxe, quelques chose comme :
SELECT Proverbe, Date, LEFT(Date, 5) AS Test FROM UneTable WHERE (Test = '07/03');

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

[MADA BLACK]

Merci beaucoup cher Phil Rob pour l'explication et pour ces interessants liens
Tres tres gentil de votre part
J'ai essaye de mettre le code au dessous
J'ai eu ce message d'erreur ( Aucune valeur donnée pour un ou plusieurs des paramètres requis. )
Cordialement
MADA

[ProgElecT]

Salut

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 ça par exemple :07/03/2019

Donc toutes tes dates dans la BDs sont de l'année 2019, dans ce cas, peut être reconstruire la date à partir de la date du jour et substituer l'année en cours avec l'année du champs Proverbe_Date donc DateProverbe = Cdate(day(date.now) + "/" + month(date.now) + "/2019").

MADA BLACK, comme tu le sais, je ne suis pas un programmeur VB.net, mais je fus un programmeur VB6

[Phil Rob]

OK Mada, ma syntaxe était approximative ... mais le l'avais annoncé ...

Voici la syntaxe correcte :

Code :

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

SELECT * FROM Table1 WHERE (Left(Proverbe_Date, 5) = '07/03')

J'ai écrit SELECT * ... mais tu peux bien sûr désigner les champs qui t’intéressent.


Bonne journée,

[MADA BLACK]

Bonjour cher ProgElect
Tres ravi de vous rencontrer ici dans ce sujet .. tres gentil de votre part
Merci beaucoup pour l'intention d'aide mais malheureusement j'ai pas pu manipuler votre code dans le mien
Dans tous les cas Merci
Amicalement
MADA

Bonjour Phil Rob
Merci beaucoup maitre pour votre super suivi . tres tres gentil de votre part .. vous etes vraiment respectable .. je vous respecte et je respecte vos impeccables solutions
Maintenant .. je n'ai aucun message d'erreur dans le code mais le Proverbe _Text ne s'affichera pas dans TextBox1
Merci beaucoup d'avance pour l'aide
Amicalement
MADA

[Pol63]

appliquer une fonction de transformation à une colonne est rarement une bonne idée, au lieu de juste lire les valeurs (voir d'utiliser un index) vous aller perdre du temps à transformer toutes les valeurs (voire rendre impossible l'utilisation d'index)

donc la solution de ProgElecT est déjà mieux, il n'y a que la valeur de filtre en entrée qui est modifiée

après pourquoi stocker une date entière dans la base si c'est juste un morceau de date que vous voulez
si tu stockes (var)char(4) du type '3112' alors tu peux faire "... where day = '" + datetime.now.tostring("ddMM") + "'"

[MADA BLACK]

Merci Gentelman
Merci Phil Rob
C'est parfaitement resolu
Merci pour vos impeccable solution
Cordialement
MADA