How do I read and write data to an XML file?

The following code demonstrates how to read and write to an XML file.

 
<?xml version="1.0" standalone="yes"?> 
  <Document>
    <Customer>
      <Name>Sandeep</Name> 
      <Age>23</Age> 
       <Occupation>Developer</Occupation>
 </Customer>
</Document> 
Imports System
Class WriteToXML
    Shared Sub main()
      Dim dset As New System.Data.DataSet()
      Dim str As String = "Test.xml"
      'Load the XML file in the data set
      dset.ReadXml("Test.xml")
      'Read the XML content on the console
      Console.Write(dset.GetXml)
      'Getting data from the user to be saved into the XML file
      Console.Write("Enter Name : ")
      Dim name, age, occupation As String
      name = Console.ReadLine
      Console.Write("Enter Age : ")
      age = Console.ReadLine
      Console.Write("Enter Occupation : ")
      occupation = Console.ReadLine
      Console.Write(name & age & occupation)
      Dim v(1) As String
      v(0) = fname
      v(1) = age
      v(2)=occupation
      dset.Tables(0).Rows.Add(v)
     dset.WriteXml("Test.xml")
     Console.Write(dset.GetXml)
    End

When you run this code, the data from the XML file will be displayed. Also the data you enter will be updated into the XML file.

Written by Sandeep Mogulla, Webmaster at www.startvbdotnet.com

VB FAQ Index

 

Advertisement

Free Magazine