Handleiding: Het zoeken van de minimum- of maximumwaarde in een queryresultaat met LINQ (Visual Basic)
Language-Integrated Query (LINQ) maakt het eenvoudig om toegang te krijgen tot databasegegevens en query's uit te voeren.
In het volgende voorbeeld ziet u hoe u een nieuwe toepassing maakt waarmee query's worden uitgevoerd op een SQL Server-database. Het voorbeeld bepaalt de minimum- en maximumwaarden voor de resultaten met behulp van de Aggregate
- en Group By
-componenten. Zie Aggregate Clause en Group By Clausevoor meer informatie.
In de voorbeelden in dit artikel wordt de voorbeelddatabase Northwind gebruikt. Om de database te verkrijgen, zie Voorbeelddatabases downloaden.
Notitie
Mogelijk worden op uw computer verschillende namen of locaties weergegeven voor sommige elementen van de Visual Studio-gebruikersinterface in de volgende instructies. De Visual Studio-editie die u hebt en de instellingen die u gebruikt, bepalen deze elementen. Zie Personalizing the IDEvoor meer informatie.
Een verbinding met een database maken
Open in Visual Studio de Server Explorer/Database Explorer door te klikken op Server Explorer/Database Explorer in het menu Weergave.
Klik met de rechtermuisknop op gegevensverbindingen in Server Explorer/Database Explorer en klik vervolgens op Verbinding toevoegen.
Geef een geldige verbinding op met de northwind-voorbeelddatabase.
Een project met een LINQ toevoegen aan een SQL-bestand
Wijs in Visual Studio in het menu Bestand naar Nieuw en klik vervolgens op Project. Selecteer Visual Basic Windows Forms Application als projecttype.
Klik in het menu Project op Nieuwe item toevoegen. Selecteer de LINQ naar SQL-klassen itemsjabloon.
Geef het bestand de naam
northwind.dbml
. Klik op toevoegen. De Object Relational Designer (O/R Designer) wordt geopend voor het bestand northwind.dbml.
Tabellen toevoegen om query's uit te voeren in O/R Designer
Vouw in Server Explorer/Database Explorerde verbinding met de Northwind-database uit. Vouw de map Tabellen uit.
Als u de O/R Designer hebt gesloten, kunt u deze opnieuw openen door te dubbelklikken op het northwind.dbml-bestand dat u eerder hebt toegevoegd.
Klik op de Klanten-tabel en sleep deze naar het linkerdeelvenster van de ontwerper. Klik op de tabel Orders en sleep deze naar het linkerdeelvenster van de ontwerper.
De ontwerpfunctie maakt nieuwe
Customer
enOrder
objecten voor uw project. U ziet dat de ontwerper automatisch relaties tussen de tabellen detecteert en onderliggende eigenschappen voor gerelateerde objecten maakt. IntelliSense laat bijvoorbeeld zien dat hetCustomer
object eenOrders
eigenschap heeft voor alle orders die aan die klant zijn gerelateerd.Sla uw wijzigingen op en sluit de ontwerpfunctie.
Sla uw project op.
Code toevoegen om een query uit te voeren op de database en de resultaten weer te geven
Sleep vanuit de Toolboxeen DataGridView besturingselement naar het standaard Windows Form voor uw project, Form1.
Dubbelklik op Form1 om code toe te voegen aan de
Load
gebeurtenis van het formulier.Wanneer u tabellen aan O/R Designer hebt toegevoegd, heeft de ontwerper een DataContext-object toegevoegd voor uw project. Dit object bevat de code die u nodig hebt voor toegang tot deze tabellen, naast afzonderlijke objecten en verzamelingen voor elke tabel. Het DataContext-object voor uw project heeft een naam op basis van de naam van het DBML-bestand. Voor dit project heeft het DataContext object de naam
northwindDataContext
.U kunt een exemplaar van de DataContext maken in uw code en de tabellen opvragen die zijn opgegeven door de O/R Designer.
Voeg de volgende code toe aan de
Load
-gebeurtenis. Met deze code worden de tabellen opgevraagd die worden weergegeven als eigenschappen van uw gegevenscontext en worden de minimum- en maximumwaarden voor de resultaten bepaald. In het voorbeeld wordt deAggregate
-component gebruikt om een query uit te voeren op één resultaat en deGroup By
-component om een gemiddelde voor gegroepeerde resultaten weer te geven.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
Druk op F5- om uw project uit te voeren en de resultaten weer te geven.