방법: 조인을 사용하여 데이터와 LINQ 결합(Visual Basic)

아티클
03/12/2024

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 절을 사용하여 Left Outer 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 키를 눌러 예제를 실행합니다.

다음을 통해 공유