Udostępnij za pośrednictwem

Porady: znajdowanie wartości minimalnej lub maksymalnej w wyniku zapytania przy użyciu LINQ (Visual Basic)

  • Artykuł

Language-Integrated Query (LINQ) ułatwia uzyskiwanie dostępu do informacji o bazie danych i wykonywanie zapytań.

W poniższym przykładzie pokazano, jak utworzyć nową aplikację, która wykonuje zapytania względem bazy danych programu SQL Server. Przykład określa minimalne i maksymalne wartości dla wyników przy użyciu klauzul Aggregate i Group By. Aby uzyskać więcej informacji, zobacz Aggregate Clause oraz Group By Clause.

Przykłady w tym artykule korzystają z przykładowej bazy danych Northwind. Aby uzyskać bazę danych, zobacz Pobieranie przykładowych baz danych.

Notatka

Na komputerze mogą być wyświetlane różne nazwy lub lokalizacje niektórych elementów interfejsu użytkownika programu Visual Studio w poniższych instrukcjach. Wersja programu Visual Studio i ustawienia, których używasz, określają te elementy. Aby uzyskać więcej informacji, zobacz Personalizowanie środowiska IDE.

Tworzenie połączenia z bazą danych

  1. W programie Visual Studio otwórz Server Explorer/Database Explorer, klikając Server Explorer/Database Explorer w menu Widok .

  2. Kliknij prawym przyciskiem myszy Połączenia danych w Eksploratorze serwera /Database Explorer, a następnie kliknij Dodaj połączenie.

  3. Określ prawidłowe połączenie z przykładową bazą danych Northwind.

Aby dodać projekt zawierający plik LINQ to SQL

  1. W programie Visual Studio, w menu Plik wskaż Nowy, a następnie kliknij pozycję Projekt. Wybierz pozycję Visual Basic Aplikacja Windows Forms jako typ projektu.

  2. W menu projektu kliknij pozycję Dodaj nowy element. Wybierz szablon elementu klasy LINQ to SQL.

  3. Nadaj plikowi nazwę northwind.dbml. Kliknij Dodaj. Projektant relacyjny obiektu (O/R Designer) jest otwarty dla pliku northwind.dbml.

Dodawanie tabel do zapytania w projektancie O/R

  1. W eksploratorze serwera /Eksploratora baz danychrozwiń połączenie z bazą danych Northwind. Rozwiń folder Tables.

    Jeśli zamknąłeś Projektant O/R, możesz go ponownie otworzyć, klikając dwukrotnie plik northwind.dbml, który dodałeś wcześniej.

  2. Kliknij tabelę Customers (Klienci) i przeciągnij ją do lewego okienka projektanta. Kliknij tabelę Orders (Zamówienia) i przeciągnij ją do lewego okienka projektanta.

    Projektant tworzy nowe obiekty Customer i Order dla projektu. Zwróć uwagę, że projektant automatycznie wykrywa relacje między tabelami i tworzy właściwości podrzędne dla powiązanych obiektów. Na przykład funkcja IntelliSense pokaże, że obiekt Customer ma właściwość Orders dla wszystkich zamówień powiązanych z tym klientem.

  3. Zapisz zmiany i zamknij edytor.

  4. Zapisz projekt.

Dodawanie kodu w celu wykonywania zapytań względem bazy danych i wyświetlania wyników

  1. Z przybornika przeciągnij kontrolkę DataGridView na domyślny formularz systemu Windows dla projektu, Form1.

  2. Kliknij dwukrotnie Form1, aby dodać kod do zdarzenia Load tego formularza.

  3. Podczas dodawania tabel do projektanta O/R, w projekcie został dodany obiekt DataContext. Ten obiekt zawiera kod, który musisz mieć, aby uzyskać dostęp do tych tabel, oraz poszczególne obiekty i kolekcje dla każdej tabeli. Obiekt DataContext dla projektu jest nazwany na podstawie nazwy pliku dbml. W tym projekcie obiekt DataContext ma nazwę northwindDataContext.

    Możesz utworzyć wystąpienie DataContext w kodzie i wykonać zapytanie o tabele określone przez projektanta O/R.

    Dodaj następujący kod do zdarzenia Load. Ten kod wysyła zapytanie do tabel, które są uwidocznione jako właściwości kontekstu danych i określa minimalne i maksymalne wartości dla wyników. W przykładzie użyto klauzuli Aggregate, aby wysłać zapytanie o pojedynczy wynik, a klauzula Group By pokazuje średnią dla pogrupowanych wyników.

    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. Naciśnij F5, aby uruchomić projekt i wyświetlić wyniki.

Zobacz też