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 .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

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

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


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



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

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


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







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