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 Visual Basic :
 
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,