Mega Code Archive
Query all Ford cars
<![CDATA[
Module Program
Sub Main()
Dim doc As XElement = XElement.Load("Inventory.xml")
Dim fords = From c In doc.Descendants("Make") _
Where c.Value = "Ford" _
Select c
For Each f In fords
Console.WriteLine(f)
Next
End Sub
End Module
]]>