Consultation msflexgird

brahimhakkou Messages postés 44 Date d'inscription samedi 21 janvier 2006 Statut Membre Dernière intervention 7 mai 2007 - 20 avril 2007 à 00:02
adamo901 Messages postés 139 Date d'inscription mardi 18 janvier 2005 Statut Membre Dernière intervention 8 décembre 2008 - 20 avril 2007 à 11:49
bonsoir
j'ai une application concernanat la gestion des permanants au sein d'une entreprise
j'ai un blm lors je vx appeler les dates de la BD et les afficher sur une colonne d'un MSFlexGrid  mais ca marche pas, j'ai essayé de remplir la colonne avec des nombres ca marche, mais pour les dates je sais pas pourquoi???
voila le code 

With MSFlexGrid1




.Row = 0
.Col = 0
.Text = "Jour"
.Col = 1
.Text = "Séance1"
.Col = 2
.Text = "Séance2"
.Col = 3
.Text = "Scéance3"

End With


 


For x = 1 To n       
With MSFlexGrid1


  Set ADOConnection = New ADODB.Connection
    Set adorecordset = New ADODB.Recordset
    connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;" & " Data Source=D:\Doc MIAGE     Stage\Permanances.mdb"


    ADOConnection.Open connectstring
    adorecordset.Open "select Date as mont1 from Perm , ADOConnection"




    Do Until adorecordset.EOF
        MSFlexGrid1.AddItem adorecordset!mont1
        adorecordset.MoveNext
    Loop


    adorecordset.Close
    ADOConnection.Close
    Set adorecordset = Nothing
    Set ADOConnection = Nothing


.Col = 0
.Row = mont1
'.RowHeight(x) = 260
.Text = mont1
End With
Next x




 Merci d'vance

5 réponses

cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
20 avril 2007 à 00:23
Salut,

Je ne suis pas sûr à 100%, mais dans une requêtes ou un champ représente une date, il faut que celle-ci soit encadrée de # .......#, il me semble...

A+
Exploreur

 
0
brahimhakkou Messages postés 44 Date d'inscription samedi 21 janvier 2006 Statut Membre Dernière intervention 7 mai 2007
20 avril 2007 à 00:28
je crois pas car si c'etait l'erreur il va me signaler une erreur dans la requete
le blme c'est que il ne m'affiche rien sur la colonne lorsque j'execute  !!!!

@+
MErci d'avance
0
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 21
20 avril 2007 à 01:59
1- Que vaut n dans For X = 1 to n

2- Pourquoi créer une nouvelle connection à chaque passage de la boucle ?

3- .Row = mont1
Que vaut mont1 à chaque passage ?
NB: tu t'en sers aussi das la requête SQL comme étant un champ de la table

4- La date n'a rien à voir avec ton problème...

MPi
0
brahimhakkou Messages postés 44 Date d'inscription samedi 21 janvier 2006 Statut Membre Dernière intervention 7 mai 2007
20 avril 2007 à 02:04
comment je vais faire t'a pas un idée pour remplir la colonne ??

@+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
adamo901 Messages postés 139 Date d'inscription mardi 18 janvier 2005 Statut Membre Dernière intervention 8 décembre 2008
20 avril 2007 à 11:49
je travaile avec MSHFlexGrid
elle est beaucoup plus avancée que msflexgrid
et pour charger la mshflexgrid à partir d'un recordSet, j'utilise :

set mshflexgrid1.RecordSource = MonRecordSet

et le tour est fait.

Bonne chance!
0