VB & XML

• • Reply

  15 years ago

  by nvanderheyden

  nvanderheyden

  Brussel, Belgium

  Joined 18 years ago

  I want to create a simple XML file. What is wrong with this code :
  

  
  

  Code:

  
  

  
  Option Explicit
  Public mobjDOMPeople As DOMDocument
  Public mblnItemClicked As Boolean
  Public m_strXmlPath As String
  

  
  Sub Form_Load()
  

  
   Dim objPerson As IXMLDOMElement
   Dim objNewChild As IXMLDOMElement
  

  
   Set mobjDOMPeople = New DOMDocument
   Set objPerson = mobjDOMPeople.createElement("PERSON")
   objPerson.setAttribute "PERSONID", 1
  

  
   mobjDOMPeople.documentElement.appendChild objPerson
   
   Set objNewChild = mobjDOMPeople.createElement("NAME")
   objNewChild.Text = "Your Name"
   objPerson.appendChild objNewChild
   
   Set objNewChild = mobjDOMPeople.createElement("ADDRESS")
   objNewChild.Text = "Your Address"
   objPerson.appendChild objNewChild
   
   Set objNewChild = mobjDOMPeople.createElement("TEL")
   objNewChild.Text = "Your Phone"
   objPerson.appendChild objNewChild
   
   Set objNewChild = mobjDOMPeople.createElement("FAX")
   objNewChild.Text = "Your Fax"
   objPerson.appendChild objNewChild
   
   Set objNewChild = mobjDOMPeople.createElement("EMAIL")
   objNewChild.Text = "Your Email"
   objPerson.appendChild objNewChild
   
   m_objDOMPeople.save ("c:\test\test.xml")
   
   Set objPerson = Nothing
   Set objNewChild = Nothing
  

  
  End Sub
  

  
  

  
  Thanks.

  Report abuse
• • Reply

  15 years ago

  by sync_or_swim

  Rob Bickel

  S. Wales, United Kingdom

  Joined 15 years ago

  What happens when you run it?  Does it give you an error message or just unexpected output?

  Report abuse
• • Reply

  15 years ago

  by nvanderheyden

  nvanderheyden

  Brussel, Belgium

  Joined 18 years ago

  Object variable or With Block Variable not set.
  

  
  

  
  

  Report abuse
• • Reply

  15 years ago

  by sync_or_swim

  Rob Bickel

  S. Wales, United Kingdom

  Joined 15 years ago

  I cant see the problem sorry, but you can download sample code from here
  

  Report abuse
• • Reply

  15 years ago

  by chrisdickson

  Chris Dickson

  Woking, England, United Kingdom

  Joined 15 years ago

  Make the following change to your code:
  

  
  

  Code:

  
  m_objDOMPeople.documentElement.appendChild objPerson
  

  
  

  
  changes to...
  

  
  

  Code:

  
  Set m_objDOMPeople.documentElement = objPerson
  

  Report abuse