Практическое руководство. Объединение данных с помощью LINQ с использованием соединений (Visual Basic)

Статья
08/11/2011

Visual Basic предоставляет предложения запроса Join и Group Join для объединения содержимого нескольких коллекций на основе общих значений между коллекциями. Эти значения называются значениями ключа. Разработчики, знакомые с основными понятиями реляционных баз данных, будет воспринимать предложение Join как INNER JOIN и предложение Group Join фактически как LEFT OUTER JOIN.

В этом разделе в примерах демонстрируются несколько способов для объединения данных с помощью предложений запроса Join и Group Join.

Создание проекта и добавление данных-образцов

Создание проекта, содержащего данные-образцы и типы

Чтобы запустить примеры в этом разделе, откройте Visual Studio и добавьте новый проект консольного приложения Visual Basic. Дважды щелкните файл Module1.vb, созданный Visual Basic.

Образцы в этом разделе используют типы Person и Pet и данные из следующего примера кода. Скопируйте этот код в модуль Module1, созданный Visual Basic по умолчанию.

Private _people As List(Of Person)
Private _pets As List(Of Pet)

Function GetPeople() As List(Of Person)
    If _people Is Nothing Then CreateLists()
    Return _people
End Function

Function GetPets(ByVal people As List(Of Person)) As List(Of Pet)
    If _pets Is Nothing Then CreateLists()
    Return _pets
End Function

Private Sub CreateLists()
    Dim pers As Person

    _people = New List(Of Person)
    _pets = New List(Of Pet)

    pers = New Person With {.FirstName = "Magnus", .LastName = "Hedlund"}
    _people.Add(pers)
    _pets.Add(New Pet With {.Name = "Daisy", .Owner = pers})

    pers = New Person With {.FirstName = "Terry", .LastName = "Adams"}
    _people.Add(pers)
    _pets.Add(New Pet With {.Name = "Barley", .Owner = pers})
    _pets.Add(New Pet With {.Name = "Boots", .Owner = pers})
    _pets.Add(New Pet With {.Name = "Blue Moon", .Owner = pers})

    pers = New Person With {.FirstName = "Charlotte", .LastName = "Weiss"}
    _people.Add(pers)
    _pets.Add(New Pet With {.Name = "Whiskers", .Owner = pers})

    ' Add a person with no pets for the sake of Join examples.
    _people.Add(New Person With {.FirstName = "Arlene", .LastName = "Huff"})

    pers = New Person With {.FirstName = "Don", .LastName = "Hall"}
    ' Do not add person to people list for the sake of Join examples.
    _pets.Add(New Pet With {.Name = "Spot", .Owner = pers})

    ' Add a pet with no owner for the sake of Join examples.
    _pets.Add(New Pet With {.Name = "Unknown", 
                            .Owner = New Person With {.FirstName = String.Empty, 
                                                      .LastName = String.Empty}})
End Sub


...


Class Person
    Public Property FirstName As String
    Public Property LastName As String
End Class

Class Pet
    Public Property Name As String
    Public Property Owner As Person
End Class

Выполнение внутреннего соединения с помощью предложения Join

Внутреннее соединение объединяет данные из двух коллекций. Включены элементы, для которых указанные ключевые значения совпадают. Все элементы из любой из двух коллекций, у которых нет соответствующего элемента в другой коллекции, исключаются.

В Visual Basic LINQ поддерживает два параметра для выполнения внутреннего соединения: неявное соединение и явное соединение.

Неявное соединение задает коллекции для объединения в предложении From и определяет соответствующие ключевые поля в предложении Where. Visual Basic неявно объединяет две коллекции, основанные на указанных ключевых полях.

Явное соединение можно указать с помощью предложения Join при необходимости явно указать, какие ключевые поля использовать для объединения. В этом случае предложение Where по-прежнему может быть использовано для фильтрации результатов запроса.

Выполнение внутреннего соединения с помощью предложения Join

Добавьте следующий код в модуль Module1 проекта, чтобы просмотреть примеры о неявных и явных способах внутреннего соединения.

Sub InnerJoinExample()
    ' Create two lists.
    Dim people = GetPeople()
    Dim pets = GetPets(people)

    ' Implicit Join.
    Dim petOwners = From pers In people, pet In pets
                    Where pet.Owner Is pers
                    Select pers.FirstName, PetName = pet.Name

    ' Display grouped results.
    Dim output As New System.Text.StringBuilder
    For Each pers In petOwners
        output.AppendFormat(
          pers.FirstName & ":" & vbTab & pers.PetName & vbCrLf)
    Next

    Console.WriteLine(output)

    ' Explicit Join.
    Dim petOwnersJoin = From pers In people
                        Join pet In pets
                        On pet.Owner Equals pers
                        Select pers.FirstName, PetName = pet.Name

    ' Display grouped results.
    output = New System.Text.StringBuilder()
    For Each pers In petOwnersJoin
        output.AppendFormat(
          pers.FirstName & ":" & vbTab & pers.PetName & vbCrLf)
    Next

    Console.WriteLine(output)

    ' Both queries produce the following output:
    '
    ' Magnus:    Daisy
    ' Terry:     Barley
    ' Terry:     Boots
    ' Terry:     Blue Moon
    ' Charlotte: Whiskers
End Sub

Выполнение левого внешнего соединения с помощью предложения Group Join

Левое внешнее соединение включает все элементы из левосторонней коллекции соединения и только совпадающие значения из правосторонней коллекции соединения. Все элементы из правосторонней коллекции соединения, у которых нет соответствующего элемента в левосторонней коллекции, исключаются из результатов запроса.

