Flexgrid et données venant d'une baseRésolu

Question

Bonjour &#224; tous

je d&#233;bute en visual basic et je cherche &#224; r&#233;cup&#233;rer les donn&#233;es d'une base access dans une msflexgrid.

J'ai donc le code suivant:

'On r&#232;gle la MSFlexGrid1
MSFlexGrid1.ColWidth(0) = 1955
MSFlexGrid1.ColWidth(1) = 1500
MSFlexGrid1.ColWidth(2) = 1500
MSFlexGrid1.Rows = 2
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.TextMatrix(0, 0) = "Nom d'affichage"
MSFlexGrid1.TextMatrix(0, 1) = "Nom"
MSFlexGrid1.TextMatrix(0, 2) = "Pr&#233;nom"


 


'On s&#233;l&#233;ctionne les differents groupes
sql = "select affichage,nom, prenom from contacts"
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)


 


Dim i As Long
While Not rs.EOF


for i = 1 to 10


MSFlexGrid1.TextMatrix(1, 0) = rs.Fields("affichage")
MSFlexGrid1.TextMatrix(1, 1) = rs.Fields("nom")
MSFlexGrid1.TextMatrix(1, 2) = rs.Fields("prenom")


 


rs.MoveNext
next i
Wend

Mais ce code me renvoi l'erreur suivante:

Erreur 381 index hors limite

J'ai essay&#233; via ce forum de r&#233;soudre le pb mais je n'ai pas r&#233;ussi.

Je fais donc appel &#224; vos lumi&#232;res...

merci d'avance

cs_jperre · Accepted Answer

Pour remplir une MSFlexgrid avec les données d'un Recordset, il faut :
- Créer une fonction pour positionner le contenu de chaque champ dans la cellule correspondante. Cette fonction, fournie par Microsoft dans l'aide de MSDN s'écrit de la manière suivante :

Public Function Fgi(r As Long, c As Long, msFG As MSFlexGrid) As Long
  Fgi = c + msFG.Cols * r
End Function

Ensuite pour entrer les données dans les cellules :
Dim r As Long, lNbEnr, bNbFields As Byte, c As Byte

rs.MoveLast
lNbEnr=rs.RecordCount
bNbFields=rs.Fields.Count
rs.MoveFirst
With MSFlexgrid1
     .Rows = lNbEnr + 1
     .Cols = bNbFd
     .FixedRows = 1
     .FixedCols = 0
     'Creation des en têtes de colonnes
     For c=0 To bNbFields-1
         .TextArray(Fgi(0, c, MSFlexgrid1))=rs.Fields(c).Name
     Next c
     'Ecriture des données
     For r=1 To lNbEnr
         For c=0 To bNbFields-1
             If Not IsNull(rs.Fields(c)) Then .TextArray(Fgi(r, c, MSFlexgrid1))=rs.Fields(c)
         Next c
         rs.MoveNext
     Next r
 ...
Ce code fonctionne correctement.
Bon courage!...

bcmfr · Answer

Merci pour ta r&#233;ponse!! ca marche bien!!

bcmfr · Answer

Merci pour ta r&#233;ponse!! ca marche bien!!

Flexgrid et données venant d'une base

3 réponses

Discussions similaires