Comment : compter, additionner ou faire la moyenne de données à l'aide de LINQ (Visual Basic)

La requête intégrée en langage (LINQ) permet d’accéder facilement aux informations de base de données et d’exécuter des requêtes.

L’exemple suivant montre comment créer une application qui exécute des requêtes sur une base de données SQL Server. L'échantillon compte, additionne et calcule la moyenne des résultats en utilisant les clauses Aggregate et Group By. Pour plus d’informations, consultez Clause Aggregate et Clause Group By.

Les exemples de cette rubrique utilisent l’exemple de base de données Northwind. Si cette base de données n’est pas disponible sur votre ordinateur de développement, vous pouvez la télécharger à partir du Centre de téléchargement Microsoft. Pour obtenir des instructions, consultez Téléchargement d’exemples de bases de données.

Pour créer une connexion à une base de données

1. Dans Visual Studio, ouvrez Explorateur de serveurs/Explorateur de bases de données en cliquant sur Explorateur de serveurs/Explorateur de bases de données dans le menu Affichage .

2. Cliquez avec le bouton droit sur Connexions de données dans Explorateur de serveurs/Explorateur de bases de données, puis cliquez sur Ajouter une connexion.

3. Spécifiez une connexion valide à l’exemple de base de données Northwind.

Pour ajouter un projet qui contient un fichier LINQ to SQL

1. Dans Visual Studio, dans le menu Fichier,pointez sur Nouveau, puis cliquez sur Projet. Sélectionnez Application Windows Forms Visual Basic comme type de projet.

2. Dans le menu Projet , cliquez sur Ajouter un nouvel élément. Sélectionnez le modèle d’élément Classes LINQ to SQL.

3. Nommez le fichier northwind.dbml. Cliquez sur Add. Le Concepteur relationnel objet (Concepteur O/R) est ouvert pour le fichier northwind.dbml.

Pour ajouter des tables à interroger au Concepteur O/R

1. Dans Explorateur de serveurs/Explorateur de bases de données, développez la connexion à la base de données Northwind. Développez le dossier Tables .

   Si vous avez fermé le concepteur objet relationnel, vous pouvez le rouvrir en double-cliquant sur le fichier northwind.dbml que vous avez ajouté précédemment.

2. Cliquez sur la table Customers et faites-la glisser vers le volet gauche du concepteur. Cliquez sur la table Orders et faites-la glisser vers le volet gauche du concepteur.

   Le concepteur crée de nouveaux objets Customer et Order pour votre projet. Notez que le concepteur détecte automatiquement les relations entre les tables et crée des propriétés enfants pour les objets associés. Par exemple, IntelliSense montre que l’objet Customer a une propriété Orders pour toutes les commandes liées à ce client.

3. Enregistrez vos modifications et fermez le concepteur.

4. Enregistrez votre projet.

Pour ajouter du code pour interroger la base de données et afficher les résultats

1. À partir de la boite à outils, faites glisser un contrôle DataGridView sur le Windows Form par défaut pour votre projet, Form1.

2. Double-cliquez sur Form1 pour ajouter un code à l’événement Load du formulaire.

3. Lorsque vous avez ajouté des tables au concepteur objet relationnel, ce dernier a ajouté un objet DataContext pour votre projet. Cet objet contient le code que vous devez avoir pour accéder à ces tables et accéder à des objets et collections individuels pour chaque table. L’objet DataContext de votre projet est nommé en fonction du nom de votre fichier .dbml. Pour ce projet, l’objet DataContext est nommé northwindDataContext.

   Vous pouvez créer une instance du DataContext dans votre code et interroger les tables spécifiées par le concepteur O/R.

   Ajoutez le code suivant à l’événement Load pour interroger les tables qui sont exposées en tant que propriétés de votre DataContext pour compter, additionner et calculer la moyenne des résultats. L’exemple utilise la clause Aggregate pour interroger un résultat unique et la clause Group By pour afficher une moyenne pour les résultats groupés.

   Dim db As New northwindDataContext
   Dim msg = ""
   
   Dim londonCustomerCount = Aggregate cust In db.Customers
                             Where cust.City = "London"
                             Into Count()
   msg &= "Count of London Customers: " & londonCustomerCount & vbCrLf
   
   Dim averageOrderCount = Aggregate cust In db.Customers
                           Where cust.City = "London"
                           Into Average(cust.Orders.Count)
   msg &= "Average number of Orders per customer: " &
          averageOrderCount & vbCrLf
   
   Dim venezuelaTotalOrders = Aggregate cust In db.Customers
                              Where cust.Country = "Venezuela"
                              Into Sum(cust.Orders.Count)
   msg &= "Total number of orders from Customers in Venezuela: " &
          venezuelaTotalOrders & vbCrLf
   
   MsgBox(msg)
   
   Dim averageCustomersByCity = From cust In db.Customers
                                Group By cust.City
                                Into Average(cust.Orders.Count)
                                Order By Average
   
   DataGridView1.DataSource = averageCustomersByCity
   
   'Another way to grab the count and sum
   
   londonCustomerCount = (From cust in db.Customers
                          Where cust.City = "London").Count()
   
   venezuelaTotalOrders = (From cust in db.Customers
                           Where cust.Country = "Venezuela"
                           Select cust.Orders).Sum()
   

4. Appuyez sur F5 pour exécuter votre projet et afficher les résultats.

Voir aussi

• LINQ
• Requêtes
• LINQ to SQL
• DataContext, méthodes (Concepteur O/R)
• Aggregate (clause)
• Group By (clause)