如何把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