Como Utilizar Linq en vb.net
Resulta de mucha utilidad poder realizar estas consultas de datos dentro de la propia aplicación a traves de Linq, para no sobrecargarla y que esta , no consuma demasiada ram. Si solo es por curiosidad o tienes intención de utilizarla aquí te dejo el video y el código del video por si quieres probarlo o quieres usarlo como patrón. La verdad, una vez que empiezas a utilizarlo es muy fácil.
Espero que te sirva. como siempre primero el video
Aqui el codigo .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
'DATATABLE NOMBRES Dim dtNombres As New DataTable With dtNombres .Columns.Add("IdPais") .Columns.Add("Nombre") End With Dim dr As DataRow = dtNombres.NewRow dr("IdPais") = 1 dr("Nombre") = "Jose" dtNombres.Rows.Add(dr) dr = dtNombres.NewRow dr("IdPais") = 1 dr("Nombre") = "alberto" dtNombres.Rows.Add(dr) dr = dtNombres.NewRow dr("IdPais") = 2 dr("Nombre") = "Julian" dtNombres.TableName = "NOMBRES" dtNombres.Rows.Add(dr) dtNombres.AcceptChanges() 'DATATABLE Pais Dim dtpaises As New DataTable With dtpaises .Columns.Add("IdPais") .Columns.Add("NombrePais") End With Dim dr2 As DataRow = dtpaises.NewRow dr2("IdPais") = 1 dr2("NombrePais") = "España" dtpaises.Rows.Add(dr2) dr2 = dtpaises.NewRow dr2("IdPais") = 2 dr2("NombrePais") = "Mexico" dtpaises.TableName = "PAISES" dtpaises.Rows.Add(dr2) dtpaises.AcceptChanges() '''''DataRow simple Dim ResultadosNombresDr As EnumerableRowCollection = From Datos As DataRow In dtNombres Where Datos("Idpais") = 1 Select Datos For Each drR As DataRow In ResultadosNombresDr Dim str As String = drR("Nombre") Dim z = "" Next '''' Solo un campo Dim SoloNombre = From Datos As DataRow In dtNombres Where Datos("Idpais") = 1 Select Datos("Nombre") For i As Integer = 0 To SoloNombre.Count - 1 Dim StrNombre = SoloNombre(i) Next Dim Cruze = From P As DataRow In dtpaises.AsEnumerable Join N As DataRow In dtNombres.AsEnumerable On P("Idpais") Equals N("IdPais") Select {N("Nombre"), P("NombrePais")} For i As Integer = 0 To Cruze.Count - 1 Dim Nombre As String = Cruze(i)(0) Dim NombrePais As String = Cruze(i)(1) Dim strParada = "" Next |
Muchas Gracias y un saludo
Mi canal de youtube aqui