Foro de elhacker.net

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.

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

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:

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

Muchas gracias, me sirve igualmente.

Saludos  ;)

Me alegra que te sirviera.

Salu2