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

[DarkVader]

Bonjour,
Déjà la clause Where est incorrectement écrite
la syntaxe correcte => "... Where my field='" & myVal & "' ..."
ensuite, je ne sais pas comment sont construites tes données dans la base
mais AVG devrait te permettre d'obtenir la moyenne demandée directement depuis la requête sql.

[mannana]

je veut avoir la moyenne de 4 colonnes différentes et non pas de lignes.
Pour chaque ligne de l'ensemble des enregistrements choisit je veux calculer la moyenne des 4colonnes et mettre le résultat dans la 5eme colonne (par exemple 20 lignes )

[justgreat]

je veut avoir la moyenne de 4 colonnes différentes et non pas de lignes.
Pour chaque ligne de l'ensemble des enregistrements choisit je veux calculer la moyenne des 4colonnes et mettre le résultat dans la 5eme colonne (par exemple 20 lignes )

Oui, mais ce que je souhaite savoir est : As tu vérifié le contenu de tes requêtes SQL ?

essayes de lancer ta requete directe dans SQL server et vérifie ça donne quoi ou utilise l'espion sur VB pour voir le contenu !

[mannana]

avec MySql queru browser la nouvelle colonne mise à jour "fusion" contient les même valeurs pour toutes les lignes. ( la moyenne calculée pour la dernière ligne )
les msgbox que j'ai affiché pour vérifier le calcul de la somme et la moyenne sont correcte.
mon problème se situe au niveau de la requête de la mise à jour mais je n'arrive pas à l'identifier

[justgreat]

C'est ce que je supposais dès le début, ta requete n'est pas bonne !!
Je crois que tu as pour toutes les lignes la meme session, du coup ton SQL met à jour toutes les lignes ce qui est normal et ton erreur n'est pas technique mais fonctionnelle ou logique ....
Ainsi je te conseille le suivant :

-Tu changes ta condition where : si tu es obligée à avoir la mise à jour pour une session spécifique, alors crée toi une colonne additionnelle dans ta table (FLAG), qui contient des chiffres du genre : 1 pour la premiere ligne, 2 pour la deuxieme ligne etc....

et ta boucle devient qqch du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To (k - 1)
data.prevision.Execute "update prevision set fusion=" & Str(moyenne(i)) & " where session=" & session & " AND FLAG = " & k 
Next i

[mannana]

ok. merci beaucoup. ca marche très bien avec votre proposition. merci beaucoup

[justgreat]

De rien