XML and datasets

i have the following xml file:

Code:

---

<?xml version="1.0" encoding="utf-8" ?>
<settings>
        <wallpapers>
                <Name>THREE_DIMENSIONAL</Name>
                <Url>www.3d.com</Url>
        </wallpapers>
        <wallpapers>
                <Name>MALES</Name>
                <Url>www.males.com</Url>
        </wallpapers>
        <wallpapers>
                <Name>FEMALES</Name>
                <Url>www.females.com</Url>
        </wallpapers>
</settings>

---

now i want to get for the URL for THREE_DIMENSIONAL..how do i do this thru a dataset? also, if the only way evolves changing the xml's format there is absolutily no problem

thanks in advance

With a dataset you can use the select method to get a filtered set of datarows:

VB Code:

Dim ds As New DataSet()
        ds.ReadXml("..\test.xml")
        Dim dr() As DataRow = ds.Tables(0).Select("Name='THREE_DIMENSIONAL'")
        If dr.Length > 0 Then
            MsgBox(dr(0)("URL").ToString)
        End If

Or you can use a dataview:

VB Code:

Dim ds As New DataSet()
        ds.ReadXml("..\test.xml")
        Dim dv As New DataView(ds.Tables(0), "Name='THREE_DIMENSIONAL'", "Name", DataViewRowState.CurrentRows)
        If dv.Table.Rows.Count > 0 Then
            MsgBox(dv.Table.Rows(0)("URL").ToString)
        End If

sorry to ask but whats the difference between the dataset and dataview?

A dataview is a filtered view of a dataset. Sort of like in SQL there are Tables and there are Views.

Here is the samething using an XMLDocument instead:

VB Code:

Dim xDoc As New Xml.XmlDocument()
        xDoc.Load("..\test.xml")
        Dim xNode As Xml.XmlNode = xDoc.SelectSingleNode("/settings/wallpapers[Name=""THREE_DIMENSIONAL""]")
        If Not xNode Is Nothing Then
            MsgBox(xNode.ChildNodes(1).InnerText)
        End If

i used this and worked like a charm:

VB Code:

Dim ds As New DataSet()
        ds.ReadXml("..\test.xml")
        Dim dr() As DataRow = ds.Tables(0).Select("Name='THREE_DIMENSIONAL'")
        If dr.Length > 0 Then
            MsgBox(dr(0)("URL").ToString)
        End If

tks :D