Procedure: Queryresultaten filteren 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 die query's uitvoert op een SQL Server-database en de resultaten filtert op een bepaalde waarde met behulp van de Where
component. Zie Where-component voor meer informatie.
In de voorbeelden in dit onderwerp wordt de voorbeelddatabase Northwind gebruikt. Als u deze database niet op uw ontwikkelcomputer hebt, kunt u deze downloaden via het Microsoft Downloadcentrum. Zie Voorbeelddatabases downloaden voor instructies.
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 IDE (Personalizing the IDE) voor meer informatie.
Een verbinding met een database maken
Open Server Explorer/Database Explorer in Visual Studio door te klikken op Server Explorer Database Explorer/ in het menu Beeld.
Klik met de rechtermuisknop op Gegevens Verbinding maken ions in Server Explorer/Database Explorer en klik vervolgens op Verbinding maken ion 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 de optie Nieuw aan en klik vervolgens op Project. Selecteer Visual Basic Windows Forms Application als projecttype.
Klik in het menu Project op Nieuw item toevoegen. Selecteer de ITEMsjabloon LINQ naar SQL-klassen .
Noem het bestand
northwind.dbml
. Klik op Toevoegen. De Object Relational Designer (O/R Designer) wordt geopend voor het bestand northwind.dbml.
Tabellen toevoegen aan query's in O/R Designer
Vouw in Server Explorer/Database Explorer de 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 linkerdeelvenster van de ontwerpfunctie. Klik op de tabel Orders en sleep deze naar het linkerdeelvenster van de ontwerpfunctie.
De ontwerpfunctie maakt nieuwe
Customer
objecten voorOrder
uw project. U ziet dat de ontwerper automatisch relaties tussen de tabellen detecteert en onderliggende eigenschappen voor gerelateerde objecten maakt. IntelliSense geeft bijvoorbeeld aan 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 werkset een DataGridView besturingselement naar 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, naast afzonderlijke objecten en verzamelingen voor elke tabel. Het DataContext object voor uw project heeft een naam op basis van de naam van uw .dbml-bestand. Voor dit project heeft het object de DataContext naam
northwindDataContext
.U kunt een exemplaar van de DataContext code maken 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 gegevenscontext. De query filtert de resultaten en retourneert alleen klanten die zich bevinden inLondon
.Dim db As New northwindDataContext Dim customers_London = From cust In db.Customers Where cust.City = "London" Select cust.CustomerID, cust.CompanyName, OrderCount = cust.Orders.Count, cust.City, cust.Country DataGridView1.DataSource = customers_London
Druk op F5 om uw project uit te voeren en de resultaten weer te geven.
Hieronder volgen enkele andere filters die u kunt proberen.
Dim companies_H = From cust In db.Customers Where cust.Orders.Count > 0 And cust.CompanyName.StartsWith("H") Select cust.CustomerID, cust.CompanyName, OrderCount = cust.Orders.Count, cust.Country Dim customers_USA = From cust In db.Customers Where cust.Orders.Count > 15 And cust.Country = "USA" Select cust.CustomerID, cust.CompanyName, OrderCount = cust.Orders.Count, cust.Country