Предложение Group Join выполняет, в сущности, левое внешнее соединение. Различием между левым внешним соединением и предложением Group Join является то, что предложение Group Join возвращает соответствующие элементы из правосторонней коллекции объединения для каждого элемента в левосторонней коллекции. В реляционной базе данных левое внешнее соединение возвращает несгруппированный результат, в котором каждый элемент результата запроса содержит найденные элементы из обеих коллекций в соединении. В этом случае элементы из левосторонней коллекции соединения повторяются для каждого соответствующего элемента из правосторонней коллекции. Как это выглядит можно увидеть после выполнения следующей процедуры.

Можно получить результаты запроса Group Join в виде несгруппированного результата, расширяя запрос, чтобы объект возвращался для каждого сгруппированного результата запроса. Чтобы выполнить это, необходимо убедиться, что выполняется запрос для метода DefaultIfEmpty сгруппированной коллекции. Это гарантирует, что элементы из левосторонней коллекции соединения будут включены в результат запроса, даже если они не имеют совпадающих элементов из правосторонней коллекции. Можно добавить код к запросу для предоставления результирующего значения по умолчанию при отсутствии совпадающих значений из правосторонней коллекции объединения.

Выполнение левого внешнего соединения с помощью предложения Group Join

Добавьте следующий код в модуль Module1 проекта, чтобы просмотреть примеры сгруппированного левого внешнего соединения и несгруппированного левого внешнего соединения.

Sub LeftOuterJoinExample()
    ' Create two lists.
    Dim people = GetPeople()
    Dim pets = GetPets(people)

    ' Grouped results.
    Dim petOwnersGrouped = From pers In people
                           Group Join pet In pets
                             On pers Equals pet.Owner
                           Into PetList = Group
                           Select pers.FirstName, pers.LastName,
                                  PetList

    ' Display grouped results.
    Dim output As New System.Text.StringBuilder
    For Each pers In petOwnersGrouped
        output.AppendFormat(pers.FirstName & ":" & vbCrLf)
        For Each pt In pers.PetList
            output.AppendFormat(vbTab & pt.Name & vbCrLf)
        Next
    Next

    Console.WriteLine(output)
    ' This code produces the following output:
    '
    ' Magnus:
    '     Daisy
    ' Terry:
    '     Barley
    '     Boots
    '     Blue Moon
    ' Charlotte:
    '     Whiskers
    ' Arlene:

    ' "Flat" results.
    Dim petOwners = From pers In people
                    Group Join pet In pets On pers Equals pet.Owner
                    Into PetList = Group
                    From pet In PetList.DefaultIfEmpty()
                    Select pers.FirstName, pers.LastName,
                           PetName =
                             If(pet Is Nothing, String.Empty, pet.Name)


    ' Display "flat" results.
    output = New System.Text.StringBuilder()
    For Each pers In petOwners
        output.AppendFormat(
          pers.FirstName & ":" & vbTab & pers.PetName & vbCrLf)
    Next

    Console.WriteLine(output.ToString())
    ' This code produces the following output:
    '
    ' Magnus:       Daisy
    ' Terry:        Barley
    ' Terry:        Boots
    ' Terry:        Blue Moon
    ' Charlotte:    Whiskers
    ' Arlene:     
End Sub

Выполнение соединения с помощью составного ключа

Можно использовать ключевое слово And в предложении Join или Group Join для идентификации нескольких ключевых полей для использования при определении соответствия значений из соединяемых коллекций. Ключевое слово And определяет, что все указанные ключевые поля должны соответствовать элементам, которые будут присоединены.

Выполнение соединения с помощью составного ключа

Добавьте следующий код в модуль Module1 проекта, чтобы просмотреть примеры соединения, в которых используется составной ключ.

Sub CompositeKeyJoinExample()
    ' Create two lists.
    Dim people = GetPeople()
    Dim pets = GetPets(people)

    ' Implicit Join.
    Dim petOwners = From pers In people
                    Join pet In pets On
                      pet.Owner.FirstName Equals pers.FirstName And
                      pet.Owner.LastName Equals pers.LastName
                Select pers.FirstName, PetName = pet.Name

        ' Display grouped results.
    Dim output As New System.Text.StringBuilder
    For Each pers In petOwners
        output.AppendFormat(
          pers.FirstName & ":" & vbTab & pers.PetName & vbCrLf)
    Next

    Console.WriteLine(output)
    ' This code produces the following output:
    '
    ' Magnus:    Daisy
    ' Terry:     Barley
    ' Terry:     Boots
    ' Terry:     Blue Moon
    ' Charlotte: Whiskers
End Sub

Запустите код

Добавление кода для выполнения примеров

Чтобы выполнить примеры в этом разделе, замените Sub Main в модуле Module1 в проекте на следующий код.
```
Sub Main()
    InnerJoinExample()
    LeftOuterJoinExample()
    CompositeKeyJoinExample()

    Console.ReadLine()
End Sub
```
Нажмите клавишу F5 для запуска примеров.

См. также

Журнал изменений

Дата

Журнал

Причина

Март 2011

Изменено расположение выходных комментариев в примере и добавлен выходной комментарий в другой пример.

Обратная связь от клиента.

Практическое руководство. Объединение данных с помощью LINQ с использованием соединений (Visual Basic)

Создание проекта и добавление данных-образцов

Создание проекта, содержащего данные-образцы и типы

Выполнение внутреннего соединения с помощью предложения Join

Выполнение внутреннего соединения с помощью предложения Join

Выполнение левого внешнего соединения с помощью предложения Group Join

Выполнение левого внешнего соединения с помощью предложения Group Join

Выполнение соединения с помощью составного ключа

Выполнение соединения с помощью составного ключа

Запустите код

Добавление кода для выполнения примеров

См. также

Ссылки

Основные понятия

Другие ресурсы

Журнал изменений

Дополнительные ресурсы