| | |
Append Node to XML file Using Vb.net
Please support our VB.NET advertiser: Intel Parallel Studio Home
Thread Solved |
•
•
Join Date: Nov 2008
Posts: 27
Reputation:
Solved Threads: 0
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
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
![]() |
Similar Threads
Other Threads in the VB.NET Forum
- Previous Thread: vb.net error
- Next Thread: replace attribute value using vb.net
| Thread Tools | Search this Thread |
"crystal .net .net2005 30minutes 2005 2008 access account arithmetic array basic binary bing button buttons center check code component connectionstring crystalreport data database databasesearch datagrid datagridview date design dissertation dissertations dissertationthesis dropdownlist excel fade file-dialog folder ftp generatetags hardcopy image images input insert intel internet login mobile monitor ms navigate net networking objects opacity output passingparameters peertopeervideostreaming picturebox picturebox1 port problem problemwithinstallation project reports" save savedialog searchvb.net select serial shutdown soap string survey tcp temperature text textbox timer toolbox trim update updown user usercontrol vb vb.net vb.netcode vb.netformclosing()eventpictureboxmessagebox vb.nettoolboxvisualbasic2008sidebar vb2008 vbnet view visual visualbasic visualbasic.net visualstudio visualstudio2008 web winforms wpf





