Udostępnij za pośrednictwem

Porady: wykonywanie zapytań względem bazy danych 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ł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.

Aby utworzyć połączenie z bazą danych

  1. W programie Visual Studio otwórz Eksploratora serwera Server Explorer/Eksplorator baz danych, klikając pozycję Eksplorator serwera /Eksplorator baz danych w menu Widok .

  2. Kliknij prawym przyciskiem myszy połączenia danych w Eksploratorze Server Explorer/Database Explorer, a następnie kliknij przycisk 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ż polecenie Nowy, a następnie kliknij pozycję Project. Wybierz pozycję Visual Basic Aplikacja Windows Forms jako typ projektu.

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

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

Aby dodać tabele do wykonywania zapytań do projektanta O/R

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

    Jeśli zamknąłeś projektanta O/R, możesz go ponownie otworzyć, dwukrotnym kliknięciem pliku 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.

Aby dodać kod do zapytania bazy danych i wyświetlenia wyników

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

  2. Dwukrotnie kliknij Formularz1, aby dodać kod do zdarzenia Load formularza.

  3. Po dodaniu tabel do narzędzia projektanta O/R, designer dodał obiekt DataContext do Twojego projektu. Ten obiekt zawiera kod, który musisz mieć, aby uzyskać dostęp do tych tabel, a także 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, aby wysłać zapytanie do tabel, które są uwidocznione jako właściwości kontekstu danych.

    Dim db As New northwindDataContext

Dim londonCusts = From cust In db.Customers
                  Where cust.City = "London"
                  Select cust

DataGridView1.DataSource = londonCusts

  4. Naciśnij F5, aby uruchomić projekt i wyświetlić wyniki.

  5. Poniżej przedstawiono kilka dodatkowych zapytań, które można wypróbować:

    Dim londonCustOrders = From cust In db.Customers,
                            ord In cust.Orders
                       Where cust.City = "London"
                       Order By ord.OrderID
                       Select cust.City, ord.OrderID, ord.OrderDate

DataGridView1.DataSource = londonCustOrders

    Dim custs = From cust In db.Customers
            Where cust.Country = "France" And
                (cust.CompanyName.StartsWith("F") Or
                 cust.CompanyName.StartsWith("V"))
            Order By cust.CompanyName
            Select cust.CompanyName, cust.City

DataGridView1.DataSource = custs

Zobacz też