[Help]Edit XML Node[Solved]
[Help]Edit XML Node[Solved]
Hi !
I want to edit an xml node, for example this is the xml:
In
, how would I change 'Tom' to something else, plus I also need to check the gender !!
Also it should loop through all XML !!
How can I do this ??
I want to edit an xml node, for example this is the xml:
Code:
<?xml version="1.0" encoding="UTF-8"?>
<family>
<name gender="Male">
<firstname>Tom</firstname>
<lastname>Smith</lastname>
</name>
<name gender="Female">
<firstname>Dale</firstname>
<lastname>Smith</lastname>
</name>
</family>
Code:
<firstname>Tom</firstname>
Also it should loop through all XML !!
How can I do this ??
Are you using it as a database?
Anyway
[php]
Dim root As XElement = XElement.Load("Location\Filename.xml")
Dim xt As XElement = (From el In root.Descendants("Node1") _
Select el).First()
xt.SetValue("New Value")
root.Save("Location\Filename.xml")
[/php]
You can do this dynamically as well by using the value fields with combo-box data or textbox values, etc.
In asp.net/vb.net/c# I bind XML's as databases all the time, much more convenient then a database, and I don't have to worry to much about
truncating or overloads
Anyway
[php]
Dim root As XElement = XElement.Load("Location\Filename.xml")
Dim xt As XElement = (From el In root.Descendants("Node1") _
Select el).First()
xt.SetValue("New Value")
root.Save("Location\Filename.xml")
[/php]
You can do this dynamically as well by using the value fields with combo-box data or textbox values, etc.
In asp.net/vb.net/c# I bind XML's as databases all the time, much more convenient then a database, and I don't have to worry to much about
truncating or overloads
Originally Posted by NextGen1
Are you using it as a database?
Anyway
[php]
Dim root As XElement = XElement.Load("Location\Filename.xml")
Dim xt As XElement = (From el In root.Descendants("Node1") _
Select el).First()
xt.SetValue("New Value")
root.Save("Location\Filename.xml")
[/php]
You can do this dynamically as well by using the value fields with combo-box data or textbox values, etc.
In asp.net/vb.net/c# I bind XML's as databases all the time, much more convenient then a database, and I don't have to worry to much about
truncating or overloads
Anyway
[php]
Dim root As XElement = XElement.Load("Location\Filename.xml")
Dim xt As XElement = (From el In root.Descendants("Node1") _
Select el).First()
xt.SetValue("New Value")
root.Save("Location\Filename.xml")
[/php]
You can do this dynamically as well by using the value fields with combo-box data or textbox values, etc.
In asp.net/vb.net/c# I bind XML's as databases all the time, much more convenient then a database, and I don't have to worry to much about
truncating or overloads
I know XML serialization in .net is blazing fast, that's why I chose it
And thnx for the help, I know another way (Googled) but its harder. I wanted simple and its simple enough
Any guidance for creating a database using XML plz ??
Ill create a tut and post it, give me 5 mins or so
----------Code MSDN Standard, Not mine, just collected for sharing.
Datagrid
[php]
Private Sub lbTables_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim tblName As String = lbTables.Text
currentTable = dataSet.Tables(tblName)
ShowColumns()
dgData.SetDataBinding(dataSet, tblName)
dgData.CaptionText = "Table: " & tblName
End Sub
[/php]
Load an XML File (using Open Dialog() Modify to hard code database.
[php]
Dim res As DialogResult = openFileDialog.ShowDialog(Me)
If res = DialogResult.OK Then
Dim fn As String = openFileDialog.FileName
Dim ds As New DataSet()
ds.ReadXml(fn)
lbTables.Items.Clear()
For Each dt As DataTable In ds.Tables
lbTables.Items.Add(dt.TableName)
Next
dataSet = ds
lbTables.SelectedIndex = 0
fnSchema = fn
Me.Text = "XML Database Editor - " & fnSchema
End if
[/php]
Save XML
[php]
dataSet.WriteXml(fn, XmlWriteMode.WriteSchema)
[/php]
Dynamically add a table
[php]
Dim tblName As String = edTableName.Text
If Not ValidateTableName(tblName) Then
Exit Sub
End If
Dim dt As New DataTable(tblName)
currentTable = dt
lbTables.Items.Add(tblName)
dataSet.Tables.Add(dt)
lbTables.SelectedItem = lbTables.Items(lbTables.FindStringExact(tblName))
[/php]
Add column
[php]
Dim colName As String = edColumnName.Text
Dim colType As String = cbColumnType.Text
If (Not ValidateColumnNameAndType(colName, colType)) OrElse (Not ValidateSelectedTable()) Then
Exit Sub
End If
Dim lvi As ListViewItem = lvColumns.Items.Add(colName)
lvi.SubItems.Add(colType)
currentTable.Columns.Add(colName, Type.[GetType]("System." & colType))
[/php]
Display Columns
[php]
lvColumns.Items.Clear()
If currentTable IsNot Nothing Then
For Each dc As DataColumn In currentTable.Columns
Dim lvi As ListViewItem = lvColumns.Items.Add(dc.ColumnName)
Dim s As String = dc.DataType.ToString()
s = s.Split(New [Char]() {"."c})(1)
lvi.SubItems.Add(s)
Next
End If
[/php]
----------Code MSDN Standard, Not mine, just collected for sharing.
Datagrid
[php]
Private Sub lbTables_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim tblName As String = lbTables.Text
currentTable = dataSet.Tables(tblName)
ShowColumns()
dgData.SetDataBinding(dataSet, tblName)
dgData.CaptionText = "Table: " & tblName
End Sub
[/php]
Load an XML File (using Open Dialog() Modify to hard code database.
[php]
Dim res As DialogResult = openFileDialog.ShowDialog(Me)
If res = DialogResult.OK Then
Dim fn As String = openFileDialog.FileName
Dim ds As New DataSet()
ds.ReadXml(fn)
lbTables.Items.Clear()
For Each dt As DataTable In ds.Tables
lbTables.Items.Add(dt.TableName)
Next
dataSet = ds
lbTables.SelectedIndex = 0
fnSchema = fn
Me.Text = "XML Database Editor - " & fnSchema
End if
[/php]
Save XML
[php]
dataSet.WriteXml(fn, XmlWriteMode.WriteSchema)
[/php]
Dynamically add a table
[php]
Dim tblName As String = edTableName.Text
If Not ValidateTableName(tblName) Then
Exit Sub
End If
Dim dt As New DataTable(tblName)
currentTable = dt
lbTables.Items.Add(tblName)
dataSet.Tables.Add(dt)
lbTables.SelectedItem = lbTables.Items(lbTables.FindStringExact(tblName))
[/php]
Add column
[php]
Dim colName As String = edColumnName.Text
Dim colType As String = cbColumnType.Text
If (Not ValidateColumnNameAndType(colName, colType)) OrElse (Not ValidateSelectedTable()) Then
Exit Sub
End If
Dim lvi As ListViewItem = lvColumns.Items.Add(colName)
lvi.SubItems.Add(colType)
currentTable.Columns.Add(colName, Type.[GetType]("System." & colType))
[/php]
Display Columns
[php]
lvColumns.Items.Clear()
If currentTable IsNot Nothing Then
For Each dc As DataColumn In currentTable.Columns
Dim lvi As ListViewItem = lvColumns.Items.Add(dc.ColumnName)
Dim s As String = dc.DataType.ToString()
s = s.Split(New [Char]() {"."c})(1)
lvi.SubItems.Add(s)
Next
End If
[/php]
How do I use it ?? Which controls are required ??
DataGrid
I left the rest open, those are from button click events, but using the title, (IE open, Edit, Add, Save) you decide what to event triggers the action
I left the rest open, those are from button click events, but using the title, (IE open, Edit, Add, Save) you decide what to event triggers the action
Can't find type XElement ??
Imported:
What's wrong ???
Code:
Dim root As XElement = XElement.load("Location\Filename.xml")
Code:
Imports System.Xml Imports System.Linq
Recently I did a application that required XML , I may have added the references (System.Xml.Linq.dll) so didn't think to show what goes in the namespace, because Mine were already referenced.
It should be
[php]
Imports System.Linq
Imports System.Xml.Linq
Imports System.Data
[/php]
Xelement is a part of System.Xml.Linq
It should be
[php]
Imports System.Linq
Imports System.Xml.Linq
Imports System.Data
[/php]
Xelement is a part of System.Xml.Linq
This thread is closed for replies.
