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
-------------------------------
Réponse au message :
-------------------------------
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....
-------------------------------
Réponse au message :
-------------------------------
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