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
This was first published in June 2003