到这一步 ， 你的 ** DataSet ** 应该完全被来自数据库中的数据填充了 ， 因此你可以关闭数据库连接对象。 尽可能早的关闭连接永远是一个好的编程习惯，这样你可以将它释放给其他应用程序。另一方面，如果当前程序将要立即使用这个连接 —— 也许是为了创建另一个 ** DataSet ** ，你可以保持它为打开状态以避免重建该连接带来的额外开销。
注意 ： 如果你在该应用程序中对每个连接重用完全相同的连接字符串 —— 包括嵌套空间 ， 默认情况下 ， ADO.NET 将共用同一个连接。因此在大多数情况下，关闭和重新打开一个连接只会导致非常小的开销（可以忽略不计）。
我们可以说 ， 现在你的 ** DataSet ** 已经填充完毕 ， 并且准备好以供使用 ， 同时从数据库断开了连接。 在许多应用程序程序中，这些就是你所需要的，但是你可能希望创建多种关系，用以建立数据的分级特性。创建这些关系需要使用 DataRelation 类。
重点 即使你在你的数据库中定义了相关的完整性关系 ， 你也没有方法在一个 ** DataSet ** 中自动重建这些关系 —— 换句话说 ， 你必须手工创建这些关系。
创建一个数据关系需要引用 ** DataSet ** 中 现存表两个以上的列。下面的代码中使用 parent 和 child DataColumn 对象来在两个表中的主键与外键之间添加关系。 一旦你实例化这些对象（ parent 和 child 对象 ） ， 你就可以实例化 ** DataRelation ** 对象 ，并 传递给其一个名字 ， 用以标识关系属于 parent 和 child 对象。
代码还设置关系的 Nested （ 嵌套 ） 属性为 True. 当你读取该 ** DataSet ** 的 XML 表示时 ， child 元素并不会自动嵌套到它的 parent 对象中。 相反，所有的 parent 元素先被列出来，所有的 child 元素紧随其后，并按层次进行分组。 虽然种非常有用的结构是罕见的，但是 Nested 属性嵌套了数据。
最后一步 ， 添加新的 ** DataRelation ** 对象到该 ** DataSet ** 对象的 Relations 集合中。 注意到 ， 代码中是使用表的名字作为引用表识的。你可以将它们替换为你自己的表的名字。
'Add the relationships to the DataSet
'Customers -> Orders
Dim parent As DataColumn = _
ds.Tables("Customers").Columns("CustomerID")
Dim child As DataColumn = ds.Tables("Orders").Columns("CustomerID")
Dim sqlRel As New DataRelation("Customer Orders", parent, child)
sqlRel.Nested = True
ds.Relations.Add(sqlRel)
该过程的最后一步将 ** DataSet ** 对象的 XML 架构和数据 保存到硬盘上。使用 ** DataSet ** 时这一步不是必须的，但是在“将 DataSet 作为 XML 导入到 Excel 2003 Worksheet ”节，你将看到如何使用它们。
大多数 .NET Frameword 对象支持序列化成一维或多维 ， 但是 ， ** DataSet ** 对象使序列化变得更为简单 —— 使用 ** WriteXml ** 和 ** WriteXmlSchema ** 方法就能做到。 当你调用这两个方法使，需要传递相应磁盘文件的名字给每个方法，数据就保存到相应的文件中。你可以提供完整路径，但是这段代码将文件保存到应用程序的bin文件夹。在这里有用到表名称作为引用标志。
‘ 可选步骤 ： 将 XML 数据和架构保存为磁盘文件
If bSaveSchema Then
'Places the file in this app's bin directory
ds.WriteXmlSchema("Customers.xsd")
ds.WriteXml("Customers.xml")
End If
该过程将完整的 ** DataSet ** 对象 返回 给调用它的过程。
Return ds
End Function
** 为单一实体创建 ** ** DataSet **
当你在一个客户端应用程序中创建一个 ** DataSet ** 时 ， ADO.NET 将来自数据库的所有数据通过网络传递到客户端 ， 并尽最大可能将必需数据完全填充到这个 ** DataSet ** 中。
如果你的表有数百万条记录 ， 将会发生什么 ？ 你希望通过网络传递尽可能少的数据填充到 ** DataSet ** 中 ， 例如 ， 你很可能仅仅希望得到单一某个客户的信息。 在 Northwind 数据库中，数据访问层的类方法 ** GetCustomerDataSet ** 就是实现这个功能的，它使用用户从窗体上的下拉列表框中所选择的 ** CustomerID ** 作为参数来选定某个特定客户。
你需要的代码与 ** GetDataSet ** 中的代码极为类似 ， 但是有一些重要的不同点。 首先，你现在需要过滤数据。也就是说，你必须过滤表中的数据，以便只返回必需的记录，并且对任何相关表都要执行这些操作，但是若有多个表一般就会返回多个记录，例如：筛选出客户已经下的订单的某个（一个客户可能下0个或多个订单）。
你可以对 ** DataSet ** 中所容纳的数据执行筛选和排序 ， 但是这意味着整个数据集都将穿越网络。 一个好的方式是在数据库端执行筛选和排序，并且只返回必需的记录。
你可以通过 ** SqlParameter ** 对象执行筛选。 这些参数应用于代码中的每个动态 SQL 语句 ， 注意 ， 执行这样的方法与调用相应的存储过程是等效的。
下面的代码填充 ** DataSet ** 中的 Customers 表。 注意到现在的 SQL 语句有一个 WHERE 子句 ， 没有 ORDER BY 子句 —— 对单一某个记录是不必排序的。该 ** SqlCommand ** 对象和前面一样的方式实例化 ， 但是现在它需要设置 _ @CustID _ 参数。 ** SqlParameter ** 对象用参数名 —— _ @CustID _ , 和参数类型 —— ** nchar(5) ** 实例化。 然后它设置参数的 Value 属性为传递到该过程的值。 最后一步是添加这个新参数叨命令对象的 Parameters 集合中，然后调用数据适配器的 ** Fill ** （同前面的步骤）。 SQL语句需要多少参数，你就可以添加多少参数对象。
Dim sql As String = "SELECT CustomerID, CompanyName, ContactName, " _
ContactTitle, Address, City, Region, PostalCode, Country, " _
& "Phone, Fax FROM Customers WHERE CustomerID = @CustID"
Dim sqlCmd As New SqlCommand(sql, sqlCnn)
Dim sqlParam As New SqlParameter("@CustID", SqlDbType.NChar, 5)
sqlParam.Value = sCustID
sqlCmd.Parameters.Add(sqlParam)
Dim sqlDA As New SqlDataAdapter(sqlCmd)
sqlDA.Fill(ds, "Customers")
另一些表以几乎完全相同方法填充 ， 除了某些被过滤的表需要合并到 Orders 表中 ， 这样 ** CustomerID ** 才可以 访问。
每个子表需要重用 ** SqlParameter ** 对象 ， 因为它们都需要过滤 ** CustomerID ** ， 而不仅仅只 Products 表用到。 你希望返回数据库中的所有产品，而不管该产品是否被订购。因此，该代码的这个部分调用了 Parameters 集合的 Clear 方法。