ADO provides a rich infrastructure for interacting with a wide variety of data, including XML. With DataSets we can now read and write to an XML file with ease.
The following code sample demonstrates how to read and write to an XML file. We are going to read and write an XML file with the details as under:
<?xml version="1.0" standalone="yes" ?>
<Detail>
<Person>
<Name>Manish</Name>
<Age>22</Age>
</Person>
</Detail>
Class : xml.vb
Imports System
Class WriteXML
Shared Sub main()
Dim objDataSet As New System.Data.DataSet()
Dim strVirtualPath As String = "t.xml"
'Load the XML file in the data set
objDataSet.ReadXml("xmlfile.xml")
'Read the XML content on the console
Console.Write(objDataSet.GetXml)
'Get data from the user to be saved in the XML file
Console.Write("Enter Name : ")
Dim fname, age As String
fname = Console.ReadLine
Console.Write("Enter Age : ")
age = Console.ReadLine
Console.Write(fname & age)
Dim v(1) As String
v(0) = fname
v(1) = age
'Add the data to the data set
objDataSet.Tables(0).Rows.Add(v)
'Write to updated data back to the XMl file
objDataSet.WriteXml("xmlfile.xml")
Console.Write(objDataSet.GetXml)
End Sub
End Class
Compile the file as:
vbc /r:system.dll /r:system.data.dll /r:system.xml.dll xml.vb
Source: DotNetExtreme.com
This was first published in June 2003