VB.NET2005读取XML数据

最新推荐文章于 2021-09-07 09:29:43 发布

expert2000

最新推荐文章于 2021-09-07 09:29:43 发布

阅读量1.8k

点赞数

分类专栏： .NET/MICROSOFT 文章标签： vb.net xml dataset exception integer string

本文链接：https://blog.youkuaiyun.com/expert2000/article/details/5602775

版权

.NET/MICROSOFT 专栏收录该内容

26 篇文章

订阅专栏

本文介绍了一种从XML文件中读取配置信息的方法，并展示了如何使用这些信息进行后续的数据处理。具体包括创建数据集、读取XML文件、解析XML数据并将其转换为DataSet对象的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

通过调用CreateDataSetFromXml取得XML数据

Imports System.Xml Public Const FILE_CONFIG = "MZZ.xml" Public Const PATH_CONFIG = "/XML/" Dim dstXML As DataSet Dim tblXML_DB As DataTable Dim dtCod As New DataTable Dim strSQL As String = "" clsPublic.pstrAppPath = System.Windows.Forms.Application.StartupPath'启动程序路径 '启动程序上级目录（InStrRev是取得最后显示/的位置） clsPublic.pstrAppPath = Mid(clsPublic.pstrAppPath, 1, InStrRev(clsPublic.pstrAppPath, "/", ) - 1) '只能启动一个程序 If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then Exit Sub End If '读取XML数据（QDIS节点，作为一个table,所以是dstXML.Tables(0)） dstXML = CreateDataSetFromXml(FILE_CONFIG) tblXML_DB = dstXML.Tables(0) clsDBBase.Uid = tblXML_DB.Rows(0).Item("UserId") clsDBBase.Psw = tblXML_DB.Rows(0).Item("Password") clsDBBase.Dsn = tblXML_DB.Rows(0).Item("DataSource") '（APPL节点，作为一个table,所以是dstXML.Tables(1)） clsPublic.Timer_Interval = CType(dstXML.Tables(1).Rows(0).Item("Interval"), Integer) '内存整理 GC.Collect() Public Function CreateDataSetFromXml(ByVal strFileName As String) As DataSet Dim xmlDoc As XmlDataDocument = New XmlDataDocument Dim xmlReader As StreamReader = Nothing Try xmlReader = New StreamReader(clsPublic.pstrAppPath & PATH_CONFIG & strFileName) xmlDoc.DataSet.ReadXml(xmlReader, XmlReadMode.Auto) Return xmlDoc.DataSet.Copy Catch ex As Exception Return Nothing Finally Try If Not xmlReader Is Nothing Then xmlReader.Close() xmlReader = Nothing End If xmlDoc = Nothing Catch ex As Exception End Try End Try End Function

<?xml version="1.0" standalone="yes"?> <NewDataSet> <QDIS> <UserId>MZZ</UserId> <Password>MZZ</Password> <DataSource>MZZ</DataSource> </QDIS> <APPL> <Interval>10</Interval> </APPL> <AppSettings>  <StartPointX>4400.0</StartPointX>  <StartPointY>62230.0</StartPointY> </AppSettings> </NewDataSet>