[VB6] Flexgrid et calendrier

Bonjour à tous !

J'ai un petit soucis sur une appli VB6, j'ai un form ou je sélectionne un cours, un adherent et une date dans un composant calendrier et avec ces trois informations je complète une table dans ma base. Ensuite le listing s'affiche dans le flexgrid. Je peux aussi voir les adhérent inscris en sélectionnant une date et le nom d'un cours (combolist). Tout ceci marchait nickel jusqu'à hier, quand je sélectionne certaine date rien ne s'affiche, genre du 1/10 au 9/10 je vois rien, le 10/10 c'est bon, etc..
Quand je me met en pas a pas mon code sort sur

Code:

---

1 2 3 4

If rs_FLEXINS.EOF Or rs_FLEXINS.BOF Then 'Message si aucun élément ne se ' MsgBox "aucune inscription pour ce cours" ' trouve dans la base de données Exit Sub Else

---

Alors que dans ma base il y a bien des données pour ma sélection. Y a t'il un problème connu de date avec le composant calendrier ou avec le flexgrid.... ?

Ce serait pas un problème de format dd/mm/yyy au lieu de mm/dd/yyy ?
Essaye de mettre tes dates au format mm/dd/yyyy pour voir.

En fait quand je suis en pas à pas pour vérifier les valeurs que prennent les variables, le format est bon, par exemple pour le 01/10/2008, il est bien comme ça en sortant du calendrier idem dans la base... Mais pourquoi certaines dates marchent et d'autres non ?

Peux t'on voir ta requete et malgré tout as tu essayé au format mm/dd/yyyy ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Public Sub rempliFlex(nmCour As String, DateF As Date)   Dim i As Integer Dim j As Integer Dim strsql As String frmIns.flexCours.Clear   Set rs_FLEXINS = New ADODB.Recordset rs_FLEXINS.CursorType = adOpenDynamic rs_FLEXINS.CursorLocation = adUseClient strsql = "SELECT ADHERENT.nCarte as [Numero Adhérent], nomAdh as [Nom Adhérent], prenomAdh as [Prénom Adhérent] " strsql = strsql & "From INSCRIPTION, ADHERENT, COURS_COLLECTIF " strsql = strsql & "Where nomCour = '" & nmCour & "' And Date = #" & DateF & "# " strsql = strsql & "AND ADHERENT.nCarte = INSCRIPTION.nCarte " strsql = strsql & "AND COURS_COLLECTIF.nCour = INSCRIPTION.nCour;" rs_FLEXINS.Open strsql, cn, adOpenDynamic, adLockOptimistic

---

Voici la requête

Essaye cette variante

Code:

---

strsql = strsql & "Where nomCour = '" & nmCour & "' And Date = #" & Format(DateF,"mm\dd\yyyy") & "# "

---

J'ai testé (en remettant les slash du bon côté ;) ) et ça marche !
Merci beaucoup.
Mais je ne comprend tout de même pourquoi ça ne marchait que sur certain jour, si quelqu'un a une explication je suis preneur. J'espère que le problème est bien réglé pas que d'un coup ça recommence...

Citation:

---

Envoyé par yoann7

J'espère que le problème est bien réglé pas que d'un coup ça recommence...

---

tu pourras toujours encor essayer sa

Citation:

---

Envoyé par Référence SQL

Vous pouvez également utiliser la fonction DateValue qui reconnaît les paramètres régionaux de Microsoft Windows.
WHERE [Date] = DateValue(DateF)

---

Je viens de tester pour voir, datevalue ne fonctionne pas.