Flexgrid qui déconne ou moi alors ??

Question

je vous prévient je suis un debutant et je n'est pas msdn se qui me pose un gros pb, bref de connerie, c parti voila mon code :


Function table()
Dim i As Single

Do While Not (rsADO.EOF)
uti.Rows = i
uti.Cols = 1
uti.Text = rsADO("utilisateur")
rsADO.MoveNext
i = i + 1
Loop
End Function


et voila ce qu'il me met comme message d'erreur :

erreur d'execution '381' :

indice hors limite.

si quelqu'un trouve ca serait cool !!

merci

-----------------------------------------------------------
Quand l'empire est attaqué, l'empire contre attaque

dirichle · Answer

essaye de faire:
set uti.datasource = rsADO

ce que tu fais risque d etre un peu penalisant pour les perf

msdn est disponible en ligne....

moipc1 · Answer

Ton code est
Function table()

Dim i As Single
Do While Not (rsADO.EOF)
uti.Rows = i
uti.Cols = 1
uti.Text = rsADO("utilisateur")
rsADO.MoveNext
i = i + 1
Loop
End Function

Je pense que tu veux remplir un Flexgrid 
voici ce que je te propose:

Function table()
'initialise le table à une colonne et une ligne
'la première ligne contient généralement le non de ta colonne
uti.Rows = 1   'une ligne 
uti.Cols = 1     'une colonne
'rempli la grille suivant tes données
Do While Not (rsADO.EOF)
'Ajout d'une ligne
uti.AddItem rsADO("utilisateur")
rsADO.MoveNext
loop
end Function

cs_max44 · Answer

super ca fonctionne ton truc mais voila le bordel c'est que je voulait remplir plusieurs collone de mon flexgrid la j'avais juste fais un essaien fait j'ai un champ nom, mdp, acces, date naiss

voila mais je ne comprend toujours pas pourquoi ca ne fonctionnait pas ???

-----------------------------------------------------------
Quand l'empire est attaqué, l'empire contre attaque

Flexgrid qui déconne ou moi alors ??

3 réponses

Discussions similaires