xml noder om igen

Hej alle

Jeg læser nationalbankens xml fil med valuta kurser !

men jeg kan kun læse raten og ikke beskrivelsen ("desc")

håber nogen har en ide ......?

Function Hentdata() As ICollection

Dim reader As XmlTextReader = New XmlTextReader("http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml")

Dim objNode_desc As String
Dim objNode_rate As String
Dim objNode_rowcount As Integer
Dim i As Integer

Dim dtbl As New DataTable
Dim dr As DataRow
Dim dv As New DataView(dtbl)

Dim objNodes As New XmlDocument
objNodes.Load(reader)
Dim oNodes As XmlNodeList
oNodes = objNodes.SelectNodes("//currency")


objNode_rowcount = oNodes.Count - 1


dtbl.Columns.Add(New DataColumn("StringValue", GetType(String)))

dtbl.Columns.Add(New DataColumn("CurrencyValue", GetType(Double)))


For i = 0 To objNode_rowcount

dr = dtbl.NewRow()
objNode_desc = Val(oNodes(i).Attributes.GetNamedItem("desc").Value)' ----------------DISSE DATA I NODE_SETTET... KAN JEG IKKE LÆSE FRA XML KILDEN

objNode_rate = Val(oNodes(i).Attributes.GetNamedItem("rate").Value)

dr(0) = objNode_desc
dr(1) = objNode_rate
dtbl.Rows.Add(dr)
Next i

dgvalutakurser.DataSource = dv
dgvalutakurser.DataBind()

End Function

Jens

[Redigeret d. 16/08-05 06:05:51 af Nauticom]