Clausola Aggregate (Visual Basic)

Applica uno o più funzioni di aggregazione a un insieme.

Aggregate element [As type] In collection _
  [, element2 [As type2] In collection2, [...]]
  [ clause ]
  Into expressionList

Parti

Note

La clausola Aggregate può essere utilizzata per includere nelle query funzioni di aggregazione. Le funzioni di aggregazione eseguono controlli e calcoli su un insieme di valori e restituiscono un solo valore. È possibile accedere al valore calcolato utilizzando un membro del tipo di risultato della query. Le funzioni di aggregazione standard che possono venire utilizzate sono le funzioni All, Any, Average, Count, LongCount, Max, Min e Sum. Queste funzioni sono note agli sviluppatori che utilizzano comunemente le aggregazioni in SQL. Vengono descritte nelle sezioni seguenti di questo argomento.

Il risultato di una funzione di aggregazione viene incluso nel risultato della query come un campo del tipo di risultato della query. È possibile fornire un alias affinché il risultato della funzione di aggregazione specifichi il nome di membro del tipo di risultato della query che conterrà il valore di aggregazione. Se non viene fornito alcun alias, viene utilizzato il nome della funzione di aggregazione.

La clausola Aggregate può iniziare una query, o può essere inclusa come una clausola aggiuntiva in una query. Se la clausola Aggregate inizia una query, il risultato è un solo valore che è il risultato della funzione di aggregazione specificato nella clausola Into. Se viene specificata più di una funzione di aggregazione nella clausola Into, la query restituisce un solo tipo con una proprietà separata per fare riferimento al risultato di ogni funzione di aggregazione nella clausola Into. Se la clausola Aggregate viene inclusa come clausola aggiuntiva in una query, il tipo restituito nell'insieme della query avrà una proprietà separata per fare riferimento al risultato di ogni funzione di aggregazione nella clausola Into.

Funzioni di aggregazione

Nell'elenco seguente vengono descritte le funzioni di aggregazione standard che possono essere utilizzate con la clausola Aggregate.

Dim customerList1 = Aggregate order In orders
                    Into AllOrdersOver100 = All(order.Total >= 100)

Dim customerList2 = From cust In customers
                    Aggregate order In cust.Orders
                    Into AnyOrderOver500 = Any(order.Total >= 500)

Dim customerOrderAverage = Aggregate order In orders
                           Into Average(order.Total)

Dim customerOrderAfter1996 = From cust In customers
                             Aggregate order In cust.Orders
                             Into Count(order.OrderDate > #12/31/1996#)

Dim customerMaxOrder = Aggregate order In orders
                       Into MaxOrder = Max(order.Total)

Dim customerMinOrder = From cust In customers
                       Aggregate order In cust.Orders
                       Into MinOrder = Min(order.Total)

Dim customerTotals = From cust In customers
                     Aggregate order In cust.Orders
                     Into Sum(order.Total)

Esempio

Nell'esempio di codice seguente viene illustrato come utilizzare la clausola Aggregate per applicare funzioni di aggregazione a un risultato della query.

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

Creazione di funzioni di aggregazione definite dall'utente

È possibile includere funzioni di aggregazione personalizzate in un'espressione di query aggiungendo metodi di estensione al tipo IEnumerable<T>. Il metodo personalizzato può quindi eseguire un calcolo o un'operazione sull'insieme enumerabile che ha fatto riferimento alla funzione di aggregazione. Per ulteriori informazioni sui metodi di estensione, vedere Metodi di estensione (Visual Basic).

Nell'esempio di codice riportato di seguito viene illustrata una funzione di aggregazione personalizzata che calcola il valore mediano di un insieme di numeri. Esistono due overload del metodo di estensione Median: Il primo overload accetta come input un insieme di tipo IEnumerable(Of Double). Se la funzione di aggregazione Median viene chiamata un campo della query di tipo Double, verrà chiamato questo metodo. Il secondo overload del metodo Median può passare qualsiasi tipo generico. L'overload generico del metodo Median prende un secondo parametro che fa riferimento all'espressione lambda Func(Of T, Double) per proiettare un valore per un tipo (da un insieme) come valore corrispondente di tipo Double. Delega quindi il calcolo del valore mediano all'altro overload del metodo Median. Per ulteriori informazioni sulle espressioni lambda, vedere Espressioni lambda (Visual Basic).

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

Nell'esempio di codice seguente vengono illustrate query che chiamano la funzione di aggregazione Median su un insieme di tipo Integer e un insieme di tipo Double. La query che chiama la funzione di aggregazione Median sull'insieme di tipo Double chiama l'overload del metodo Median che accetta come input un insieme di tipo Double. La query che chiama la funzione di aggregazione Median sull'insieme di tipo Integer chiama l'overload generico del metodo Median.

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

Vedere anche

Riferimenti

Clausola Select (Visual Basic)

Clausola From (Visual Basic)

Clausola Where (Visual Basic)

Clausola Group By (Visual Basic)

Concetti

Introduzione a LINQ in Visual Basic

Altre risorse

Query (Visual Basic)