remplir un Msflexgrid depuis un recordset ADODC

Question

voila j'ai mon adodc
je fait le recordset avec une requete sql
ensuite je veux remplir mon MsFlexgrid...

j'fait comment ????

vini · Answer

Salut,

Voici un exemple : 
(ListeCal est le recordset ADODC)
(Combo1.Text permet de choisir l'année que l'on veut visualiser)

' nb ligne = a
Dim a
a = 0
ListeCal.MoveFirst
Do Until ListeCal.EOF
    If ListeCal("M02ANNEE") = Combo1.Text Then
        a = a + 1
    End If
    ListeCal.MoveNext
Loop

' dimensionnement du MSFlexGrig
MSFlexGrid1.Rows = a

' remplissage du MSFlexgrid (deux colonnes : 0 et 1, b  lignes)
Dim b
b = 0
ListeCal.MoveFirst
Do Until ListeCal.EOF
    If ListeCal("M02ANNEE") = Combo1.Text Then
        MSFlexGrid1.TextMatrix(b, 0) = ListeCal("M02CODPER")
        MSFlexGrid1.TextMatrix(b, 1) = ListeCal("M02NBJOUV")
        b = b + 1
    End If
    ListeCal.MoveNext
Loop

Bye

Remplir un Msflexgrid depuis un recordset ADODC

1 réponse

Discussions similaires