Calcul dans db Résolu

Question

Salut ! J'aurai aimer savoir comment faire pour calculer des nombres qui se trouvre dans une base acces (DAO).
J'ai par exemple les champ suivant:
Nom          Unité

Clad         20
Toto         15
Fox          25

Comment faire pour avoir la somme total des unités ? soit le nb 60 sachant qu'il y a beaucoup d'enregistrement ?

J'ai trouvé un systéme mais en faite il compte pas il m'affiche les nombres les uns à la suite des autres :

sql = "select * from List"
  Set rs = db.OpenRecordset(sql, dbOpenDynaset)
    rs.MoveLast
      rs.MoveFirst
          While Not rs.EOF
       Label1 = Label1 + rs.Fields("Unité")
      rs.MoveNext
Wend

Cela ne marche pas ! 
Merci de bien voi=uloir m'éclairé ;)

Clad

cs_69chris · Accepted Answer

Ton code deviens &#231;a :



  sql = "select SUM(Unit&#233;) from List" 'C'est l&#224; la requ&#234;te

  Set rs = db.OpenRecordset(sql, dbOpenDynaset)

'MoveFirst, MoveLast pas utile, le RecordSet s'ouvre normalement sur le 1er record

  If Not rs.EOF 

      Label1 =  rs(0)

  End if

'Ne pas oublier de fermer le RecordSet

  rs.Close()



Chris

N'oubliez pas de cloturer votre post.

cs_69chris · Answer

Salut,



Et bien si tu cherche la somme, c'est pas compliqu&#233;

sql = "select SUM(Unit&#233;) from List"



Ces fonction sont des fonctions d'aggr&#233;gation. Il existe aussi (entre autre): AVG, MIN, MAX



Chris

N'oubliez pas de cloturer votre post.

Clad49 · Answer

Et comment utilisé cette fonction ?

cs_69chris · Answer

C'est la requ&#234;te que j'ai laiss&#233;....

Select Sum(MonChamp) from MaTable Where MesConditions

Une requ&#234;te SQL classique quoi?!



Chris

N'oubliez pas de cloturer votre post.

Clad49 · Answer

ouai je veut bien te croir ;) mais jy connai pas grand chose en Dao et je n'arive pas a exploiter ce que tu ma donné !

Clad49 · Answer

lol merci j'allé t'écrire que j'avai trouvé :)

sql = "select SUM(Partage) from List"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
If rs.EOF Then
tot = Null
Else
tot = rs.Fields(0).Value
End If
Label1 = tot

Merci beaucoup pour ton aide ;)

cs_69chris · Answer

N'oubliez pas de cloturer votre post.



Merci beaucoup.

Calcul dans db

7 réponses

Discussions similaires