Aggregate, clause (Visual Basic)

Applique une ou plusieurs fonctions d'agrégation à une collection.

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

Composants

Notes

La clause Aggregate peut être utilisée pour inclure des fonctions d'agrégation dans vos requêtes. Les fonctions d'agrégation effectuent des vérifications et des calculs sur un jeu de valeurs et retournent une valeur unique. Vous pouvez accéder à la valeur calculée à l'aide d'un membre du type du résultat de la requête. Les fonctions d'agrégation standard que vous pouvez utiliser sont les suivantes : All, Any, Average, Count, LongCount, Max, Minet Sum. Ces fonctions sont connues des développeurs qui sont familiarisés avec les agrégats dans SQL. Ils sont décrits dans la section suivante de cette rubrique.

Le résultat d'une fonction d'agrégation est inclus dans le résultat de la requête sous la forme d'un champ du type de résultat de requête. Vous pouvez fournir un alias pour le résultat de la fonction d'agrégation pour spécifier le nom du membre du type de résultat de la requête qui maintiendra la valeur d'agrégation. Si aucun alias n'est fourni, le nom de la fonction d'agrégation est utilisé.

La clause Aggregate peut commencer une requête ou être incluse comme clause supplémentaire dans une requête. Si la clause Aggregate commence une requête, il en résulte une valeur unique qui est le résultat de la fonction d'agrégation spécifiée dans la clause Into. Si plusieurs fonctions d'agrégation sont spécifiées dans la clause Into, la requête retourne un type unique avec une propriété séparée pour référencer le résultat de chaque fonction d'agrégation de la clause Into. Si la clause Aggregate est incluse comme clause supplémentaire dans une requête, le type retourné dans la collection de requêtes aura une propriété distincte pour référencer le résultat de chaque fonction d'agrégation de la clause Into.

Fonctions d'agrégation

La liste suivante décrit les fonctions d'agrégation standard qui peuvent être utilisées avec la clause 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)

Exemple

L'exemple de code suivant indique comment utiliser la clause Aggregate pour appliquer des fonctions d'agrégation à un résultat de requête.

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

Création de fonctions d'agrégation définies par l'utilisateur

Vous pouvez inclure vos propres fonctions d'agrégation personnalisées dans une expression de requête en ajoutant des méthodes d'extension au type IEnumerable. Votre méthode personnalisée peut ensuite effectuer un calcul ou une opération sur la collection énumérable qui a référencé votre fonction d'agrégation. Pour plus d'informations sur les méthodes d'extension, consultez Méthodes d'extension (Visual Basic).

Par exemple, l'exemple de code suivant représente une fonction d'agrégation personnalisée qui calcule la valeur médiane d'une collection de nombres. Il y a deux surcharges de la méthode d'extension Median. La première surcharge accepte, comme entrée, une collection de type IEnumerable(Of Double). Si la fonction d'agrégation Median est appelée pour un champ de requête de type Double, cette méthode sera appelée. La deuxième méthode de surcharge Median peut être passée à tout type générique. La surcharge générique de la méthode Median prend un deuxième paramètre qui référence l'expression lambda Func(Of T, Double) pour projeter une valeur pour un type (d'une collection) comme valeur correspondante de type Double. Il délègue alors le calcul de la valeur médiane à l'autre surcharge de la méthode Median. Pour plus d'informations sur les expressions lambda, consultez Expressions 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

L'exemple de code suivant illustre des requêtes d'exemple qui appellent la fonction d'agrégation Median sur une collection de type Integer et de type Double. La requête qui appelle la fonction d'agrégation Median sur la collection de type Double appelle la surcharge de la méthode Median qui accepte, comme entrée, une collection de type Double. La requête qui appelle la fonction d'agrégation Median sur la collection de type Integer appelle la surcharge générique de la méthode 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

Voir aussi

Référence

Select, clause (Visual Basic)

From, clause (Visual Basic)

Where, clause (Visual Basic)

Group By, clause (Visual Basic)

Concepts

Introduction à LINQ dans Visual Basic

Autres ressources

Requêtes (Visual Basic)