[VB6] Flexgrid et calendrier

**yoann7** · 02/10/2008, 08h52

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 :

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

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

**OhMonBato** · 02/10/2008, 09h19

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.

**yoann7** · 02/10/2008, 11h08

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 ?

**OhMonBato** · 02/10/2008, 11h27

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

**yoann7** · 02/10/2008, 12h19

Code :

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

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

**Delbeke** · 02/10/2008, 12h44

Essaye cette variante

Code :

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

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

**yoann7** · 02/10/2008, 12h51

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