Building an XML Document

Demonstrates how to build the following XML document:

<accrep:AccidentReport>
  <accrep:VehicleSection>
    <accrep:Vehicle>
      <accrep:DriverOrPedestrian>D</accrep:DriverOrPedestrian>
      <accrep:Number>1</accrep:Number>
      <accrep:Name>
        <accrep:First>John</accrep:First>
        <accrep:Last>Doe</accrep:Last>
        <accrep:Middle>Robert</accrep:Middle>
      </accrep:Name>
      <accrep:Passengers>
        <accrep:Name>
          <accrep:First>John</accrep:First>
          <accrep:Last>Doe, Jr.</accrep:Last>
          <accrep:Middle>Robert</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
      <accrep:Passengers>
	  <accrep:Name>
          <accrep:First>Sally</accrep:First>
          <accrep:Last>Doe</accrep:Last>
          <accrep:Middle>Crystal</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
    </accrep:Vehicle>
    <accrep:Vehicle>
      <accrep:DriverOrPedestrian>D</accrep:DriverOrPedestrian>
      <accrep:Number>2</accrep:Number>
      <accrep:Name>
        <accrep:First>John</accrep:First>
        <accrep:Last>Public</accrep:Last>
        <accrep:Middle>Q</accrep:Middle>
      </accrep:Name>
      <accrep:Passengers>
        <accrep:Name>
          <accrep:First>Billy</accrep:First>
          <accrep:Last>Public</accrep:Last>
          <accrep:Middle>Bob</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
      <accrep:Passengers>
	  <accrep:Name>
          <accrep:First>Kelly</accrep:First>
          <accrep:Last>Public</accrep:Last>
          <accrep:Middle>Emily</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
    </accrep:Vehicle>
  </accrep:VehicleSection>
</accrep:AccidentReport>

Download Chilkat XML ActiveX

Dim xml1 As New ChilkatXml
xml1.Tag = "accrep:AccidentReport"
Dim xml2 As ChilkatXml
Set xml2 = xml1.NewChild("accrep:VehicleSection","")
Dim xml3 As ChilkatXml
Set xml3 = xml2.NewChild("accrep:Vehicle","")
xml3.NewChild2 "accrep:DriverOrPedestrian","D"
xml3.NewChild2 "accrep:Number","1"
Dim xml6 As ChilkatXml
Set xml6 = xml3.NewChild("accrep:Name","")
xml6.NewChild2 "accrep:First","John"
xml6.NewChild2 "accrep:Last","Doe"
xml6.NewChild2 "accrep:Middle","Robert"

Dim xml10 As ChilkatXml
Set xml10 = xml3.NewChild("accrep:Passengers","")
Dim xml11 As ChilkatXml
Set xml11 = xml10.NewChild("accrep:Name","")
xml11.NewChild2 "accrep:First","John"
xml11.NewChild2 "accrep:Last","Doe, Jr."
xml11.NewChild2 "accrep:Middle","Robert"

Dim xml15 As ChilkatXml
Set xml15 = xml3.NewChild("accrep:Passengers","")
Dim xml16 As ChilkatXml
Set xml16 = xml15.NewChild("accrep:Name","")
xml16.NewChild2 "accrep:First","Sally"
xml16.NewChild2 "accrep:Last","Doe"
xml16.NewChild2 "accrep:Middle","Crystal"

Dim xml20 As ChilkatXml
Set xml20 = xml2.NewChild("accrep:Vehicle","")
xml20.NewChild2 "accrep:DriverOrPedestrian","D"
xml20.NewChild2 "accrep:Number","2"
Dim xml23 As ChilkatXml
Set xml23 = xml20.NewChild("accrep:Name","")
xml23.NewChild2 "accrep:First","John"
xml23.NewChild2 "accrep:Last","Public"
xml23.NewChild2 "accrep:Middle","Q"

Dim xml27 As ChilkatXml
Set xml27 = xml20.NewChild("accrep:Passengers","")
Dim xml28 As ChilkatXml
Set xml28 = xml27.NewChild("accrep:Name","")
xml28.NewChild2 "accrep:First","Billy"
xml28.NewChild2 "accrep:Last","Public"
xml28.NewChild2 "accrep:Middle","Bob"

Dim xml32 As ChilkatXml
Set xml32 = xml20.NewChild("accrep:Passengers","")
Dim xml33 As ChilkatXml
Set xml33 = xml32.NewChild("accrep:Name","")
xml33.NewChild2 "accrep:First","Kelly"
xml33.NewChild2 "accrep:Last","Public"
xml33.NewChild2 "accrep:Middle","Emily"

'  Display the XML:
Text1.Text = Text1.Text & xml1.GetXml() & vbCrLf