creating a xml file using VB

• • Reply

  14 years ago

  by harish139

  a

  , Grenada

  Joined 14 years ago

  I want to create a xml file using VB i am using MSXML 4.0 parser.
  anybody plz help me
  

  my xml should look like this

  <detail>

  <person>
  <age>some dat</age>
  <name>some data</dat.
  <address>some data<address>
  <person>
  
  
  
  

  <person>
  <age>some dat</age>
  <name>some data</dat.
  <address>some data<address>
  <person>
  
  
  
  

  <person>
  <age>some dat</age>
  <name>some data</dat.
  <address>some data<address>
  <person>
  
  
  
  

  </detail>
  
  

  Report abuse
• • Reply

  14 years ago

  by dbhota

  Deepak Hota

  , India

  Joined 14 years ago

  You can very well do this, using the DOM (Document Object Model).
  
  Search examples on DOM, u will surely get some....if not, then let me know...will surely help u out....
  
  
  
  

  Report abuse
• • Reply

  14 years ago

  by harish139

  a

  , Grenada

  Joined 14 years ago

  i do able to create an xml file with the following info

  <person>
  <age>some dat</age>
  <name>some data</dat.
  <address>some data<address>
  <person>
  
  
  
  
  
  

  problem is i want to add the above info multiple times could u please tell me how to do this

  Report abuse
• • Reply

  14 years ago

  by dbhota

  Deepak Hota

  , India

  Joined 14 years ago
  use the below example....which may help you in doing so
  
  [Code]
  

  Private Sub Command1_Click()
      Dim rsXML As New ADODB.Recordset
      Dim sSQL As String, sConn As String
      
      sSQL = "SELECT customerid, companyname, contactname FROM customers"
      sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Common Files\System\msadc\samples\NWind.mdb"
      rsXML.CursorLocation = adUseClient
      rsXML.Open sSQL, sConn, adOpenStatic
  
      Dim xDOM As New MSXML.DOMDocument
      Dim x2DOM As New MSXML.DOMDocument
      Dim dataNodeList As IXMLDOMNodeList
      Dim dataNode, rowNode, newNode, newRoot, newNode2 As IXMLDOMNode
      
      rsXML.Save "C:\temp\rsDOM.xml", adPersistXML
      ' Save Recordset directly into a DOM tree.
      rsXML.Save xDOM, adPersistXML
      Set dataNodeList = xDOM.getElementsByTagName("rs:data")
      Set dataNode = dataNodeList.Item(0)
      
      ' Create a new Node under new DOM.
      Set newRoot = x2DOM.createNode(NODE_ELEMENT, "recordset", "")
      ' Append root node.
      Set newRoot = x2DOM.appendChild(newRoot)
      
      i = 0
      ' Loop through all z:row nodes.
      While i < dataNode.childNodes.length
          ' Get to the z:row node.
          Set rowNode = dataNode.childNodes.Item(i)
  
          Set newNode = x2DOM.createNode(NODE_ELEMENT, "row", "")
          ' Append row node under new root.
          Set newNode = newRoot.appendChild(newNode)      
          
          j = 0
          ' Loop through all attributes of z:row.
          While j < rowNode.Attributes.length
          
              ' Create new element for column name.
              Set newNode2 = x2DOM.createNode(NODE_ELEMENT, rowNode.Attributes.Item(j).baseName, "") 
              ' Assign column value to new node value.
              newNode2.Text = rowNode.Attributes.Item(j).Text
              
              ' Append new column node under new node.
              Set newNode2 = newNode.appendChild(newNode2)
              
              j = j + 1
          Wend
          
          i = i + 1
      Wend
      
      x2DOM.Save "C:\temp\rsCustData.xml"
  End Sub
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  

  [/Code]
  
  
  
  
  
  
  
  
  
  Report abuse