XML ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. XML
  4. Use DataGrid to edit data in XML (VB net)
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

   private i, j as integer
   private strOutput as string = ""
   public xmldoc as new XMLDataDocument()
   
   sub Page_Load(Sender as Object, e as EventArgs)
      if not Page.IsPostBack then
         GetData()
         BindControl()
      end if
   end sub
   
   sub UpdateBtn_Click(Sender as Object, e as EventArgs)
      dim Title as TextBox
      dim Genre as TextBox
      dim Style as TextBox
      dim Price as TextBox
      
      GetData()
      
      'update data
      For i = 0 To DataGrid1.Items.Count-1
         Title = DataGrid1.Items(i).FindControl("Title")
         Genre = DataGrid1.Items(i).FindControl("Genre")
         Price = DataGrid1.Items(i).FindControl("Price")
      
         xmldoc.DataSet.Tables(0).Rows(i)("title") = Title.Text
         xmldoc.DataSet.Tables(0).Rows(i)("genre") = Genre.Text
         xmldoc.DataSet.Tables(0).Rows(i)("price") = Price.Text
      Next
      
      try
         xmldoc.Save(Server.MapPath("Data.xml"))
      catch
         output.Text = "Error updating data"
      end try
      
      BindControl()
   end sub
   
   sub GetData()
      try
         xmldoc.DataSet.ReadXml(Server.MapPath("Data.xml"))
      catch ex as Exception
         output.Text = "Error accessing XML file"
      end try
   end sub
   
   sub BindControl()
      DataGrid1.DataSource = xmldoc.DataSet
      DataGrid1.DataMember = xmldoc.DataSet.Tables(0).TableName
      DataGrid1.DataBind()
   end sub


   
   
         BorderColor="black" 
      GridLines="Vertical" 
      HeaderStyle-BackColor="#cccc99"
      ItemStyle-BackColor="#ffffff"
      AlternatingItemStyle-Backcolor="#cccccc" 
      AutogenerateColumns="false" >
      
         
            
                                 Text='<%# Container.DataItem("title") %>' />
            
         
         
            
                                 Text='<%# Container.DataItem("genre") %>' 
                  width="75px" />
            
         
         
            
                                 Text='<%# Container.DataItem("price") %>'
                  width="50px" />
            
         
           
   
   
   

         OnClick="UpdateBtn_Click"
      text="Update!" />
   

   


File: Data.xml


  
    asdf
    
      asdf
      asdf
    
    asdf
  
  
    asdf
    
      asdf
      asdf
    
    asdf
  
  
    asdf
    
      asdf
      asdf
    
    asdf