Linq EF

Un poquito de Linq, pero Linq usado con Entity. La web está llena de ejemplos como si fuera consultas a sql y cuando se quiere usar como una lista de objetos los ejemplos no abundan tanto.

Lo primero mi clase

Public Class User

    Private _id As String

    Private _nombre As String

    Private _class As String

    Public Property Clase() As String

        Get

            Return _class

        End Get

        Set(ByVal value As String)

            _class = value

        End Set

    End Property

    Public Property ID() As String

        Get

            Return _id

        End Get

        Set(ByVal value As String)

            _id = value

        End Set

    End Property

    Public Property Nombre() As String

        Get

            Return _nombre

        End Get

        Set(ByVal value As String)

            _nombre = value

        End Set

    End Property

End Class

Luego lo rellenamos método clásico

        Dim lst As List(Of User) = New List(Of User)

        lst.Add(New User() With {.ID = 1, .Nombre = "Ana1", .Clase = "A"})

        lst.Add(New User() With {.ID = 2, .Nombre = "Ana2", .Clase = "B"})

        lst.Add(New User() With {.ID = 3, .Nombre = "Ana3", .Clase = "A"})

        lst.Add(New User() With {.ID = 4, .Nombre = "Ana4", .Clase = "B"})

        lst.Add(New User() With {.ID = 5, .Nombre = "Ana5", .Clase = "A"})

        lst.Add(New User() With {.ID = 6, .Nombre = "Ana6", .Clase = "B"})

        lst.Add(New User() With {.ID = 7, .Nombre = "Ana7", .Clase = "A"})

        lst.Add(New User() With {.ID = 8, .Nombre = "Ana8", .Clase = "B"})

        lst.Add(New User() With {.ID = 9, .Nombre = "Ana9", .Clase = "A"})

        lst.Add(New User() With {.ID = 10, .Nombre = "Ana10", .Clase = "B"})

        Dim frutas() As String = {"manzana", "plantano", "fresa", "pera", "melon", "sandia"}

     Dim Precios() As Integer = {5, 6, 7, 8, 9, 10}

     Dim objRet As User

     Dim sRet As String

     Dim iRet As String

Y ahora lo interesante lo ejemplos..
Single

        objRet = lst.Single(Function(x) x.ID = 1)

        sRet = frutas.Single(Function(x) x = "pera")

        iRet = Precios.Single(Function(x) x = 5)

        Console.WriteLine(objRet.Nombre) ' Ana1

        Console.WriteLine(sRet) 'pera

        Console.WriteLine(iRet) '5

        Try

            ' no existe - Exception La secuencia no contiene ningún elemento coincidente

            objRet = lst.Single(Function(x) x.ID = 11)

            sRet = frutas.Single(Function(x) x = "peras")

            iRet = Precios.Single(Function(x) x = 4)

        Catch ex As Exception

        End Try

SingleOrDefault

Try

            objRet = lst.SingleOrDefault(Function(x) x.ID = 11)  '=> nothing

            sRet = frutas.SingleOrDefault(Function(x) x = "peras") '=> nothing

            iRet = Precios.SingleOrDefault(Function(x) x = 4)  ' => 0

            Console.WriteLine(objRet.Nombre) '  Exception

            Console.WriteLine(sRet) ' no falla porque imprime ''

            Console.WriteLine(iRet) ' 0

        Catch ex As Exception

        End Try

 

Mi problema está con el objeto, no quiero un nothing quiero el objeto. Alguno más tiene o ha tenido el mimos problema .

Así que olvida el SingleOrDefault , FirstOrDefault , LastOrDefault porque los resultado serán los mismo

objRet = lst.Where(Function(x) x.ID = 11).DefaultIfEmpty(New User()).First()  '=> Objeto

sRet = frutas.Where(Function(x) x = "peras").DefaultIfEmpty("Juan").First() '=> "Juan"

iRet = Precios.Where(Function(x) x = 4).DefaultIfEmpty(999).First()  ' => 999

Console.WriteLine(objRet.Nombre) ' 

Console.WriteLine(sRet) ' Juan

Console.WriteLine(iRet) '  999

Ahora otra curiosidad, que pasa cuando en una lista hacemos un group by. ¿Cómo se recorren los resultados? 

Try

            Dim lstAgrupado As IEnumerable(Of IGrouping(Of String, User)) = lst.GroupBy(Function(x) x.Clase)

            Dim lstAgrupado2 = lst.GroupBy(Function(x) x.Clase)

            '  Quiero saber cuantos grupos me salieron

            Console.WriteLine("Lista de grupos ")

            For Each sgrupo In lstAgrupado

                Console.WriteLine(sgrupo.Key)

            Next

            Console.WriteLine(" Fin: Lista de grupos")

            'Quiero todos los valores ( vale es un tonteria que ya los tenia en la lista inicial)

            Console.WriteLine("Lista de valores ")

            For Each sgrupo In lstAgrupado.SelectMany(Function(x) x)

                Console.WriteLine(sgrupo.Nombre)

            Next

            Console.WriteLine("Fin : Lista de valores ")

            Console.WriteLine("Todo junto ")

            For Each sgrupo In lstAgrupado

                Console.WriteLine("Key:" & sgrupo.Key)

                For Each sMigrupo In lstAgrupado.Single(Function(x) x.Key = sgrupo.Key)

                    Console.WriteLine(sMigrupo.Nombre)

                Next

                Console.WriteLine("Fin")

            Next

            Console.WriteLine("Fin: Todo junto")

        Catch ex As Exception

        End Try

Y adjunto la imagen de salida