Exporter (0) Imprimer
Développer tout

Aggregate, clause (Visual Basic)

Mise à jour : novembre 2007

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


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

element

Obligatoire. Variable utilisée pour parcourir les éléments de la collection.

type

Facultatif. Type d'element. Si aucun type n'est spécifié, le type d'element est déduit de collection.

collection

Obligatoire. Fait référence à la collection sur laquelle opérer.

clause

Facultatif. Une ou plusieurs clauses de requête, telles qu'une clause Where, pour affiner le résultat de la requête auquel appliquer la ou les clauses d'agrégation.

expressionList

Obligatoire. Une ou plusieurs expressions délimitées par des virgules qui identifient une fonction d'agrégation à appliquer à la collection. Vous pouvez appliquer un alias à une fonction d'agrégation pour spécifier un nom de membre pour le résultat de la requête. Si aucun alias n'est fourni, le nom de la fonction d'agrégation est utilisé. Pour obtenir des exemples, consultez la section sur les fonctions d'agrégation plus loin dans cette rubrique.

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.

La liste suivante décrit les fonctions d'agrégation standard qui peuvent être utilisées avec la clause Aggregate.

All

Retourne la valeur true si tous les éléments de la collection satisfont une condition spécifiée ; sinon retourne la valeur false. Voici un exemple :

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


Any

Retourne la valeur true si un élément de la collection satisfait une condition spécifiée ; sinon retourne la valeur false. Voici un exemple :

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


Average

Calcule la moyenne de tous les éléments de la collection ou une expression fournie pour tous les éléments de la collection. Voici un exemple :

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


Count

Compte le nombre d'éléments de la collection. Vous pouvez fournir une expression Boolean facultative pour compter uniquement le nombre d'éléments de la collection qui satisfont une condition. Voici un exemple :

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


Group

Fait référence aux résultats de la requête groupés suite à une clause Group By ou Group Join. La fonction Group est valide uniquement dans la clause Into d'une clause Group By ou Group Join. Pour plus d'informations et d'exemples, consultez Group By, clause (Visual Basic) et Group Join, clause (Visual Basic).

LongCount

Compte le nombre d'éléments de la collection. Vous pouvez fournir une expression Boolean facultative pour compter uniquement le nombre d'éléments de la collection qui satisfont une condition. Retourne le résultat sous la forme de Long. Pour obtenir un exemple, consultez la fonction d'agrégation Count.

Max

Calcule la valeur maximale de la collection ou une expression fournie pour tous ses éléments. Voici un exemple :

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


Min

Calcule la valeur minimale de la collection ou une expression fournie pour tous ses éléments. Voici un exemple :

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


Sum

Calcule la somme de tous les éléments de la collection ou une expression fournie pour tous les éléments de la collection. Voici un exemple :

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


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


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<T>. Votre méthode personnalisée peut ensuite effectuer un calcul ou une opération sur la collection dénombrable 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.

Imports System.Runtime.CompilerServices

Module UserDefinedAggregates

  ' Calculate the median value for a collection of type Double.
  <Extension()> _
  Function Median(ByVal medianAggregate As IEnumerable(Of Double)) As Double
    If medianAggregate.Count = 0 Then
      Throw New InvalidOperationException("Cannot compute median for an empty set.")
    End If

    Dim sortedList = From number In medianAggregate 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 medianAggregate As IEnumerable(Of T), _
                        ByVal selector As Func(Of T, Double)) As Double
    Return (From element In medianAggregate 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 As Integer() = New Integer() {1, 2, 3, 4, 5}

    Dim query1 = Aggregate num In numbers1 Into Median(num)

    Console.WriteLine("Median = " & query1)

    Dim numbers2 As Double() = New Double() {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


Ajouts de la communauté

AJOUTER
Microsoft réalise une enquête en ligne pour recueillir votre opinion sur le site Web de MSDN. Si vous choisissez d’y participer, cette enquête en ligne vous sera présentée lorsque vous quitterez le site Web de MSDN.

Si vous souhaitez y participer,
Afficher:
© 2014 Microsoft