מחזירה את הסכום של ערכת ערכים הנכללים בשדה שצויין בשאילתה.
תחביר
Sum(expr)
מציין המיקום expr מייצג ביטוי מחרוזת אשר מזהה את השדה המכיל את המידע המספרי שברצונך להוסיף או ביטוי המבצע חישוב תוך שימוש בנתונים שבשדה זה. אופרנדים במציין המיקום expr יכולים לכלול שם של שדה טבלה, קבוע או פונקציה (שיכולה להיות פנימית או מוגדרת על-ידי המשתמש אך לא אחת מפונקציות הצבירה של SQL).
הערות
הפונקציה Sum מסכמת את הערכים בשדה. לדוגמה, ניתן להשתמש בפונקציה Sum לקביעת העלות הכללית של דמי הובלה.
הפונקציה Sum אינה כוללת רשומות הכוללות שדות Null. הדוגמה להלן מראה כיצד ניתן לחשב את סכום המוצרים בשדות UnitPrice ו- Quantity:
SELECT
Sum(UnitPrice * Quantity)
AS [Total Revenue] FROM [Order Details];
באפשרותך להשתמש בפונקציה Sum בביטוי שאילתה. באפשרותך גם להשתמש בביטוי זה במאפיין SQL של אובייקט QueryDef או בעת יצירת Recordset המבוסס על שאילתת SQL.
דוגמה לפונקציית Sum
דוגמה זו משתמשת בטבלה Orders לחישוב סך כל המכירות עבור הזמנות שנשלחו לבריטניה.
דוגמה זו שולחת קריאה לפרוצדורה EnumFields, אותה באפשרותך למצוא בדוגמה למשפט SELECT.
Sub SumX()
Dim dbs As Database, rst As Recordset
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase("Northwind.mdb")
' Calculate the total sales for orders shipped to
' the United Kingdom.
Set rst = dbs.OpenRecordset("SELECT" _
& " Sum(UnitPrice*Quantity)" _
& " AS [Total UK Sales] FROM Orders" _
& " INNER JOIN [Order Details] ON" _
& " Orders.OrderID = [Order Details].OrderID" _
& " WHERE (ShipCountry = 'UK');")
' Populate the Recordset.
rst.MoveLast
' Call EnumFields to print the contents of the
' Recordset. Pass the Recordset object and desired
' field width.
EnumFields rst, 15
dbs.Close
End Sub
|