数据库开发023 动态创建DataSet对象

    DateSet对象是实现离线访问技术的核心，DataSet不依赖于数据源而独立存在于内存中。可以把DataSet想像成内存中的数据库，DateSet对象中的数据采用XML格式表示，借助XML可以描述具有复杂关系的数据，这使得采用DataSet对象能够容纳相互之间具有复杂关系的数据。因此一个DataSet除了可以包含任意数目的表，每个表一般对应于一个数据库表或视图之外，还可以包含表间关系、数据约束等，所有这些都与关系数据库模型基本一致，所以无论它包含的数据来自什么数据源，都会提供一致的关系编程模型。
    DataSet中的重要对象如下。

•     ①TablesCollection对象：DataSet里的表用DataTable来表示，一个DataSet里面可以包含多个DataTable，这些DataTable就构成了TablesCollection对象。每个DataTable中都包含一个ColumnsColleciton和一个RowsCollection对象。
•     ②RelationsCollection对象：各个DataTable之间的关系通过DataRelation来表达，j这些DataRelation构成的集合就是RelationsCollection对象。
•     ③ExtendedProperties对象：用来定义特定的信息，比如密码、更新时间等。

    通过DataAdapter对象的Fill方法，可以将表内容填充到DataSet对象中，而且可以填充多个表，利用别名来区分。

    DataSet对象使用XML格式来存储数据，DataSet可以脱离数据源，也可以利用程序创建DataSet对象，并填充内部的数据，而不从数据源读取数据。

在窗体代码中加入：

Private Sub RunningCreateDataSet()
        Dim myds As New DataSet
        Dim mydt As New DataTable("Squares")
        Dim mydr As DataRow
        Dim i As Integer
        mydt.Columns.Add(New DataColumn("数字", GetType(Integer)))
        mydt.Columns.Add(New DataColumn("平方", GetType(Integer)))
        For i = 0 To 10
            mydr = mydt.NewRow
            mydr(0) = i
            mydr(1) = i * i
            mydt.Rows.Add(mydr)
        Next
        myds.Tables.Add(mydt)
        DataGridView1.DataSource = myds.Tables("Squares")

        myds.WriteXml("Squares.xml")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RunningCreateDataSet()
    End Sub

    DataSet中的数据是用XML描述的，可以使用DataSet的WriteXML方法将里面的数据写成文件。比如在上面的程序最后添加“myds.WriteXml("Squares.xml¨)”，执行后在工程目录bin/debug中，出现一个Squares.xml文件，内容如下：

<?xml version="1.0" standalone="yes"?>
<NewDataSet>
  <Squares>
    <数字>0</数字>
    <平方>0</平方>
  </Squares>
  <Squares>
    <数字>1</数字>
    <平方>1</平方>
  </Squares>
  <Squares>
    <数字>2</数字>
    <平方>4</平方>
  </Squares>
  <Squares>
    <数字>3</数字>
    <平方>9</平方>
  </Squares>
  <Squares>
    <数字>4</数字>
    <平方>16</平方>
  </Squares>
  <Squares>
    <数字>5</数字>
    <平方>25</平方>
  </Squares>
  <Squares>
    <数字>6</数字>
    <平方>36</平方>
  </Squares>
  <Squares>
    <数字>7</数字>
    <平方>49</平方>
  </Squares>
  <Squares>
    <数字>8</数字>
    <平方>64</平方>
  </Squares>
  <Squares>
    <数字>9</数字>
    <平方>81</平方>
  </Squares>
  <Squares>
    <数字>10</数字>
    <平方>100</平方>
  </Squares>
</NewDataSet>