Procedure: Gegevens tellen, optellen of gemiddelden met behulp van 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. De steekproef telt, somt en berekent het gemiddelde van de resultaten met behulp van de Aggregate
- en Group By
-clausules. 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, raadpleeg Voorbeeldbestanden 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 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
In Visual Studio, kies in het menu Bestand de optie Nieuw en klik op Project. Selecteer Visual Basic Windows Forms Application als projecttype.
Klik in het menu Project op Nieuwe item toevoegen. Selecteer het 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 aan een query in de 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 tabel Klanten en sleep deze naar het linkervenster 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 een DataGridView control vanuit de Toolboxnaar het standaard Windows-formulier 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 en voor toegang tot 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 om een query uit te voeren op de tabellen die worden weergegeven als eigenschappen van uw DataContext en het aantal, som en gemiddelde van de resultaten. 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 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()
Druk op F5 om uw project uit te voeren en de resultaten weer te geven.