如何：通过 LINQ 使用联接合并数据 (Visual Basic)

项目
08/12/2011

Visual Basic 提供 Join 和 Group Join 查询子句，使您可以基于集合之间的公共值将多个集合的内容合并在一起。这些值称为键值。熟悉关系数据库概念的开发人员会发现，实际上 Join 子句相当于 INNER JOIN，Group Join 子句相当于 LEFT OUTER JOIN。

本主题中的示例演示一些使用 Join 和 Group Join 查询子句组合数据的方式。

创建项目和添加示例数据

创建包含示例数据和类型的项目

若要运行本主题中的示例，请打开 Visual Studio，添加一个新的 Visual Basic 控制台应用程序项目。双击 Visual Basic 创建的 Module1.vb 文件。

本主题中的示例使用 Person 和 Pet 类型以及下面的代码示例中的数据。将这段代码复制到 Visual Basic 所创建的默认 Module1 模块中。

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 子句执行内部联接

INNER JOIN 将两个集合的数据合并在一起。指定的键值相匹配的项包括在内。在另一集合中没有匹配项的所有集合项都排除在外。

在 Visual Basic 中，LINQ 提供两个选项来执行 INNER JOIN：隐式联接和显式联接。

隐式联接在 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 子句执行左外部联接

LEFT OUTER JOIN 包括联接左侧集合中的所有项，而对于联接的右侧集合，它仅包含其中的匹配值。联接的右侧集合中的项如果在联接的左侧集合中没有匹配项，则会排除在查询结果之外。

Group Join 子句实际上执行 LEFT OUTER JOIN。通常所称的 LEFT OUTER JOIN 与 Group Join 子句的返回结果之间的差异在于，Group Join 子句对联接的右侧集合的结果按左侧集合中的每一项进行分组。在关系数据库中，LEFT OUTER 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

使用复合键执行联接

在 Join 或 Group Join 子句中，可以使用 And 关键字来标识在对联接的集合中的值进行匹配时要使用的多个键字段。 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

运行代码

添加代码以运行示例

用下面的代码替换项目中的 Module1 模块的 Sub Main，运行本主题中的示例。

Sub Main()
    InnerJoinExample()
    LeftOuterJoinExample()
    CompositeKeyJoinExample()

    Console.ReadLine()
End Sub

按 F5 键运行示例。

请参见

修订记录

日期

修订记录

原因

2011 年 3 月

更改了示例中输出注释的位置，并向另一示例中添加了一条输出注释。

客户反馈

通过

如何：通过 LINQ 使用联接合并数据 (Visual Basic)

创建项目和添加示例数据

创建包含示例数据和类型的项目

使用 Join 子句执行内部联接

使用 Join 子句执行内部联接

使用 Group Join 子句执行左外部联接

使用 Group Join 子句执行左外部联接

使用复合键执行联接

使用复合键执行联接

运行代码

添加代码以运行示例

请参见

参考

概念

其他资源

修订记录

其他资源