none
Salvar arquivo xml indexado ao nome RRS feed

  • Pergunta

  • tenho um arquivo xml

    como exemplo ele tem os campos

    nome, telefone e sobrenome

    telefone e sobrenome estao em textbox

    o nome esta em uma combobox, quando mudo o nome da combobox

    as informações (telefone e sobrenome) são preenchidas nas textbox

    quero que quando alterar alguma informaçao dos campos telefone e sobrenome do respectivo nome selecionado

    e clicar em salvar, ele atualize as informações no xml

     

    segue o codigo

     

    Public Class Form1
      Dim nome As String
      Dim doc As New XmlDocument
    
      
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        carregaxml()
    
      End Sub
      Sub carregaxml()
        Try
          doc.Load("contatos.xml")
        Catch ex As Exception
          MsgBox("Erro ao ler arquivo XML.")
          Exit Sub
        End Try
        Dim nodes As XmlNodeList = doc.SelectNodes("Agenda/contato")
    
    
        For Each element As XmlElement In nodes
    
          nome = element.SelectSingleNode("nome").InnerText
          ComboBox1.Items.Add(nome)
    
        Next
        ComboBox1.SelectedIndex = 0
      End Sub
    

    
    
      Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Text = doc.SelectNodes("Agenda/contato").Item(ComboBox1.SelectedIndex).SelectSingleNode("telefone").InnerText
        TextBox2.Text = doc.SelectNodes("Agenda/contato").Item(ComboBox1.SelectedIndex).SelectSingleNode("sobrenome").InnerText
      End Sub
    End Class

    como seria a função para salvar as informações alteradas nas textbox no xml?

    obrigado

    sexta-feira, 24 de setembro de 2010 13:25

Respostas