Aggregaatcomponent (Visual Basic)
Hiermee past u een of meer statistische functies toe op een verzameling.
Syntaxis
Aggregate element [As type] In collection _
[, element2 [As type2] In collection2, [...]]
[ clause ]
Into expressionList
generator
| Term | Definitie |
|---|---|
element |
Vereist. Variabele die wordt gebruikt om de elementen van de verzameling te herhalen. |
type |
Optioneel. Het type element. Als er geen type is opgegeven, wordt het type element afgeleid van collection. |
collection |
Vereist. Verwijst naar de verzameling waarop moet worden gewerkt. |
clause |
Optioneel. Een of meer queryclausules, zoals een Where component, om het queryresultaat te verfijnen om de statistische component of componenten toe te passen. |
expressionList |
Vereist. Een of meer door komma's gescheiden expressies waarmee een statistische functie wordt geïdentificeerd die moet worden toegepast op de verzameling. U kunt een alias toepassen op een statistische functie om een lidnaam op te geven voor het queryresultaat. Als er geen alias wordt opgegeven, wordt de naam van de statistische functie gebruikt. Zie de sectie over statistische functies verderop in dit onderwerp voor voorbeelden. |
Opmerkingen
De Aggregate component kan worden gebruikt om statistische functies in uw query's op te nemen. Statistische functies voeren controles en berekeningen uit op een set waarden en retourneren één waarde. U kunt de berekende waarde openen met behulp van een lid van het queryresultaattype. De standaard statistische functies die u kunt gebruiken, zijn de Allfuncties , , Any, CountAverage, LongCount, Max, en MinSum functies. Deze functies zijn bekend bij ontwikkelaars die bekend zijn met aggregaties in SQL. Ze worden beschreven in de volgende sectie van dit onderwerp.
Het resultaat van een statistische functie wordt opgenomen in het queryresultaat als een veld van het queryresultaattype. U kunt een alias opgeven voor het resultaat van de statistische functie om de naam op te geven van het lid van het queryresultaattype dat de statistische waarde bevat. Als er geen alias wordt opgegeven, wordt de naam van de statistische functie gebruikt.
De Aggregate component kan beginnen met een query of kan worden opgenomen als een extra component in een query. Als de Aggregate component een query begint, is het resultaat één waarde die het resultaat is van de statistische functie die is opgegeven in de Into component. Als er meer dan één statistische functie is opgegeven in de Into component, retourneert de query één type met een afzonderlijke eigenschap om te verwijzen naar het resultaat van elke statistische functie in de Into component. Als de Aggregate component is opgenomen als een extra component in een query, heeft het type dat wordt geretourneerd in de queryverzameling een afzonderlijke eigenschap om te verwijzen naar het resultaat van elke statistische functie in de Into component.
Statische functies
Hier volgen de standaard statistische functies die kunnen worden gebruikt met de Aggregate component.
Alle
Retourneert true als alle elementen in de verzameling voldoen aan een opgegeven voorwaarde; anders wordt geretourneerd false. Hier volgt een voorbeeld:
Dim customerList1 = Aggregate order In orders
Into AllOrdersOver100 = All(order.Total >= 100)
Alle
Retourneert true als een element in de verzameling voldoet aan een opgegeven voorwaarde; anders wordt geretourneerd false. Hier volgt een voorbeeld:
Dim customerList2 = From cust In customers
Aggregate order In cust.Orders
Into AnyOrderOver500 = Any(order.Total >= 500)
Gemiddeld
Berekent het gemiddelde van alle elementen in de verzameling of berekent een opgegeven expressie voor alle elementen in de verzameling. Hier volgt een voorbeeld:
Dim customerOrderAverage = Aggregate order In orders
Into Average(order.Total)
Tellen
Telt het aantal elementen in de verzameling. U kunt een optionele Boolean expressie opgeven om alleen het aantal elementen in de verzameling te tellen waaraan een voorwaarde voldoet. Hier volgt een voorbeeld:
Dim customerOrderAfter1996 = From cust In customers
Aggregate order In cust.Orders
Into Count(order.OrderDate > #12/31/1996#)
Groep
Verwijst naar queryresultaten die zijn gegroepeerd als gevolg van een Group By of Group Join component. De Group functie is alleen geldig in de Into component van een Group By of Group Join component. Zie Group By Clause en Group Join Clause voor meer informatie en voorbeelden.
LongCount
Telt het aantal elementen in de verzameling. U kunt een optionele Boolean expressie opgeven om alleen het aantal elementen in de verzameling te tellen waaraan een voorwaarde voldoet. Retourneert het resultaat als een Long. Zie de Count statistische functie voor een voorbeeld.
Max
Berekent de maximumwaarde van de verzameling of berekent een opgegeven expressie voor alle elementen in de verzameling. Hier volgt een voorbeeld:
Dim customerMaxOrder = Aggregate order In orders
Into MaxOrder = Max(order.Total)
Min
Berekent de minimumwaarde van de verzameling of berekent een opgegeven expressie voor alle elementen in de verzameling. Hier volgt een voorbeeld:
Dim customerMinOrder = From cust In customers
Aggregate order In cust.Orders
Into MinOrder = Min(order.Total)
Sum
Berekent de som van alle elementen in de verzameling of berekent een opgegeven expressie voor alle elementen in de verzameling. Hier volgt een voorbeeld:
Dim customerTotals = From cust In customers
Aggregate order In cust.Orders
Into Sum(order.Total)
Opmerking
In het volgende voorbeeld ziet u hoe u de Aggregate component gebruikt om statistische functies toe te passen op een queryresultaat.
Public Sub AggregateSample()
Dim customers = GetCustomerList()
Dim customerOrderTotal =
From cust In customers
Aggregate order In cust.Orders
Into Sum(order.Total), MaxOrder = Max(order.Total),
MinOrder = Min(order.Total), Avg = Average(order.Total)
For Each customer In customerOrderTotal
Console.WriteLine(customer.cust.CompanyName & vbCrLf &
vbTab & "Sum = " & customer.Sum & vbCrLf &
vbTab & "Min = " & customer.MinOrder & vbCrLf &
vbTab & "Max = " & customer.MaxOrder & vbCrLf &
vbTab & "Avg = " & customer.Avg.ToString("#.##"))
Next
End Sub
Door de gebruiker gedefinieerde statistische functies maken
U kunt uw eigen aangepaste statistische functies opnemen in een query-expressie door extensiemethoden toe te voegen aan het IEnumerable<T> type. Uw aangepaste methode kan vervolgens een berekening of bewerking uitvoeren op de inventariserbare verzameling waarnaar wordt verwezen met uw statistische functie. Zie Extensiemethoden voor meer informatie over extensiemethoden.
In het volgende voorbeeld ziet u bijvoorbeeld een aangepaste statistische functie waarmee de mediaanwaarde van een verzameling getallen wordt berekend. Er zijn twee overbelastingen van de Median extensiemethode. De eerste overbelasting accepteert, als invoer, een verzameling van het type IEnumerable(Of Double). Als de Median statistische functie wordt aangeroepen voor een queryveld van het type Double, wordt deze methode aangeroepen. De tweede overbelasting van de Median methode kan elk algemeen type worden doorgegeven. De algemene overbelasting van de Median methode gebruikt een tweede parameter die verwijst naar de Func(Of T, Double) lambda-expressie om een waarde voor een type (uit een verzameling) te projecteren als de bijbehorende waarde van het type Double. Vervolgens wordt de berekening van de mediaanwaarde gedelegeerd aan de andere overbelasting van de Median methode. Zie Lambda-expressies voor meer informatie over lambda-expressies.
Imports System.Runtime.CompilerServices
Module UserDefinedAggregates
' Calculate the median value for a collection of type Double.
<Extension()>
Function Median(ByVal values As IEnumerable(Of Double)) As Double
If values.Count = 0 Then
Throw New InvalidOperationException("Cannot compute median for an empty set.")
End If
Dim sortedList = From number In values
Order By number
Dim medianValue As Double
Dim itemIndex = CInt(Int(sortedList.Count / 2))
If sortedList.Count Mod 2 = 0 Then
' Even number of items in list.
medianValue = ((sortedList(itemIndex) + sortedList(itemIndex - 1)) / 2)
Else
' Odd number of items in list.
medianValue = sortedList(itemIndex)
End If
Return medianValue
End Function
' "Cast" the collection of generic items as type Double and call the
' Median() method to calculate the median value.
<Extension()>
Function Median(Of T)(ByVal values As IEnumerable(Of T),
ByVal selector As Func(Of T, Double)) As Double
Return (From element In values Select selector(element)).Median()
End Function
End Module
In het volgende voorbeeld ziet u voorbeeldquery's die de Median statistische functie aanroepen voor een verzameling van het type Integeren een verzameling van het type Double. De query die de Median statistische functie aanroept voor de verzameling van het type Double roept de overbelasting aan van de Median methode die, als invoer, een verzameling van het type Doubleaccepteert. De query die de Median statistische functie aanroept voor de verzameling van het type Integer roept de algemene overbelasting van de Median methode aan.
Module Module1
Sub Main()
Dim numbers1 = {1, 2, 3, 4, 5}
Dim query1 = Aggregate num In numbers1 Into Median(num)
Console.WriteLine("Median = " & query1)
Dim numbers2 = {1.9, 2, 8, 4, 5.7, 6, 7.2, 0}
Dim query2 = Aggregate num In numbers2 Into Median()
Console.WriteLine("Median = " & query2)
End Sub
End Module
