<?xml version="1.0"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="ru">
		<id>http://www.vbex.ru/index.php?action=history&amp;feed=atom&amp;title=VB.Net%2FLINQ%2FQuery</id>
		<title>VB.Net/LINQ/Query - История изменений</title>
		<link rel="self" type="application/atom+xml" href="http://www.vbex.ru/index.php?action=history&amp;feed=atom&amp;title=VB.Net%2FLINQ%2FQuery"/>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VB.Net/LINQ/Query&amp;action=history"/>
		<updated>2026-04-05T00:08:27Z</updated>
		<subtitle>История изменений этой страницы в вики</subtitle>
		<generator>MediaWiki 1.30.0</generator>

	<entry>
		<id>http://www.vbex.ru/index.php?title=VB.Net/LINQ/Query&amp;diff=14&amp;oldid=prev</id>
		<title> в 16:40, 26 мая 2010</title>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VB.Net/LINQ/Query&amp;diff=14&amp;oldid=prev"/>
				<updated>2010-05-26T16:40:06Z</updated>
		
		<summary type="html">&lt;p&gt;&lt;/p&gt;
&lt;table class=&quot;diff diff-contentalign-left&quot; data-mw=&quot;interface&quot;&gt;
				&lt;tr style=&quot;vertical-align: top;&quot; lang=&quot;ru&quot;&gt;
				&lt;td colspan=&quot;1&quot; style=&quot;background-color: white; color:black; text-align: center;&quot;&gt;← Предыдущая&lt;/td&gt;
				&lt;td colspan=&quot;1&quot; style=&quot;background-color: white; color:black; text-align: center;&quot;&gt;Версия 16:40, 26 мая 2010&lt;/td&gt;
				&lt;/tr&gt;&lt;tr&gt;&lt;td colspan=&quot;2&quot; style=&quot;text-align: center;&quot; lang=&quot;ru&quot;&gt;&lt;div class=&quot;mw-diff-empty&quot;&gt;(нет различий)&lt;/div&gt;
&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;</summary>
			</entry>

	<entry>
		<id>http://www.vbex.ru/index.php?title=VB.Net/LINQ/Query&amp;diff=15&amp;oldid=prev</id>
		<title>Admin: 1 версия</title>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VB.Net/LINQ/Query&amp;diff=15&amp;oldid=prev"/>
				<updated>2010-05-26T12:41:33Z</updated>
		
		<summary type="html">&lt;p&gt;1 версия&lt;/p&gt;
&lt;p&gt;&lt;b&gt;Новая страница&lt;/b&gt;&lt;/p&gt;&lt;div&gt;==A select statement against object list==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Imports System.Reflection&lt;br /&gt;
Imports System&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Public Class Role&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public RoleDescription As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Person&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public IDRole As Integer&lt;br /&gt;
    Public LastName As String&lt;br /&gt;
    Public FirstName As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Salary&lt;br /&gt;
    Public IDPerson As Integer&lt;br /&gt;
    Public Year As Integer&lt;br /&gt;
    Public SalaryYear As Double&lt;br /&gt;
