Discussion :

[mannana]

Bonjour,
j'essaie de calculer, avec vb, la moyenne des valeurs de chaque ligne dans une table sql. le problème c'est que j'obtiens pour toutes les lignes la dernière valeur obtenu ( la valeur de la dernière ligne). le code est le suivant:

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
Private Sub TCP_DataArrival(ByVal bytesTotal As Long)
 
Dim somme(20) As Double
Dim moyenne(20) As Double
k = 1
 
Set rs = data.prevision.Execute("SELECT v.qte_reelle as xr,p.valeur_cl1  as xp1,p.valeur_cl2 as xp2,p.valeur_cl3 as xp3,p.valeur_cl4 as xp4 FROM prevision p,vente v where p.session = " & session & " and v.annee_vente+1=p.annee and v.semaine_vente=p.semaine and v.ref_gamme='" & Main.p_refgamme & "' and v.id_article= " & Main.p_idarticle)
 
While Not rs.EOF
With rs
  somme(k) = rs!xp1 + rs!xp2 + rs!xp3 + rs!xp4
  moyenne(k) = somme(k) / 4
 
End With
k = k + 1
rs.MoveNext
Wend
 
For i = 1 To (k - 1)
data.prevision.Execute "update prevision set fusion=" & Str(moyenne(i)) & " where session=" & session
Next

est ce que quelqu'un peut m'aider svp,

[justgreat]

as-tu vérifier qu'est ce qu'il contient ton rs et les valeurs retourner dans

l'instruction rs!xp1 + rs!xp2 + rs!xp3 + rs!xp4 ?

[mannana]

oui j'ai bien vérifier avec des msgbox

[justgreat]

Difficile à t'aider sans voir exactement ce qu'elle retourne ta requete et si les valeurs retourner changes bien à chaque rs ou pas !

Essaye de faire

somme(k) = CDbl(rs!xp2) + CDbl(rs!xp2) + CDbl(rs!xp3) + CDbl(rs!xp4)


Peux-tu aussi enlever le Wtih Rs et le End With ?

[mannana]

j'ai essayé votre proposition mais toujours avec le même résultat

[justgreat]

Vérifie bien la requête sql si vraiment elle retourne le bon résultat je ne suis pas convaincu qu'elle le fait !!!
utilise l'espion pour voir ce que contient ton rs et tes variables