Discussion :

[Pleymo]

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 :

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

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!

[LaChips]

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

Code :

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

MonSQL = "Select * From MATABLE Where MONCHAMP = #" & zdt & "#"

[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 :

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

...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

[LaChips]

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

[Pleymo]

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 :

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

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