Edit attribute values of XML using VB6

Question

I need to update the attribute value of bkp_path using VB6.

XML File

<ServerDetails>
    <Param src_path = "D:\Shapes\Rectangle" bkp_path = "D:\Colors\Red"/>
</ServerDetails>

I'm able to read values from XML file using

VB6 Code

Dim doc As New MSXML2.DOMDocument
Set doc = New MSXML2.DOMDocument
Dim success As Boolean
'Load Config.xml
success = doc.Load("\Config\config.xml")

If success = False Then
  MsgBox ("Unable to locate the configuration file")
  Exit Function
Else
  Dim nodeList As MSXML2.IXMLDOMNodeList

  Set nodeList = doc.selectNodes("/ServerDetails/Param")

  If Not nodeList Is Nothing Then
     Dim node As MSXML2.IXMLDOMNode

     For Each node In nodeList
        srcpath = node.selectSingleNode("@src_path").Text
        bkpPath = node.selectSingleNode("@bkp_path").Text            
     Next node
  End If
End If

but can't figure out how to update attribute values.

Deanna · Accepted Answer · 2012-05-10 08:25:28Z

3

You need to get a reference to the node object then call setAttribute() to specify the new value:

node.setAttribute "bkp_path", "wibble"

Your code also reads the values from all the Param nodes but you may want to only use the first or update a specific one.

edited May 10, 2012 at 8:25

answered May 8, 2012 at 13:48

Deanna

24.4k7 gold badges76 silver badges162 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

RazrBoy Over a year ago

Yes, I'm looking to update a particular attribute not the first one, in this case 'bkp_path'. I've tried this earlier as well, didnt work.

Deanna Over a year ago

I said node (<Param ...>), not the attribute (src_path =). The attributes (using this code) are referenced by name. The code you supplied reads the values from EVERY <Param> node, but I assume you only want to set one of them.

RazrBoy Over a year ago

Yes, it should read each <Param> and update each bkp_path attribute. Finally, found the solution. This is what I was looking for : node.selectSingleNode("@bkp_path").Text = "D:\Colors\Blue" Anyways thank you for the prompt replies.

Deanna Over a year ago

Which does the same as I suggested... If you've found your answer, please post it as an answer and accept it.

RazrBoy · Accepted Answer · 2012-05-10 10:04:24Z

2

This did the trick :

node.selectSingleNode("@bkp_path").Text = "D:\Colors\Blue"

answered May 10, 2012 at 10:04

RazrBoy

3631 gold badge5 silver badges10 bronze badges

Collectives™ on Stack Overflow

Edit attribute values of XML using VB6

XML File

VB6 Code

2 Answers 2

4 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

XML File

VB6 Code

2 Answers 2

4 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related