Discussion :

[LeXo]

bonjour

j'ia beau cherché dans les tuto je ne vois pas comment


remplir un flexgrid grace a une table de ma base de donnée

Code :

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

Set rs = base.OpenRecordset("select * from materiel where idmateriel=5;")

et apres le rs ou je le mets ?

[Delbeke]

Il faut le lire dans son integralité

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Dim iPnt as Integer
  If Rs.RecordCount=0 then
    MsgBox "Pas d'enregistrrment trouvé"
    Exit Sub
  End If
  Rs.MoveFist
  Do While Not Rs.eof
    'ici ton code pour remplir la iPnt ligne de ton flexgrid
    Rs.MoveNext 'lire le recod suivant
    iPnt=iPnt+1
  Loop
  'fin

[LeXo]

bah c justement comment remplir le flexgrid qui me pose probleme

ça c gentil mais je le savais


ça doit etre

Code :

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

1
2
3
4
5
6
7
8
9
while not rs.eof
flexgrid.cols(1)= rs.fiedls(0)
flexgrid.cols(2)= rs.fiedls(1)
flexgrid.cols(3)= rs.fiedls(2)
..'avec une boucle c plus joli mais c pour le principe ici
flexgrid.addrows 'ajouter ligne
'passer a la ligne suivante
rs.movenext
wend

[ThierryAIM]

J'ai une question avant d'aller plus loin

A quoi va te servir ta flexgrid ?
Juste pour de l'affichage ou tu veux qu'elle soit liée à la bdd pour modification ?

[sovo]

voila un code qui je crois poura t'aider.

Bon tout d'abord je me rends compte que tu n'as que 3 champs dans ta base de données, ça va être donc moins compliqué (On va partir du code de Delbeke).

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
18
19
20
21
22
 
 Dim iPnt as Integer
  If Rs.RecordCount=0 then
    MsgBox "Pas d'enregistrrment trouvé"
    Exit Sub
  End If
  Rs.MoveFist
  iPnt = 0
  'MSF est ton flexgrid
  MSF.Rows = 0    'On met le nombre de ligne a 0
  MSF.Cols = 3      'On met le nombre de colone a 3
  Do While Not Rs.eof
    MSF.AddItems ""
    'Si tu veux faire une function pour tous tes flexgrid, pour des tables 
    'dont le nombre de champs varie alors tu doit faire une boucle a la
    'place de ce code, et aussi changer dynamiquement MSF.Cols
    MSF.Textmatrix(iPnt,0) = rs.Fields(0)
    MSF.Textmatrix(iPnt,1) = rs.Fields(1)
    MSF.Textmatrix(iPnt,2) = rs.Fields(2)
    Rs.MoveNext
    iPnt=iPnt+1
  Loop

[LeXo]

merci je vais faire ça staprem


Pour répondre clairement à ta question :

pour l'instant c'est juste pour de l'affichage et mais apres je comptes bien ajouter cette option de pouvoir directement changer dans la base de donnée.


mais j'orais voulu savoir si quoi tu pensais que tu me poses cette question

si je voulais juste faire de l'affichage, je devrais utiliser autre chose ??