Answer: //declare an XMLDoc and Attribute<br>dim Attr as XmlAttribute<br>dim doc as XmlDoc<br>doc.load("yourXMLpath")<br>'Create an Element <br>Dim elem As XmlElement = doc.CreateElement("Person")<br>'Create an Attribute<br> Attr = doc.CreateAttribute("Fname")<br>'Assign the value of ur text box <br> Attr.Value = txtFirstName.Text<br> elem.Attributes.SetNamedItem(Attr)<br> Attr = doc.CreateAttribute("Lname")<br> Attr.Value = txtLastName.Text<br> elem.Attributes.SetNamedItem(Attr)<br><br> Dim root As XmlNode = doc.DocumentElement<br> root.AppendChild(elem)<br>'Save the documnet<br> doc.Save("d:Gayathri.xml")<br><br>Sample Output:<br><br><?xml version="1.0" encoding="utf-8"?><br><PassengerDetails><br> <Person Fname="sri" Lname="krishna" /><br> <Person Fname="ram" Lname="krishna" /><br></PassengerDetails>
Question:
How to pass text box values to an XML? Answer:
//declare an XMLDoc and Attribute<br>dim Attr as XmlAttribute<br>dim doc as XmlDoc<br>doc.load("yourXMLpath")<br>'Create an Element <br>Dim elem As XmlElement = doc.CreateElement("Person")<br>'Create an Attribute<br> Attr = doc.CreateAttribute("Fname")<br>'Assign the value of ur text box <br> Attr.Value = txtFirstName.Text<br> elem.Attributes.SetNamedItem(Attr)<br> Attr = doc.CreateAttribute("Lname")<br> Attr.Value = txtLastName.Text<br> elem.Attributes.SetNamedItem(Attr)<br><br> Dim root As XmlNode = doc.DocumentElement<br> root.AppendChild(elem)<br>'Save the documnet<br> doc.Save("d:Gayathri.xml")<br><br>Sample Output:<br><br><?xml version="1.0" encoding="utf-8"?><br><PassengerDetails><br> <Person Fname="sri" Lname="krishna" /><br> <Person Fname="ram" Lname="krishna" /><br></PassengerDetails> Source: CoolInterview.com