COMO CARREGAR DADOS DO XML PARA VBNET
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Cria uma instância de um documento XML
Dim oXML As New XmlDocument
'Define o caminho do arquivo XML
Dim ArquivoXML As String = txtNomeArquivo.Text
'carrega o arquivo XML
oXML.Load(ArquivoXML)
'Lê o filho de um Nó Pai específico
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
'*** Exibe Dados do aluno
lstDados.Items.Add(nomeAluno)
lstDados.Items.Add(idadeAluno)
lstDados.Items.Add(emailAluno)
'endereco do aluno
For i = 0 To 4
lstDados.Items.Add(oXML.SelectSingleNode("Alunos").ChildNodes(3).ChildNodes(i).InnerText)
Next
End Sub
3.78
9
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Cria uma instância de um documento XML
Dim oXML As New XmlDocument
Dim oNoLista As XmlNodeList
Dim oNo As XmlNode
'Define o caminho do arquivo XML
Dim ArquivoXML As String = txtNomeArquivo.Text
'carrega o arquivo XML
oXML.Load(ArquivoXML)
'Lê o filho de um Nó Pai específico
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
'*** Exibe Dados do aluno
lstDados.Items.Add(nomeAluno)
lstDados.Items.Add(idadeAluno)
lstDados.Items.Add(emailAluno)
' Define o nó para nova leitura
oNoLista = oXML.SelectNodes("/Alunos/Endereco")
'percorre os nós filhos do Nó especificaod e obtem o atributo e os valores
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
Thank you!
9
0
Are there any code examples left?
New code examples in category VBA