Mega Code Archive

 

Categories / VB.Net / XML LINQ

 

Execute the query and loop through the results, displaying the Information to the screen

Imports System Imports System.Xml.Linq Imports System.Xml.XPath     Public Class MainClass         Public Shared Sub Main()             Dim employees As XElement = XElement.Load("EmployeesAndTasks.xml")             Dim linqQuery = From task In employees.<Employee>...<Task> _                             Select EmployeeName = task.Parent.Parent.<Name>.Value, _                                    TaskName = task.<Name>.Value, _                                    task.<Description>.Value _                             Order By EmployeeName             For Each task In linqQuery                 Console.WriteLine("{0,-15} - {1} ({2})", task.EmployeeName, task.TaskName, task.Description)             Next         End Sub     End Class