lecture xml avec un dataset
Dim DtSet As DataSet = New DataSet()
DtSet.ReadXml(fichier.xml, XmlReadMode.Auto)
Dim ligne As DataRow
Dim vid,vqty as string
For Each ligne In DtSet.Tables("ITEM").Rows
vid=ligne.Item("id")
vqty=ligne.Item("qty")
traite(vid,vqty)
Next
lecture xml avec xmldocument
Dim XmlDoc As XmlDocument = New XmlDocument()
XmlDoc.Load("fichier.XML")
Dim element As XmlNodeList
Dim noeud As XmlNode
Dim noeudEnf As XmlNode
Dim vid, vqty As String
'****recupere les elements du tag "Item"
XmlDoc.DocumentElement.GetElementsByTagName("Item")
'pour tout les noeuds present dans l'element "Item"
'on recupere l'id et le qty
For Each noeud In element
For Each noeudEnf In noeud.ChildNodes
If noeudEnf.LocalName = "id" Then
vid = noeudEnf.InnerText
ElseIf (noeudEnf.LocalName = "qty") Then
vqty = noeudEnf.InnerText
End If
Next
'affichage des données
traite(vid, vqty)
Next
Les tuts Xmlune source exemplea+,chris