Guardar datos en XML con VB .NET

[aaronduran2]

Hola. Había encontrado un ejemplo que permitía guardar lo introducido en unos TextBox en XML como una base de datos, y posteriormente poder leerlos, pero ahora mismo no se donde encontrarlo. Agradecería algún ejemplo.

Gracias de antemano.

[Mace Windu]

Bien, he creado un sencillo ejemplo sobre cómo crear un archivo XML:

Código (vbnet) [Seleccionar] Expandir

Imports System.Xml

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Doc As New XmlDocument, Nodo As XmlNode

        Dim Lista As ArrayList = New ArrayList()

        Lista.Add("Mace Windu")
        Lista.Add("Kamui")
        Lista.Add("Chipbios")
        Lista.Add("Vengador de las Sombras")

        Nodo = Doc.CreateElement("Equipo")

        Doc.AppendChild(Nodo)

        For Each Elemento As String In Lista
            Nodo = Doc.CreateElement("Miembro")
            Nodo.InnerText = Elemento
            Doc.DocumentElement.AppendChild(Nodo)
        Next

        Doc.Save(Application.StartupPath & "\FoSTeaM.xml")
    End Sub
End Class

Y aquí para leer el archivo que creamos anteriormente:

Código (vbnet) [Seleccionar] Expandir

Imports System.Xml

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Doc As New XmlDocument, ListaNodos As XmlNodeList, Nodo As XmlNode
        Dim Lista As ArrayList = New ArrayList()

        Doc.Load(Application.StartupPath & "\FoSTeaM.xml")

        ListaNodos = Doc.SelectNodes("/Equipo/Miembro")

        For Each Nodo In ListaNodos
            Lista.Add(Nodo.ChildNodes.Item(0).InnerText)
        Next
    End Sub
End Class

Salu2

[aaronduran2]

Muchas gracias, me sirve igualmente.

Saludos 

[Mace Windu]

Muchas gracias, me sirve igualmente.

Saludos 

Me alegra que te sirviera.

Salu2