通过DATASET生成XML

Dim LanDs As New DataSet
' Dim sql As String = "......."
Dim DBConn As String = "User ID=XX;Password=xx;Server=localhost;DataBase=...;"
' Dim Conn As SqlConnection
Dim reader As SqlDataReader
Dim Language As String
Dim Auno As Integer
Dim arparm As SqlParameter = New SqlParameter
'根據不同語言生成XML，每种語言對應一個XML檔
reader = SqlHelper.ExecuteReader(DBConn, CommandType.Text, "")
Do While reader.Read
Language = reader.Item("lan")
arparm = New SqlParameter("@CAuno", SqlDbType.Int)
arparm.Value = reader.Item("auno")
SqlHelper.FillDataset(DBConn, CommandType.StoredProcedure, "up_CreatXml", LanDs, New String() {"LAN"}, arparm)
'If Dir("C:\XML") = "" Then

'End If
LanDs.WriteXml("C:\XML\" & Language & ".Xml", XmlWriteMode.WriteSchema)
LanDs.Tables("Lan").Clear()
Loop
reader.Close()
'Dim xmlSW As System.IO.StreamWriter = New System.IO.StreamWriter("D:\XML\CreateXml\Lan.Xml")
'LanDs.WriteXml(xmlSW, XmlWriteMode.WriteSchema)
'xmlSW.Close()

原理很简单，就是将数据查询出来到dataset里，然后用 LanDs.WriteXml("C:\XML\" & Language & ".Xml", XmlWriteMode.WriteSchema)这个就ok了
缺点就是如果数据比较大，程序会比较慢