voila un exemple a adapter a ton cas, je sauvegarde les addition dans le tableau "tab"
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
dim tab(20) as integer 'tableu ou sera sauvegarde la somme des ages
dim inter as integer 'variable intermédiaire
dim i as integer 'compteur
i=0
'On lie la premiére ligne
Reader.read()
'on initialise les variables avec la première ligne
tab(i) = Reader.Getint(index)
inter = Reader.Getint(index)
'On boucle sur les autres lignes
while Reader.read()
' On vérifier si la précédente valeur est égal a celle dans le Reader
if(inter=Reader.Getint(index))
'On fait l'addition
tab(i) = tab(i) + Reader.Getint(index)
else
'on initiale inter
inter = Reader.Getint(index)
'on incremente compteur
i = i + 1
'on initialise la valeur de tab
tab(i) = Reader.Getint(index)
end if
wend |
Edit:
- je ne reviens plus sur la connexion et l'exécution de la requête je suppose que c'est fait.
- j'ai pas utiliser d'éditeur pour ce code donc il pourrais avoir des erreurs de syntaxe
- Dans le cas ou les éléments distinct sont plus de 20 y'aura une exception puisque j'ai déclarer un tableau de 20 éléments sinon voila au moins de quoi te guider
@++
Partager