Create XML Child Nodes with Attributes

Download Chilkat XML ActiveX

How to create XML child nodes with attributes.

Dim xml As New ChilkatXml

'  The Chilkat XML component is freeware.

xml.Tag = "product"

Dim xNode0 As ChilkatXml
Set xNode0 = xml.NewChild("properties","")

Dim xChild As ChilkatXml
Set xChild = xNode0.NewChild("price","")
xChild.AddAttribute "SellPrice","11.99"

Set xChild = xNode0.NewChild("price","")
xChild.AddAttribute "BasePrice","11.99"

Text1.Text = Text1.Text & xml.GetXml() & vbCrLf
Text1.Refresh

'  Prints this:
'  <product>
'     <properties>
'         <price SellPrice="11.99"></price>
'         <price BasePrice="11.99"></price>
'     </properties>
' </product>