XML and datasets

[PT Exorcist]

i have the following xml file:

<?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

[Edneeis]

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

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:

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

[PT Exorcist]

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

[Edneeis]

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:

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

[PT Exorcist]

i used this and worked like a charm:

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