Comment : rechercher la valeur minimale ou maximale dans un résultat de requête à 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’exemple détermine les valeurs minimales et maximales des résultats à l’aide des 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.

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 Objet/Relationnel (Concepteur O/R) est ouvert pour le fichier northwind.dbml.

Ajouter des tables à interroger au Concepteur Objet Relationnel

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.

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

1. À partir de la boîte à outils, faites glisser un contrôle DataGridView sur le Windows Form par défaut de 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 nécessaire pour accéder à ces tables, en plus des objets individuels et des collections 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. Ce code interroge les tables exposées en tant que propriétés de votre contexte de données et détermine les valeurs minimales et maximales 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 minimumOrders = Aggregate cust In db.Customers
                       Where cust.City = "London"
                       Into Min(cust.Orders.Count)
   
   MsgBox("Minimum Orders from a London Customer: " & minimumOrders)
   
   Dim maximumOrdersByCountry = From cust In db.Customers
                                Group By cust.Country
                                  Into MaxOrders = Max(cust.Orders.Count)
   
   DataGridView1.DataSource = maximumOrdersByCountry
   

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)