[VB.NET] Comparaison date

Version imprimable

Bonjour,

Déjà un moment je travaille sur ce problème... j'ai peut être une erreur sur ma syntaxe..

J'ai un programme d'historique sur des fêtes, je veux sortir un rapport des fêtes des 3 derniers mois
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim annee As String Dim mois As String Dim jour As String annee = Now.Year mois = Now.Month jour = Now.Day Dim req As String = "" Dim Cmois As String = mois - 3 Dim start As String = jour + "-" + Cmois + "-1900" Dim finish As String = jour + "-" + mois + "-" + annee req = "SELECT Prenom as Prénom, Nom, Fete as Fête, Compagnie, Ville, Montant, Type FROM Personne WHERE Fete >=" & start & " AND Fete <=" & finish
J'ai aucune erreur mais il ne me sors rien.. j'ai une base de données sous access 2003, mon type est "Date/Heure" au format "Date, complet"

j'ai également essayé de changer mon format de ma variable du genre "annee,mois,jour" ou bien de mettre ca en date au lieu d'en string mais sans succes..

quel es mon probleme?
suis-je mieux d'utiliser le between pour des dates?

merci!

06/08/2006, 00h38
LaChips

Bonsoir,
Il y a une erreur au niveau de la syntaxe :
http://access.developpez.com/faq/?pa...riteres#txtQry

Code:

MonSQL = "Select * From MATABLE Where MONCHAMP = #" & zdt & "#"
06/08/2006, 19h22
Pleymo

ohhh merci pour la spécification..!

mais je crois tout de même que ma requete est mauvaise car il m'affiche toutes mes dates..

par exemple si ma requete devient

Code:

...fete >=#1900-06-07# AND fete <=#2006-06-08#

je voudrais avoir toutes mes dates de fetes entre le 6e jour du mois de juillet et le 6e jour du mois de aout...

pourtant avec le debugger.. ma requete semble bonne.. :(

sauf qui me les affiche toutes.. :? comment ca?

merci
06/08/2006, 21h35
LaChips

Essaye directement sur Access la requête et essaye plusieurs syntaxe jusqu'a que ca fonctionne
essaye de remplacer les - par des /

j'ai essayé plusieurs syntaxe sans résultats, j'ai donc décider de me tourner vers une requête qui recupère chaque champ puis apres je le traite un par un...

Code:

1
2
3
4
5
6
7
8
9
10
11
While reader.Read()
                    id = reader.GetInt32(0)
                    datefete = CType(reader.GetDateTime(3), String)
                    Vmois = datefete.Substring(5, 2)
                    If Vmois = Cmois Then
                        req = "SELECT Prenom as Prénom, Nom, Fete as Fête, Compagnie, Ville, Montant, Type FROM Personne WHERE Id=" & id
                        Dim Myadapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(req, Myconnect)
                        Myadapter.Fill(DS, "fetes")
                        dghistory.DataSource = DS.Tables("fetes").DefaultView
                    End If
                End While

ca fonctionne a merveille...

merci beaucoup pour ton aide et ton temps
au plaisir