DataSet.ReadXml提升速度办法

单纯用DataSet的ReadXml方法读取XML对于小数据量来说效率很高，但是对大数据量的XML来说就有些力不从心了。ITPUB个人空间/pr2uo Gy
比如，让DataSet读取一个16M的XML，能让你等到地老天荒。如果你的机器配置不高，那肯定死的很难看、很窝囊。ITPUB个人空间?"^\vrs
J
咱不能见死不救不是，请往下看。ITPUB个人空间8C;d \#Q*@!|1y7Y
题外话：如果XML来自DataSet，那么你是幸运的。你可以DataSet把架构信息带上，别因膨胀那么几k的数据就舍不得了。ITPUB个人空间W6Q{ M]_i
ReadXML缺省使用XmlReadMode.Auto方式读取，这就给大数据量留下了低效率的伏笔。ITPUB个人空间+C-v e*F~o1e
因为如果XML没有Scheme，DataSet就会自己推算XML的结构，然后再加载，这就是低效的主要原因。ITPUB个人空间5d uF[@|F
让DataSet推算不让我们帮他算，因为DataSet已经提供了一个ReadXmlSchema方法。
Lk8W!m/ib"?X"J@0如下：ITPUB个人空间kDKl9YN
Dim XMLText As String '保存了XML的文本ITPUB个人空间.luhF1U}k9o
Dim MyDs As New DataSet
PCiR@xke.j"PR0Dim MyTab As DataTableITPUB个人空间WvCM?BB
ITPUB个人空间 CIgDZ l
'加载架构
7v+N'KeCrv0MyDs.ReadXmlSchema(New IO.StringReader(XMLText))
,v ^RG^3Ot&p^^0For Each MyTab In MyDs.Tables
V'uARV7w(aZl~a)T0MyTab.BeginLoadData()ITPUB个人空间~8~ Ui }ZH;r4~/z
NextITPUB个人空间'SSCo FE;G

w$|\~R;`0ITPUB个人空间 N!Uhd#j5w c
然后再让DataSet加载数据。
E-Y1?V2M7j7e k0注意：因为前面我们一个帮他加载架构信息了，这里就可以让DataSet加载数据时忽略Schema。ITPUB个人空间z%z,lA$t4U-@-i
'加载数据
Jsq"U#SO;e0MyDs.ReadXml(New IO.StringReader(XMLText), XmlReadMode.IgnoreSchema)
V-PCr(DlKwq0For Each MyTab In MyDs.Tables
'd*xq#f i(q Z6o I0MyTab.EndLoadData()
)w_c
a2@?x0Next
1F1CW4ESQ!P {0Ok，这样就把数据快速的加载到DataSet了。经过实际测试，数据量越大效率比就越高。 

通常获得DataSet的XML的方法是用GetXml，确实方便。但是返回的结果已经把DataSet的架构信息抹掉了，剩下的是单纯的数据。ITPUB个人空间"Oh$oh)SRKa
DataSet还给我们留了一个WriteXml方法(感动ing，勿扰....)，这个方法可以把DataSet的数据写到文件或流中。
'y] U!FH4ja5n*OK0比如：ITPUB个人空间3a`6R;QUr
Dim MS As New IO.MemoryStreamITPUB个人空间?)fMmQza*\(s
DataSet.WriteXml(MS, XmlWriteMode.WriteSchema) '后面参数是关键，指明要带上架构信息。
&wApz,r(V.Y]!P0这样在MS这个流中就保存了带DataSet架构信息的全部数据。