Click here to Skip to main content
12,296,188 members (59,303 online)
Click here to Skip to main content
Add your own
alternative version


35 bookmarked

Process Data With in XML File

, 28 Aug 2006
Rate this:
Please Sign up or sign in to vote.
Process Data With in XML File

Sample Image - WritingDataInXMLFile.jpg


This Article Illustrate how to process data within XML File. For this Article I have developed a small Application that allows users to:

·         Read Data from XML file and display it in the ASP.NET DataGrid Control.

·         Write Data in XML File.

·         Updating Data in XML File.


Getting Started

There are 2 main files:

1.     Products.xml

2.     ItemXML.vb 

XML file (Products.xml) contains three elements

  1. ItemID ‘ functioning as a primary key
  2. ProductName
  3. Price


<SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><o:p></o:p> <?xml version="1.0" standalone="yes"?>
    <ProductName>8-23 hours </ProductName>
    <ProductName>1 day</ProductName>

ItemXML.vb contains all the business logic that I have used to process XML File

  1. GetAll ( Return All the Items from XML File)
  2. Insert
  3. Update
  4. GetByID (Its Takes ItemID return the requested item detail from XML File)

Reading Data from XML file and Binding it with DataGrid


I have used DataSet Object’s ReadXML method to Read data from XML file and then bind it to DataGrid control.


Public Function GetAll(ByVal Path As String) As DataTable
            Dim dt As New DataTable
            Dim ds As New DataSet
            ds.ReadXml(Path & "/Products.xml")
            Dim dt_ret As DataTable = ds.Tables(0) 
            Return dt_ret
        End Function
Dim ObjXMLData as New BusinessLayer.ItemXML
            dt = ObjXMLData.GetAll(Server.MapPath("/").ToString())
            DataGrid1.DataSource = dt

Variable ‘Path’ contains Server.MapPath(“/”) .. The Server.MapPath is not Accessible from the Class file, that is why I have sent it from the code behind file.

Inserting Data in XML File

Public Function Insert(ByVal ProductName As String, ByVal Price As Long, ByVal Path As String) As Long
               Dim dr As DataRow
               Dim ds As New DataSet
               ds.ReadXml(Path & "/Products.xml")
        dr = ds.Tables(0).NewRow
        dr("ItemID") = CType(ds.Tables(0).Rows(ds.Tables(0).Rows.Count - 1)("ItemID"), Long) + 1
        dr("ProductName") = ProductName
        dr("Price") = Price
        ds.WriteXml(Path & "/Products.xml", XmlWriteMode.WriteSchema)
        Return 1
    Catch ex As Exception
        Return 0
    End Try
End Function

Insert function takes 3 parameters (ProductName, Price, Path).

Item ID will be generated automatically by incrementing the last item ID in XML file by using the code:


dr("ItemID") = CType(ds.Tables(0).Rows(ds.Tables(0).Rows.Count - 1)("ItemID"), Long) + 1


ds.Tables(0).Rows.Count -1 gives the last index value of the DataSet object



For Writing to the XML File, I am using WriteXml method of the DataSet that takes the path of the file as a Parameter.


Note: set permissions on the directory, if you do NOT want to make ALL files writeable, you could probably get away with setting the permissions on the Products.xml file itself.

Updating Data in XML File


To achieve the updating process, I have used quite similar process as I have done in the Insertion. Here I am getting the Item ID from the QueryString and then compared it with all the ItemID’s from the XML file. If the ItemID exists, insert the new row at the same index value.


ObjXMLData.Update(Request.QueryString("Product_ID"), Txt_ProductName.Text, Txt_Price.Text, Server.MapPath("/").ToString)

Public Function Update(ByVal Item_ID As Long, ByVal ProductName As String, ByVal Price As Long, ByVal Path As String) As Long
               Dim ds As New DataSet
               ds.ReadXml(Path & "/Products.xml")
               Dim dr As DataRow
               dr = ds.Tables(0).NewRow
               Dim a As Integer
               Dim b As Integer
               For b = 0 To ds.Tables(0).Rows.Count - 1
                   If Item_ID = ds.Tables(0).Rows(b)("ItemID") Then
ds.Tables(0).Rows(b)("ItemID") = Item_ID
ds.Tables(0).Rows(b)("ProductName") = ProductName
ds.Tables(0).Rows(b)("Price") = Price
ds.WriteXml(Path & "/Products.xml", XmlWriteMode.WriteSchema)
        End If
    Return 1
Catch ex As Exception
    Return 0
End Try
End Function

That’s all for this little topic. The code snippet used above is just to explain and is not complete. Download the complete source code from the zip file (download link is on the top).

I am not used to of writing Articles infect this is first Article and u could have some problems understanding what I have done so far.

For any kind of help contact me:


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


About the Author

Arshad Raheed
Software Developer
Pakistan Pakistan
Arshad Rasheed is working as a Software Developer at Hambra Consulting. He is a Microsoft Certified professional for Developing and Implementing Web Applications using VS.NET 2003, and working on .Net Technologies from last 3 years.

You may also be interested in...

Comments and Discussions

GeneralQuestion Pin
HirenjPatel16-Apr-07 0:26
memberHirenjPatel16-Apr-07 0:26 
GeneralExcellent example Pin
Gabriel Cassalho15-Apr-07 15:38
memberGabriel Cassalho15-Apr-07 15:38 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web01 | 2.8.160525.2 | Last Updated 29 Aug 2006
Article Copyright 2006 by Arshad Raheed
Everything else Copyright © CodeProject, 1999-2016
Layout: fixed | fluid