' Leggere un File XML di questo tipo e visualizzarlo in un DataGridView di nome
' File Demo.xml
'<?xml version="1.0" encoding="utf-8" standalone="yes"?>
'<Articoli_Table>
' <articolo>
' <Id>1</Id>
' <Codice>172-32-1176</Codice>
' <Marca>TOSHIBA</Marca>
' <Modello>e-STUDIO456SE</Modello>
' <Descrizione>Multifunzione TOSHIBA a e-STUDIO456SE</Descrizione>
' <Offerta>True</Offerta>
' </articolo>
' <articolo>
' <Id>2</Id>
' <Codice>172-32-1174</Codice>
' <Marca>TOSHIBA</Marca>
' <Modello>e-STUDIO356SE</Modello>
' <Descrizione>Multifunzione TOSHIBA a e-STUDIO356SE</Descrizione>
' <Offerta>False</Offerta>
' </articolo>
'</Articoli_Table>
Dim filePath As String = "c:\Demo.xml"
Dim AuthorsDataSet As New DataSet
Private Sub CaricaDataGridView_1_XML(ByVal filePaths As String)
AuthorsDataSet.ReadXml(filePaths)
DataGridView1.DataSource = AuthorsDataSet
DataGridView1.DataMember = "articolo"
End Sub
Private Sub CaricaDataGridView_2_XML(ByVal filePaths As String)
Dim xmlFile As XmlReader
xmlFile = XmlReader.Create(filePaths, New XmlReaderSettings())
Dim datasets As New DataSet
datasets.ReadXml(xmlFile)
DataGridView1.DataSource = datasets.Tables(0)
End Sub
Private Sub btnLeggiXML_1_Click(sender As System.Object, e As System.EventArgs) Handles btnLeggiXML_1.Click
CaricaDataGridView_1_XML(filePath)
End Sub
Private Sub btnLeggiXML_2_Click(sender As System.Object, e As System.EventArgs) Handles btnLeggiXML_2.Click
CaricaDataGridView_2_XML(filePath)
End Sub
End Class