当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > vb.net 读写xml方法(1)

ASP.NET
探讨：ASP.NET技术的学习顺序问题
关于ASP.NET在IIS一些问题的经验总结
ASP.NET中通过对话框方式下载文件
ASP.NET网络编程中常用到的27个函数集
ASP.NET生成静态网页的方法
ASP.NET 2.0中实现弹窗报警提示
复杂ASP.NET服务器控件调整小技巧
ASP.NET调用oracle存储过程实现快速分页
VB.NET实现窗体图标最小化到状态栏
ASP.NET技巧：DataGrid传统分页方式
ASP.NET里的事务处理
ASP.NET 2.0高级数据处理之数据绑定
ASP.NET多频道网站架构实现方法
.NET vs J2EE——面对SOA的荒谬与误解
ASP.NET 2.0中执行数据库操作命令之一
ASP.NET应用程序资源访问安全模型
ASP.NET 2.0中的Web和HTML服务器控件
对.NET Framework 反射的反思
带你走进ASP.NET(1)
带你走进ASP.NET(2)

No. « 6 7 8 9 »

技术文章搜索

关键字

ASP.NET 中的 vb.net 读写xml方法(1)

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 45 ::
收藏到网摘: n/a


Dim domXmlDocument As System.Xml.XmlDocument Dim tmpPath As String = AppTempFilePath Dim xmlFile As String = tmpPath + "\testXml.xml"
'窗体加载事件 Private Sub TestXml_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '读xml过程测试通过 Dim domXmlDocument As System.Xml.XmlDocument Dim tmpPath As String = AppTempFilePath Dim xmlFile As String = tmpPath + "\testXml.xml" Dim reader As System.Xml.XmlReader = Nothing Try reader = New Xml.XmlTextReader(xmlFile) 'reader. While reader.Read Me.lboxXml.Items.Add(reader.Name + reader.Value) End While
Catch ex As Exception MsgBox(ex.Message) Finally If Not (reader Is Nothing) Then reader.Close() End If End Try
End Sub
'载入xml事件 Private Sub btnXmlLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXmlLoad.Click 'Me.lboxXml.Items.Clear() ''读xml过程测试通过
'Dim reader As System.Xml.XmlReader = Nothing 'Try ' reader = New Xml.XmlTextReader(xmlFile) ' While reader.Read ' Me.lboxXml.Items.Add(reader.Name + ":" + reader.Value) ' End While 'Catch ex As Exception ' MsgBox(ex.Message) 'Finally ' If Not (reader Is Nothing) Then ' reader.Close() ' End If 'End Try Dim ds As New DataSet Try '如果直接使用ds做datasource则不会展开datagrid，用dv则可以直接显示正确。 ds.ReadXml(xmlFile) Dim tb As DataTable Dim dv As DataView tb = ds.Tables(0) dv = New DataView(tb) DataGrid1.DataSource = dv 'DataGrid1.DataMember = "testXmlMember" 'DataGrid1.DataMember = "employeefname" 'Dim dxd As New XmlDataDocument Catch ex As Exception MsgBox(ex.Message.ToString) End Try

End Sub
'保存新建xml内容事件 Private Sub btnSaveNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveNew.Click
Dim myTW As New XmlTextWriter(tmpPath + "\testXmlWrite.xml", Nothing)
myTW.WriteStartDocument() myTW.Formatting = Formatting.Indented
myTW.WriteStartElement("Team")
myTW.WriteStartElement("player") myTW.WriteAttributeString("Name", "George Zip") myTW.WriteAttributeString("Position", "QB") myTW.WriteElementString("Nickname", "Zippy") myTW.WriteElementString("JerseyNumber", XmlConvert.ToString(7))
myTW.WriteEndElement()
myTW.WriteEndElement()
myTW.WriteEndDocument()
myTW.Close()
End Sub
对于修改datagrid中指定内容并保存到xml中还不会,弄明白了,在vb.net与xml读写的2中写出来!