Dim XMLText As String '保存了XML的文本
Dim MyDs As New DataSet
Dim MyTab As DataTable
'加载架构
MyDs.ReadXmlSchema(New IO.StringReader(XMLText))
For Each MyTab In MyDs.Tables
MyTab.BeginLoadData()
Next
然后再让DataSet加载数据。
注意:因为前面我们一个帮他加载架构信息了,这里就可以让DataSet加载数据时忽略Schema。
'加载数据
MyDs.ReadXml(New IO.StringReader(XMLText), XmlReadMode.IgnoreSchema)
For Each MyTab In MyDs.Tables
MyTab.EndLoadData()
Next
Ok,这样就把数据快速的加载到DataSet了。经过实际测试,数据量越大效率比就越高。
通常获得DataSet的XML的方法是用GetXml,确实方便。但是返回的结果已经把DataSet的架构信息抹掉了,剩下的是单纯的数据。
DataSet还给我们留了一个WriteXml方法(感动ing,勿扰....),这个方法可以把DataSet的数据写到文件或流中。
比如:
Dim MS As New IO.MemoryStream
DataSet.WriteXml(MS, XmlWriteMode.WriteSchema) '后面参数是关键,指明要带上架构信息。
这样在MS这个流中就保存了带DataSet架构信息的全部数据。