如何把DataTable里的数据导出到硬盘的XML文件去。

（華版）

经过一连几天的不停研究ADO.NET，又发现另一挺好的功能。。。也就是如何用（如果没计错，在ADO里也有相关的功能！）WritwXml，WriteXmlSchema把DataTable里的数据和schema structure导出到硬盘的XML文件里，或者用ReadXml，ReadXmlSchema将XML文件里的数据和schema structure加载进DataSet里的DataTable对象去。

在某些情况下，可能需要把数据储存到硬盘去。。。预防不时之需。。。

        '声明变量

        Dim cn As SqlConnection

        Dim da As SqlDataAdapter

        Dim ds as DataSet

        Try

            '实列化SqlConnection对象，和Connection字符串

            cn = New SqlConnection("Data Source=localhost;Initial Catalog=Northwind;Integrated Security=true")

            cn.Open()

            '实列化DataSet对象

            ds = New DataSet

            '实列化SqlDataAdapter

            da = New SqlDataAdapter("Select * from customers", cn)

            '把Sql Server所返回的数据加载到DataTable去

            da.Fill(ds)

            '把DataSet bind到DataGrid控件去

            DataGrid1.DataSource = ds

        Catch ex As SqlException

            '在此显示错误讯息

        Finally

            cn.Close()

        End Try

        Try

            '把Table structure导出到xsd文件去

            ds.WriteXmlSchema("C:\table-def.xsd")

            '把DataTable里的数据导出到XML文件去

            ds.WriteXml("C:\table-data.xml")

        Catch ex As Exception

            '在此显示错误讯息

        End Try

        Try

            '创建新的DataSet对象

            ds = New DataSet

            '加载Table structure进DataSet去

            ds.ReadXmlSchema("C:\table-def.xsd")

            '加载XML数据进DataTable去

            ds.ReadXml("C:\table-data.xml")

            '把DataSet bind到DataGrid控件去

            DataGrid1.DataSource = ds

        Catch ex As Exception

            '在此显示错误讯息

        End Try