Summe aller Datensätze einer Spalte berechnen VB-Version:  VB5, VB6
	Views:  528

Manchmal braucht man die Summe aller Datensätze einer Spalte in einer Datenbank. Sei es, dass die Datenbank Artikelpreise enthält, die aufsummiert werden sollen, oder Stückzahlen von irgendwas. Mit einer SQL-Anweisung sollte das kein Problem sein:

Dim oRs As Recordset
Set oRs = Db.OpenRecordset("SELECT SUM(Feldname) AS Summe FROM Tabelle")
If oRs.RecordCount > 0 Then
  MsgBox CStr(oRs("Summe"))
End If
oRs.Close
Set oRs = Nothing