dim ContactXML as MyXML
 
dim contact = from c in ContactXML _
              where c.name = "Hans"
              Select c
 
'Oder so änlich
 
dim ContactXML as MyXSD
 
dim contact = from c in ContactXSD _
              where c.name = "Hans"
              Select c

<?xml version="1.0" encoding="utf-8" ?>
<books>
    <book id="1">
        <name>SQL Server 2005</name>
        <publisher>entwickler.press</publisher>
    </book>
    <book id="2">
        <name>Software testen</name>
        <publisher>mitp</publisher>
    </book>
    <book id="3">
        <name>SQL IT-Tutorial</name>
        <publisher>mitp</publisher>
    </book>
    <book id="4">
        <name>Software Factories</name>
        <publisher>mitp</publisher>
    </book>
</books>

        Dim doc = XDocument.Load("Books.xml")
 
        Dim mitpBook = From book In doc...<book> _
                       Where book.<publisher>.Value = "mitp" _
                       Select book.<name>.Value
 
        For Each book In mitpBook
            Console.WriteLine(book)
        Next

Dim books = From book In doc...<book> _
                    Where CInt(book.@id) < 3 _
                    Select book.<name>.Value

Ralf

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Ralf

Ralf