Поделиться через


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

Обновлен: Ноябрь 2007

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

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

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

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

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

  2. Образцы в этом разделе используют типы 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 _firstName As String
      Public _lastName As String
    
      Public Property FirstName() As String
        Get
          Return _firstName
        End Get
        Set(ByVal value As String)
          _firstName = value
        End Set
      End Property
    
      Public Property LastName() As String
        Get
          Return _lastName
        End Get
        Set(ByVal value As String)
          _lastName = value
        End Set
      End Property
    End Class
    
    Class Pet
      Public _name As String
      Public _owner As Person
    
      Public Property Name() As String
        Get
          Return _name
        End Get
        Set(ByVal value As String)
          _name = value
        End Set
      End Property
    
      Public Property Owner() As Person
        Get
          Return _owner
        End Get
        Set(ByVal value As Person)
          _owner = value
        End Set
      End Property
    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)
    
      ' "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)
      ' This code produces the following output:
      '
      ' Magnus:
      '     Daisy
      ' Terry:
      '     Barley
      '     Boots
      '     Blue Moon
      ' Charlotte:
      '     Whiskers
      ' Arlene:
    
    
      ' 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())
    End Sub
    
    ' This code produces the following output:
    '
    ' Magnus:       Daisy
    ' Terry:        Barley
    ' Terry:        Boots
    ' Terry:        Blue Moon
    ' Charlotte:    Whiskers
    ' Arlene:     
    

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

Можно использовать ключевое слово 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)
    End Sub
    

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

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

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

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

См. также

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

Знакомство с LINQ в Visual Basic

Ссылки

Предложение Join (Visual Basic)

Предложение Group Join (Visual Basic)

Условие From (Visual Basic)

Предложение Where (Visual Basic)

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

LINQ в Visual Basic

Запросы (Visual Basic)