End Class&lt;br /&gt;
Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim people As New List(Of Person)(New Person() { _&lt;br /&gt;
            New Person With {.ID = 1, .IDRole = 1, .LastName = &amp;quot;A&amp;quot;, .FirstName = &amp;quot;Brad&amp;quot;}, _&lt;br /&gt;
            New Person With {.ID = 2, .IDRole = 2, .LastName = &amp;quot;G&amp;quot;, .FirstName = &amp;quot;Tom&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim roles As New List(Of Role)(New Role() { _&lt;br /&gt;
            New Role With {.ID = 1, .RoleDescription = &amp;quot;Manager&amp;quot;}, _&lt;br /&gt;
            New Role With {.ID = 2, .RoleDescription = &amp;quot;Developer&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
&lt;br /&gt;
        Dim salaries As New List(Of Salary)(New Salary() { _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2004, .SalaryYear = 10000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2005, .SalaryYear = 15000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 2, .Year = 2005, .SalaryYear = 15000.0} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim query = From p In people Select p&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Convert Linq result to Array==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Option Explicit On&lt;br /&gt;
Option Strict On&lt;br /&gt;
Module Program&lt;br /&gt;
  Sub Main()&lt;br /&gt;
    Dim numbers() As Integer = {10, 20, 30, 40, 1, 2, 3, 8}&lt;br /&gt;
    Dim subsetAsIntArray() As Integer = (From i In numbers Where i &amp;lt; 10 Select i).ToArray()&lt;br /&gt;
  End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Convert Linq result to List==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Option Explicit On&lt;br /&gt;
Option Strict On&lt;br /&gt;
Module Program&lt;br /&gt;
  Sub Main()&lt;br /&gt;
    Dim numbers() As Integer = {10, 20, 30, 40, 1, 2, 3, 8}&lt;br /&gt;
    Dim subsetAsListOfInts As List(Of Integer) = (From i In numbers Where i &amp;lt; 10 Select i).ToList()&lt;br /&gt;
  End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Convert query to a list of string==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Imports System.Reflection&lt;br /&gt;
Imports System&lt;br /&gt;
&lt;br /&gt;
Public Class Role&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public RoleDescription As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Person&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public IDRole As Integer&lt;br /&gt;
    Public LastName As String&lt;br /&gt;
    Public FirstName As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Salary&lt;br /&gt;
    Public IDPerson As Integer&lt;br /&gt;
    Public Year As Integer&lt;br /&gt;
    Public SalaryYear As Double&lt;br /&gt;
End Class&lt;br /&gt;
Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim people As New List(Of Person)(New Person() { _&lt;br /&gt;
            New Person With {.ID = 1, .IDRole = 1, .LastName = &amp;quot;A&amp;quot;, .FirstName = &amp;quot;Brad&amp;quot;}, _&lt;br /&gt;
            New Person With {.ID = 2, .IDRole = 2, .LastName = &amp;quot;G&amp;quot;, .FirstName = &amp;quot;Tom&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim roles As New List(Of Role)(New Role() { _&lt;br /&gt;
            New Role With {.ID = 1, .RoleDescription = &amp;quot;Manager&amp;quot;}, _&lt;br /&gt;
            New Role With {.ID = 2, .RoleDescription = &amp;quot;Developer&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim salaries As New List(Of Salary)(New Salary() { _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2004, .SalaryYear = 10000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2005, .SalaryYear = 15000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 2, .Year = 2005, .SalaryYear = 15000.0} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim query = From p In people _&lt;br /&gt;
            Where p.LastName.Length = 4 _&lt;br /&gt;
            Select p.LastName&lt;br /&gt;
        Dim names As List(Of String) = query.ToList()&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Create a query expression==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Imports System.Collections.Generic&lt;br /&gt;
Public Class Car&lt;br /&gt;
  Public PetName As String = String.Empty&lt;br /&gt;
  Public Color As String = String.Empty&lt;br /&gt;
  Public Speed As Integer&lt;br /&gt;
  Public Make As String = String.Empty&lt;br /&gt;
  Public Overloads Overrides Function ToString() As String&lt;br /&gt;
    Return String.Format(&amp;quot;Make={0}, Color={1}, Speed={2}, PetName={3}&amp;quot;, _&lt;br /&gt;
      Make, Color, Speed, PetName)&lt;br /&gt;
  End Function&lt;br /&gt;
End Class&lt;br /&gt;
Module Program&lt;br /&gt;
  Sub Main()&lt;br /&gt;
        Dim myCars As New List(Of Car)(New Car() { _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;D&amp;quot;, .Color = &amp;quot;Silver&amp;quot;, .Speed = 100, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;C&amp;quot;, .Color = &amp;quot;Tan&amp;quot;, .Speed = 90, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;B&amp;quot;, .Color = &amp;quot;Rust&amp;quot;, .Speed = 5, .Make = &amp;quot;Yugo&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;A&amp;quot;, .Color = &amp;quot;White&amp;quot;, .Speed = 43, .Make = &amp;quot;Ford&amp;quot;}})&lt;br /&gt;
    Dim fastCars = From c In myCars Where _&lt;br /&gt;
      c.Speed &amp;gt; 90 And c.Make = &amp;quot;BMW&amp;quot; Select c&lt;br /&gt;
    For Each car In fastCars&lt;br /&gt;
      Console.WriteLine(&amp;quot;{0} is going too fast!&amp;quot;, car.PetName)&lt;br /&gt;
    Next&lt;br /&gt;
  End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Filter by name length==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Imports System.Reflection&lt;br /&gt;
Imports System&lt;br /&gt;
&lt;br /&gt;
Public Class Role&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public RoleDescription As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Person&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public IDRole As Integer&lt;br /&gt;
    Public LastName As String&lt;br /&gt;
    Public FirstName As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Salary&lt;br /&gt;
    Public IDPerson As Integer&lt;br /&gt;
    Public Year As Integer&lt;br /&gt;
    Public SalaryYear As Double&lt;br /&gt;
End Class&lt;br /&gt;
Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim people As New List(Of Person)(New Person() { _&lt;br /&gt;
            New Person With {.ID = 1, .IDRole = 1, .LastName = &amp;quot;A&amp;quot;, .FirstName = &amp;quot;Brad&amp;quot;}, _&lt;br /&gt;
            New Person With {.ID = 2, .IDRole = 2, .LastName = &amp;quot;G&amp;quot;, .FirstName = &amp;quot;Tom&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim roles As New List(Of Role)(New Role() { _&lt;br /&gt;
            New Role With {.ID = 1, .RoleDescription = &amp;quot;Manager&amp;quot;}, _&lt;br /&gt;
            New Role With {.ID = 2, .RoleDescription = &amp;quot;Developer&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim salaries As New List(Of Salary)(New Salary() { _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2004, .SalaryYear = 10000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2005, .SalaryYear = 15000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 2, .Year = 2005, .SalaryYear = 15000.0} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim query = From p In people _&lt;br /&gt;
            Where p.LastName.Length = 4 _&lt;br /&gt;
            Select p.LastName&lt;br /&gt;
        Dim names As String() = query.ToArray()&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Find the cars that are going less than 55 mph, and order by descending PetName==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
&lt;br /&gt;
Public Class Car&lt;br /&gt;
  Public PetName As String = String.Empty&lt;br /&gt;
  Public Color As String = String.Empty&lt;br /&gt;
  Public Speed As Integer&lt;br /&gt;
  Public Make As String = String.Empty&lt;br /&gt;
  Public Overloads Overrides Function ToString() As String&lt;br /&gt;
    Return String.Format(&amp;quot;Make={0}, Color={1}, Speed={2}, PetName={3}&amp;quot;, Make, Color, Speed, PetName)&lt;br /&gt;
  End Function&lt;br /&gt;
End Class&lt;br /&gt;
Module Program&lt;br /&gt;
  Sub Main()&lt;br /&gt;
        Dim myCars As New List(Of Car)(New Car() { _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;D&amp;quot;, .Color = &amp;quot;Silver&amp;quot;, .Speed = 100, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;C&amp;quot;, .Color = &amp;quot;Tan&amp;quot;, .Speed = 90, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;B&amp;quot;, .Color = &amp;quot;Rust&amp;quot;, .Speed = 5, .Make = &amp;quot;Yugo&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;A&amp;quot;, .Color = &amp;quot;White&amp;quot;, .Speed = 43, .Make = &amp;quot;Ford&amp;quot;}})&lt;br /&gt;
&lt;br /&gt;
    Dim subset = From c In myCars _&lt;br /&gt;
      Where c.Speed &amp;gt; 55 Order By c.PetName Descending Select c&lt;br /&gt;
    Console.WriteLine(vbLf + &amp;quot;Cars going faster than 55, ordered by PetName:&amp;quot;)&lt;br /&gt;
    For Each c As Car In subset&lt;br /&gt;
      Console.WriteLine(&amp;quot;Car {0}&amp;quot;, c)&lt;br /&gt;
    Next&lt;br /&gt;
 &lt;br /&gt;
  End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Get all cars. Similar to Select * in SQL==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Public Class Car&lt;br /&gt;
    Public PetName As String = String.Empty&lt;br /&gt;
    Public Color As String = String.Empty&lt;br /&gt;
    Public Speed As Integer&lt;br /&gt;
    Public Make As String = String.Empty&lt;br /&gt;
    Public Overloads Overrides Function ToString() As String&lt;br /&gt;
        Return String.Format(&amp;quot;Make={0}, Color={1}, Speed={2}, PetName={3}&amp;quot;, Make, Color, Speed, PetName)&lt;br /&gt;
    End Function&lt;br /&gt;
End Class&lt;br /&gt;
Module Program&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim myCars As New List(Of Car)(New Car() { _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;D&amp;quot;, .Color = &amp;quot;Silver&amp;quot;, .Speed = 100, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;C&amp;quot;, .Color = &amp;quot;Tan&amp;quot;, .Speed = 90, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;B&amp;quot;, .Color = &amp;quot;Rust&amp;quot;, .Speed = 5, .Make = &amp;quot;Yugo&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;A&amp;quot;, .Color = &amp;quot;White&amp;quot;, .Speed = 43, .Make = &amp;quot;Ford&amp;quot;}})&lt;br /&gt;
        Dim allCars = From c In myCars Select c&lt;br /&gt;
        For Each c In allCars&lt;br /&gt;
            Console.WriteLine(&amp;quot;Car: {0}&amp;quot;, c)&lt;br /&gt;
        Next&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Get differences==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Public Class Car&lt;br /&gt;
    Public PetName As String = String.Empty&lt;br /&gt;
    Public Color As String = String.Empty&lt;br /&gt;
    Public Speed As Integer&lt;br /&gt;
    Public Make As String = String.Empty&lt;br /&gt;
    Public Overloads Overrides Function ToString() As String&lt;br /&gt;
        Return String.Format(&amp;quot;Make={0}, Color={1}, Speed={2}, PetName={3}&amp;quot;, _&lt;br /&gt;
          Make, Color, Speed, PetName)&lt;br /&gt;
    End Function&lt;br /&gt;
End Class&lt;br /&gt;
Module Program&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim myCars As New List(Of Car)(New Car() { _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;D&amp;quot;, .Color = &amp;quot;Silver&amp;quot;, .Speed = 100, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;C&amp;quot;, .Color = &amp;quot;Tan&amp;quot;, .Speed = 90, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;B&amp;quot;, .Color = &amp;quot;Rust&amp;quot;, .Speed = 5, .Make = &amp;quot;Yugo&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;A&amp;quot;, .Color = &amp;quot;White&amp;quot;, .Speed = 43, .Make = &amp;quot;Ford&amp;quot;}})&lt;br /&gt;
&lt;br /&gt;
        Dim myCarsName As String() = {&amp;quot;Y&amp;quot;, &amp;quot;A&amp;quot;, &amp;quot;B&amp;quot;}&lt;br /&gt;
        Dim yourCars As String() = {&amp;quot;B&amp;quot;, &amp;quot;S&amp;quot;, &amp;quot;A&amp;quot;}&lt;br /&gt;
        &amp;quot; Find the differences.&lt;br /&gt;
        Dim carDiff = (From c In myCarsName Select c) _&lt;br /&gt;
          .Except(From c2 In yourCars Select c2)&lt;br /&gt;
        For Each s As String In carDiff&lt;br /&gt;
            Console.WriteLine(s)&lt;br /&gt;
        Next&lt;br /&gt;
&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Get only the pet names==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Public Class Car&lt;br /&gt;
  Public PetName As String = String.Empty&lt;br /&gt;
  Public Color As String = String.Empty&lt;br /&gt;
  Public Speed As Integer&lt;br /&gt;
  Public Make As String = String.Empty&lt;br /&gt;
  Public Overloads Overrides Function ToString() As String&lt;br /&gt;
    Return String.Format(&amp;quot;Make={0}, Color={1}, Speed={2}, PetName={3}&amp;quot;, Make, Color, Speed, PetName)&lt;br /&gt;
  End Function&lt;br /&gt;
End Class&lt;br /&gt;
Module Program&lt;br /&gt;
  Sub Main()&lt;br /&gt;
        Dim myCars As New List(Of Car)(New Car() { _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;D&amp;quot;, .Color = &amp;quot;Silver&amp;quot;, .Speed = 100, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;C&amp;quot;, .Color = &amp;quot;Tan&amp;quot;, .Speed = 90, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;B&amp;quot;, .Color = &amp;quot;Rust&amp;quot;, .Speed = 5, .Make = &amp;quot;Yugo&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;A&amp;quot;, .Color = &amp;quot;White&amp;quot;, .Speed = 43, .Make = &amp;quot;Ford&amp;quot;}})&lt;br /&gt;
&lt;br /&gt;
    Dim allNames = From c In myCars Select c.PetName&lt;br /&gt;
    For Each n In allNames&lt;br /&gt;
      Console.WriteLine(&amp;quot;Pet Name: {0}&amp;quot;, n)&lt;br /&gt;
    Next&lt;br /&gt;
  End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Join Person and Salaries lists to get the max and min salary==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Imports System.Reflection&lt;br /&gt;
Imports System&lt;br /&gt;
&lt;br /&gt;
Public Class Role&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public RoleDescription As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Person&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public IDRole As Integer&lt;br /&gt;
    Public LastName As String&lt;br /&gt;
    Public FirstName As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Salary&lt;br /&gt;
    Public IDPerson As Integer&lt;br /&gt;
    Public Year As Integer&lt;br /&gt;
    Public SalaryYear As Double&lt;br /&gt;
End Class&lt;br /&gt;
Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim people As New List(Of Person)(New Person() { _&lt;br /&gt;
            New Person With {.ID = 1, .IDRole = 1, .LastName = &amp;quot;A&amp;quot;, .FirstName = &amp;quot;Brad&amp;quot;}, _&lt;br /&gt;
            New Person With {.ID = 2, .IDRole = 2, .LastName = &amp;quot;G&amp;quot;, .FirstName = &amp;quot;Tom&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim roles As New List(Of Role)(New Role() { _&lt;br /&gt;
            New Role With {.ID = 1, .RoleDescription = &amp;quot;Manager&amp;quot;}, _&lt;br /&gt;
            New Role With {.ID = 2, .RoleDescription = &amp;quot;Developer&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
&lt;br /&gt;
        Dim salaries As New List(Of Salary)(New Salary() { _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2004, .SalaryYear = 10000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2005, .SalaryYear = 15000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 2, .Year = 2005, .SalaryYear = 15000.0} _&lt;br /&gt;
        })&lt;br /&gt;
        &lt;br /&gt;
        Dim query = From p In people, s In salaries _&lt;br /&gt;
            Where p.ID = 1 _&lt;br /&gt;
            Select s.SalaryYear&lt;br /&gt;
        Console.WriteLine(&amp;quot;Minimum Salary:&amp;quot;)&lt;br /&gt;
        Console.WriteLine(query.Min())&lt;br /&gt;
        Console.WriteLine(&amp;quot;Maximum Salary:&amp;quot;)&lt;br /&gt;
        Console.WriteLine(query.Max())&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Join two object lists together==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
&lt;br /&gt;
Imports System.Reflection&lt;br /&gt;
Imports System&lt;br /&gt;
&lt;br /&gt;
Public Class Role&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public RoleDescription As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Person&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public IDRole As Integer&lt;br /&gt;
    Public LastName As String&lt;br /&gt;
    Public FirstName As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Salary&lt;br /&gt;
    Public IDPerson As Integer&lt;br /&gt;
    Public Year As Integer&lt;br /&gt;
    Public SalaryYear As Double&lt;br /&gt;
End Class&lt;br /&gt;
Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim people As New List(Of Person)(New Person() { _&lt;br /&gt;
            New Person With {.ID = 1, .IDRole = 1, .LastName = &amp;quot;A&amp;quot;, .FirstName = &amp;quot;Brad&amp;quot;}, _&lt;br /&gt;
            New Person With {.ID = 2, .IDRole = 2, .LastName = &amp;quot;G&amp;quot;, .FirstName = &amp;quot;Tom&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim roles As New List(Of Role)(New Role() { _&lt;br /&gt;
            New Role With {.ID = 1, .RoleDescription = &amp;quot;Manager&amp;quot;}, _&lt;br /&gt;
            New Role With {.ID = 2, .RoleDescription = &amp;quot;Developer&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
&lt;br /&gt;
        Dim salaries As New List(Of Salary)(New Salary() { _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2004, .SalaryYear = 10000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2005, .SalaryYear = 15000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 2, .Year = 2005, .SalaryYear = 15000.0} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim query = From p In people, r In roles _&lt;br /&gt;
            Where p.ID = 1 AndAlso r.ID = p.IDRole _&lt;br /&gt;
            Select New With {p.FirstName, p.LastName, r.RoleDescription}&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Linq Over Array==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
&lt;br /&gt;
Option Explicit On&lt;br /&gt;
Option Strict On&lt;br /&gt;
Module Program&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim currentVideoGames As String() = {&amp;quot;A&amp;quot;, &amp;quot;B&amp;quot;, &amp;quot;C&amp;quot;, &amp;quot;this is a test&amp;quot;, &amp;quot;D&amp;quot;, &amp;quot;E&amp;quot;}&lt;br /&gt;
        Dim subset As IEnumerable(Of String) = From game In currentVideoGames Where game.Length &amp;gt; 6 Order By game Select game&lt;br /&gt;
        For Each s As String In subset&lt;br /&gt;
            Console.WriteLine(&amp;quot;Item: {0}&amp;quot;, s)&lt;br /&gt;
        Next&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Linq Over int Array==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
&lt;br /&gt;
Option Explicit On&lt;br /&gt;
Option Strict On&lt;br /&gt;
Module Program&lt;br /&gt;
  Sub Main()&lt;br /&gt;
    Dim numbers() As Integer = {10, 20, 30, 40, 1, 2, 3, 8}&lt;br /&gt;
    Dim subset = From i In numbers Where i &amp;lt; 10 Select i&lt;br /&gt;
    For Each i In subset&lt;br /&gt;
      Console.WriteLine(&amp;quot;{0} &amp;lt; 10&amp;quot;, i)&lt;br /&gt;
    Next&lt;br /&gt;
    numbers(0) = 4&lt;br /&gt;
    For Each i In subset&lt;br /&gt;
      Console.WriteLine(&amp;quot;{0} &amp;lt; 10&amp;quot;, i)&lt;br /&gt;
    Next&lt;br /&gt;
    Console.WriteLine(subset.GetType().Name)&lt;br /&gt;
    Console.WriteLine(subset.GetType().Assembly)&lt;br /&gt;
  End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Query String Array With Operators==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Module Program&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim currentVideoGames As String() = {&amp;quot;A&amp;quot;, &amp;quot;B&amp;quot;, &amp;quot;this is a test&amp;quot;, &amp;quot;C&amp;quot;, &amp;quot;D&amp;quot;, &amp;quot;E&amp;quot;}&lt;br /&gt;
        Dim searchFilter As New Func(Of String, Boolean)(AddressOf Filter)&lt;br /&gt;
        Dim itemToProcess As New Func(Of String, String)(AddressOf ProcessItem)&lt;br /&gt;
        Dim subset = currentVideoGames.Where(searchFilter).OrderBy(itemToProcess).Select(itemToProcess)&lt;br /&gt;
        For Each game In subset&lt;br /&gt;
            Console.WriteLine(&amp;quot;Item: {0}&amp;quot;, game)&lt;br /&gt;
        Next&lt;br /&gt;
    End Sub&lt;br /&gt;
    Function Filter(ByVal str As String) As Boolean&lt;br /&gt;
        Return str.Length &amp;gt; 6&lt;br /&gt;
    End Function&lt;br /&gt;
    Function ProcessItem(ByVal str As String) As String&lt;br /&gt;
        Return str&lt;br /&gt;
    End Function&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Reflector Linq result==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Option Explicit On&lt;br /&gt;
Option Strict On&lt;br /&gt;
Module Program&lt;br /&gt;
  Sub Main()&lt;br /&gt;
    Dim numbers() As Integer = {10, 20, 30, 40, 1, 2, 3, 8}&lt;br /&gt;
    Dim subset = From i In numbers Where i &amp;lt; 10 Select i&lt;br /&gt;
    For Each i In subset&lt;br /&gt;
      Console.WriteLine(&amp;quot;{0} &amp;lt; 10&amp;quot;, i)&lt;br /&gt;
    Next&lt;br /&gt;
    numbers(0) = 4&lt;br /&gt;
    For Each i In subset&lt;br /&gt;
      Console.WriteLine(&amp;quot;{0} &amp;lt; 10&amp;quot;, i)&lt;br /&gt;
    Next&lt;br /&gt;
    Console.WriteLine(subset.GetType().Name)&lt;br /&gt;
    Console.WriteLine(subset.GetType().Assembly)&lt;br /&gt;
  End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Select by a Property==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Public Class Car&lt;br /&gt;
  Public PetName As String = String.Empty&lt;br /&gt;
  Public Color As String = String.Empty&lt;br /&gt;
  Public Speed As Integer&lt;br /&gt;
  Public Make As String = String.Empty&lt;br /&gt;
  Public Overloads Overrides Function ToString() As String&lt;br /&gt;
    Return String.Format(&amp;quot;Make={0}, Color={1}, Speed={2}, PetName={3}&amp;quot;, Make, Color, Speed, PetName)&lt;br /&gt;
  End Function&lt;br /&gt;
End Class&lt;br /&gt;
Module Program&lt;br /&gt;
  Sub Main()&lt;br /&gt;
    Dim myCars As New List(Of Car)(New Car() { _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;D&amp;quot;, .Color = &amp;quot;Silver&amp;quot;, .Speed = 100, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;C&amp;quot;, .Color = &amp;quot;Tan&amp;quot;, .Speed = 90, .Make = &amp;quot;BMW&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;B&amp;quot;, .Color = &amp;quot;Rust&amp;quot;, .Speed = 5, .Make = &amp;quot;Yugo&amp;quot;}, _&lt;br /&gt;
    New Car With {.PetName = &amp;quot;A&amp;quot;, .Color = &amp;quot;White&amp;quot;, .Speed = 43, .Make = &amp;quot;Ford&amp;quot;}})&lt;br /&gt;
    Dim onlyBMWs = From c In myCars Where c.Make = &amp;quot;BMW&amp;quot; Select c&lt;br /&gt;
    For Each n In onlyBMWs&lt;br /&gt;
      Console.WriteLine(&amp;quot;Name: {0}&amp;quot;, n)&lt;br /&gt;
    Next&lt;br /&gt;
  End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Select by object id==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Imports System.Collections.Generic&lt;br /&gt;
Imports System.Linq&lt;br /&gt;
Imports System.Runtime.rupilerServices&lt;br /&gt;
Public Class Person&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public IDRole As Integer&lt;br /&gt;
    Public LastName As String&lt;br /&gt;
    Public FirstName As String&lt;br /&gt;
End Class&lt;br /&gt;
&lt;br /&gt;
Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim people As New List(Of Person)(New Person() { _&lt;br /&gt;
            New Person With {.ID = 1, .IDRole = 1, .LastName = &amp;quot;A&amp;quot;, .FirstName = &amp;quot;Brad&amp;quot;}, _&lt;br /&gt;
            New Person With {.ID = 2, .IDRole = 2, .LastName = &amp;quot;G&amp;quot;, .FirstName = &amp;quot;Tom&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
&lt;br /&gt;
        Dim query = From p In people Where p.ID = 1 Select p&lt;br /&gt;
&lt;br /&gt;
    End Sub&lt;br /&gt;
&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Using where clause to check the first name of a Persion==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;  &lt;br /&gt;
Imports System.Reflection&lt;br /&gt;
Imports System&lt;br /&gt;
&lt;br /&gt;
Public Class Role&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public RoleDescription As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Person&lt;br /&gt;
    Public ID As Integer&lt;br /&gt;
    Public IDRole As Integer&lt;br /&gt;
    Public LastName As String&lt;br /&gt;
    Public FirstName As String&lt;br /&gt;
End Class&lt;br /&gt;
Public Class Salary&lt;br /&gt;
    Public IDPerson As Integer&lt;br /&gt;
    Public Year As Integer&lt;br /&gt;
    Public SalaryYear As Double&lt;br /&gt;
End Class&lt;br /&gt;
Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim people As New List(Of Person)(New Person() { _&lt;br /&gt;
            New Person With {.ID = 1, .IDRole = 1, .LastName = &amp;quot;A&amp;quot;, .FirstName = &amp;quot;Brad&amp;quot;}, _&lt;br /&gt;
            New Person With {.ID = 2, .IDRole = 2, .LastName = &amp;quot;G&amp;quot;, .FirstName = &amp;quot;Tom&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim roles As New List(Of Role)(New Role() { _&lt;br /&gt;
            New Role With {.ID = 1, .RoleDescription = &amp;quot;Manager&amp;quot;}, _&lt;br /&gt;
            New Role With {.ID = 2, .RoleDescription = &amp;quot;Developer&amp;quot;} _&lt;br /&gt;
        })&lt;br /&gt;
&lt;br /&gt;
        Dim salaries As New List(Of Salary)(New Salary() { _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2004, .SalaryYear = 10000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 1, .Year = 2005, .SalaryYear = 15000.0}, _&lt;br /&gt;
                New Salary With {.IDPerson = 2, .Year = 2005, .SalaryYear = 15000.0} _&lt;br /&gt;
        })&lt;br /&gt;
        Dim query = From p In people Where p.FirstName = &amp;quot;B&amp;quot; Select p&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&lt;br /&gt;
   &lt;br /&gt;
    &lt;br /&gt;
  &amp;lt;/source&amp;gt;&lt;/div&gt;</summary>
		<author><name>Admin</name></author>	</entry>

	</feed>