ado|数据到这一步，你的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方法。