Save no me guarda los cambios
He aquà mi fichero "prueba2.xml"
<?xml version="1.0" encoding="utf-8"?>
<vehiculo>
<marca>volkswagen</marca>
<modelo>golf</modelo>
</vehiculo>
luego tengo dos un form con un boton y dos textbox:
Tedxtbox1 para mostrar el nombre de ultimo elemento del vehiculo es decir "modelo"
Textbox2 que muesta el numero de elementos (en el primer click de boton será dos logicamente)
he aquà el codigo mas sencillo imposible
Public Class Form1
Dim xDoc As New System.Xml.XmlDocument
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
xDoc.Load("prueba2.xml")
Dim nod As System.Xml.XmlElement
Dim text As System.Xml.XmlText
nod = xDoc.CreateElement("cilindros")
text = xDoc.CreateTextNode("4")
TextBox1.Text = xDoc.DocumentElement.LastChild.Name
TextBox2.Text = xDoc.DocumentElement.ChildNodes.Count.ToString
xDoc.DocumentElement.AppendChild(nod)
xDoc.DocumentElement.LastChild.AppendChild(text)
xDoc.Save("prueba2.xml")
End Sub
End Class
El caso es que añade elemento "cilindros" . si hago varios clicks va aumentando el numero de elemntos etc... pero no graba nada!!!
entro en el fichero y esta igual !!
NO da errores pero no graba nada, creeis que puede ser?? Gracias
<?xml version="1.0" encoding="utf-8"?>
<vehiculo>
<marca>volkswagen</marca>
<modelo>golf</modelo>
</vehiculo>
luego tengo dos un form con un boton y dos textbox:
Tedxtbox1 para mostrar el nombre de ultimo elemento del vehiculo es decir "modelo"
Textbox2 que muesta el numero de elementos (en el primer click de boton será dos logicamente)
he aquà el codigo mas sencillo imposible
Public Class Form1
Dim xDoc As New System.Xml.XmlDocument
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
xDoc.Load("prueba2.xml")
Dim nod As System.Xml.XmlElement
Dim text As System.Xml.XmlText
nod = xDoc.CreateElement("cilindros")
text = xDoc.CreateTextNode("4")
TextBox1.Text = xDoc.DocumentElement.LastChild.Name
TextBox2.Text = xDoc.DocumentElement.ChildNodes.Count.ToString
xDoc.DocumentElement.AppendChild(nod)
xDoc.DocumentElement.LastChild.AppendChild(text)
xDoc.Save("prueba2.xml")
End Sub
End Class
El caso es que añade elemento "cilindros" . si hago varios clicks va aumentando el numero de elemntos etc... pero no graba nada!!!
entro en el fichero y esta igual !!
NO da errores pero no graba nada, creeis que puede ser?? Gracias