vb6- MSFlexGrid - base acess

Bonjour

je désire remplir une MSFlexGrid à partir d'une base acess
Le petit code joint fonctionne mais il ne m'affiche qu'une réponse alors qu'il y a plusieur réponse....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Set db = DBEngine.Workspaces(0).OpenDatabase("C:\DOSSIER\BASE.mdb") sql = "SELECT * FROM TOTO where NUMERO like '" & Text1.Text & "*'" Set ds = db.CreateDynaset(sql) If ds.EOF Then Titre = "RECHERCHE JOURNEE" Message = "Aucune fiche avec ce N°, réessayer ?" Reponse = MsgBox(Message, 48 + 4, Titre) If Reponse = 7 Then Unload ME   End If ligne = 1 Do Until ds.EOF MSFlexGrid1.Rows = 0 MSFlexGrid1.Cols = 3 MSFlexGrid1.ColWidth(0) = 1500 MSFlexGrid1.ColWidth(1) = 1800 MSFlexGrid1.ColWidth(2) = 500 MSFlexGrid1.AddItem ds("CHAMPS1") & Chr(9) & ds("CHAMPS2") & Chr(9) & ds("CHAMPS3") ds.MoveNext MSFlexGrid1.Rows = ligne + 1 Loop End If

---

Comment alterner la couleur des lignes (1 bleu puis 1 jaune et ainsi de suite)

Comment bloquer le clique dans la seconde colonne ?

Merci d'avance

dumedo

En général je fais comme suit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

do while not rs.eof 'Pour parcourir tous tes enregistrements MSFlexGrid1.Rows = MSFlexGrid1.Rows +1 'Pour ajouter une ligne à l grille MSFlexGrid1.Row = MSFlexGrid1.Rows -1 'Pour te placer sur la dernière ligne MSFlexGrid1.col = 0 'première colonne MSFlexGrid1.text = rs.fields("CHAMPS1") 'ecrit dans la cellule MSFlexGrid1.col = 1 MSFlexGrid1.text = rs.fields("CHAMPS2") MSFlexGrid1.col = 2 MSFlexGrid1.text = rs.fields("CHAMPS3") rs.mouvenext 'Pour passer au record suivant loop

---

bonjour

j'ai testé le code et j'ai le même problème, il ne m'affiche que la dernière réponse de ma requete sql.
Les données affichées sont celle du dernier enregistrement...

Merci d'avance

Dans ton code, tu remet ta grille à 0 ligne a chaque enregistrement.
Dans le mien non.
Par contre est tu sur que ta requette te renvoie bien plusieurs enregistrements ?

Après vérification, j'arrive à ce que je désire.
Par contre je ne peux pas cliquer par exemple dans la seconde ligne. Je ne peux cliquer que sur la cellulle A1 en haut à gauche.
Je désire récuper la valeur de n'importe quelle cellule afin de faire une recherche
Quelle option a activer ou désactiver ?

Merci de ton aide

dumedo

FlexGrid1.SelectionMode = flexSelectionFree

puis tu dois récupérer dans col et row la cellule sélectionnée.

bonjour

super cela fonctionne.
Par contre si vous connaissez un petit code pour alterner de couleur une ligne sur deux, je suis preneur....

merci d'avance

Bonjour,

le forum est là pour répondre aux questions, certes, mais ça n'empêche pas un minimum de recherche personnelle au départ.
En utilisant l'aide de VB tu verrais qu'il y a une propriété CellBackColor qui devrait te mettre la puce à l'oreille.
Il y a également une fonction "rechercher" sur ce forum et en tapant "couleur flexgrid" on tombe entre autre sur ce sujet : http://www.developpez.net/forums/d43...nd-msflexgrid/

Si ton problème est résolu, merci ensuite de cliquer sur le bouton "Résolu" en bas de cette page.