Share via

Procedure: Queryresultaten sorteren met LINQ (Visual Basic)

  • Artikel

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 en de resultaten worden gesorteerd op meerdere velden met behulp van de Order By-component. De sorteervolgorde voor elk veld kan oplopend of aflopend zijn. Zie Order 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

  1. Open in Visual Studio Server Explorer/Database Explorer door te klikken op Server Explorer/Database Explorer- in het menu Weergave.

  2. Klik met de rechtermuisknop op gegevensverbindingen in Server Explorer/Database Explorer en klik vervolgens op Verbinding toevoegen.

  3. Geef een geldige verbinding op met de northwind-voorbeelddatabase.

Een project met een LINQ toevoegen aan een SQL-bestand

  1. Wijs in Visual Studio in het menu Bestand naar Nieuw en klik vervolgens op Project. Selecteer Visual Basic Windows Forms Application als projecttype.

  2. Klik in het menu Project op Nieuwe item toevoegen. Selecteer de LINQ naar SQL-klassen itemsjabloon.

  3. 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

  1. 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.

  2. Klik op de tabel Klanten 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 en Order 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 het Customer object een Orders eigenschap heeft voor alle orders die aan die klant zijn gerelateerd.

  3. Sla uw wijzigingen op en sluit de ontwerpfunctie.

  4. Sla uw project op.

Code toevoegen om een query uit te voeren op de database en de resultaten weer te geven

  1. Sleep vanuit de Toolboxeen DataGridView controle naar het standaard Windows Form voor uw project, Form1.

  2. Dubbelklik op Form1 om code toe te voegen aan de Load gebeurtenis van het formulier.

  3. Wanneer u tabellen hebt toegevoegd aan O/R Designer, heeft de ontwerper een DataContext-object aan uw project toegevoegd. 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 gegevenscontext en de resultaten te sorteren. De query sorteert de resultaten op het aantal klantorders, in aflopende volgorde. Klanten met hetzelfde aantal orders worden in oplopende volgorde gesorteerd op bedrijfsnaam (de standaardinstelling).

    Dim db As New northwindDataContext

Dim q = From cust In db.Customers
        Where cust.Orders.Count > 0
        Select cust.CustomerID, cust.CompanyName,
               OrderCount = cust.Orders.Count, cust.Country
        Order By OrderCount Descending, CompanyName

DataGridView1.DataSource = q

  4. Druk op F5 om uw project uit te voeren en de resultaten weer te geven.

Zie ook