COMO CARREGAR DADOS DO XML PARA VBNET code example
Example 1: COMO CARREGAR DADOS DO XML PARA VBNET
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oXML As New XmlDocument
Dim ArquivoXML As String = txtNomeArquivo.Text
oXML.Load(ArquivoXML)
Dim nomeAluno As String = oXML.SelectSingleNode("Alunos").ChildNodes(0).InnerText
Dim idadeAluno As String = oXML.SelectSingleNode("Alunos").ChildNodes(1).InnerText
Dim emailAluno As String = oXML.SelectSingleNode("Alunos").ChildNodes(2).InnerText
lstDados.Items.Add(nomeAluno)
lstDados.Items.Add(idadeAluno)
lstDados.Items.Add(emailAluno)
For i = 0 To 4
lstDados.Items.Add(oXML.SelectSingleNode("Alunos").ChildNodes(3).ChildNodes(i).InnerText)
Next
End Sub
Example 2: COMO CARREGAR DADOS DO XML PARA VBNET
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oXML As New XmlDocument
Dim oNoLista As XmlNodeList
Dim oNo As XmlNode
Dim ArquivoXML As String = txtNomeArquivo.Text
oXML.Load(ArquivoXML)
Dim nomeAluno As String = oXML.SelectSingleNode("Alunos").ChildNodes(0).InnerText
Dim idadeAluno As String = oXML.SelectSingleNode("Alunos").ChildNodes(1).InnerText
Dim emailAluno As String = oXML.SelectSingleNode("Alunos").ChildNodes(2).InnerText
lstDados.Items.Add(nomeAluno)
lstDados.Items.Add(idadeAluno)
lstDados.Items.Add(emailAluno)
oNoLista = oXML.SelectNodes("/Alunos/Endereco")
For Each oNo In oNoLista
lstDados.Items.Add(oNo.Attributes.GetNamedItem("tipo").Value)
lstDados.Items.Add(oNo.ChildNodes.Item(0).InnerText)
lstDados.Items.Add(oNo.ChildNodes.Item(1).InnerText)
lstDados.Items.Add(oNo.ChildNodes.Item(2).InnerText)
lstDados.Items.Add(oNo.ChildNodes.Item(3).InnerText)
lstDados.Items.Add(oNo.ChildNodes.Item(4).InnerText)
Next
End Sub