Append Node to XML file Using Vb.net
 

Dear All,

AM creating a XML file from my Database. I have created Sucessfully and now i need to append a another node to this below XML file

Ex : <TaskName Value="PS0002440" Status="Process" />

I use the following code to create this below XML file. Am passing the Value and status to this function to create the node and attribute..Can some one help me how to append new node without overwriting the existing one..

Public Sub xmlwrite(ByVal TaskId As String, ByVal Status As String)
Dim Tskid, Stats As String
Tskid = TaskId.ToString.Trim
Stats = Status.ToString.Trim
Dim myDoc As New Xml.XmlDocument
Dim rootTask As Xml.XmlNode = myDoc.AppendChild(myDoc.CreateElement("Task"))
Dim TaskStatusElements As Xml.XmlElement

TaskStatusElements = myDoc.CreateElement("TaskName")
With TaskStatusElements
.Attributes.Append(myDoc.CreateAttribute("Value"))
.Attributes("Value").Value = Tskid
.Attributes.Append(myDoc.CreateAttribute("Status"))
.Attributes("Status").Value = Stats
End With
rootTask.AppendChild(TaskStatusElements)
Dim myWriter As New Xml.XmlTextWriter("d:\test.xml", System.Text.Encoding.UTF8)

myWriter.Formatting = Xml.Formatting.Indented
myDoc.Save(myWriter)
myWriter.Close()

End Sub



<?xml version="1.0" encoding="utf-8"?>
<Task>
<TaskName Value="PS0002439" Status="Open" />
</Task>

Thanks and Regards,
Jayaprakash