在Microsoft Office System中使用ADO.NET数据集(三)

类别:.NET开发 点击:0 评论:0 推荐:

到这一步你的DataSet应该完全被来自数据库中的数据填充了因此你可以关闭数据库连接对象。尽可能早的关闭连接永远是一个好的编程习惯,这样你可以将它释放给其他应用程序。另一方面,如果当前程序将要立即使用这个连接——也许是为了创建另一个DataSet,你可以保持它为打开状态以避免重建该连接带来的额外开销。

注意如果你在该应用程序中对每个连接重用完全相同的连接字符串——包括嵌套空间默认情况下ADO.NET将共用同一个连接。因此在大多数情况下,关闭和重新打开一个连接只会导致非常小的开销(可以忽略不计)。

我们可以说现在你的DataSet已经填充完毕并且准备好以供使用同时从数据库断开了连接。在许多应用程序程序中,这些就是你所需要的,但是你可能希望创建多种关系,用以建立数据的分级特性。创建这些关系需要使用DataRelation类。

重点 即使你在你的数据库中定义了相关的完整性关系你也没有方法在一个DataSet中自动重建这些关系——换句话说你必须手工创建这些关系。

 

创建一个数据关系需要引用DataSet现存表两个以上的列。下面的代码中使用parentchild DataColumn对象来在两个表中的主键与外键之间添加关系。一旦你实例化这些对象(parentchild对象你就可以实例化DataRelation对象,并传递给其一个名字用以标识关系属于parent child 对象。

代码还设置关系的Nested嵌套属性为 True.当你读取该DataSetXML表示时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对象使序列化变得更为简单——使用WriteXmlWriteXmlSchema方法就能做到。当你调用这两个方法使,需要传递相应磁盘文件的名字给每个方法,数据就保存到相应的文件中。你可以提供完整路径,但是这段代码将文件保存到应用程序的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

当你在一个客户端应用程序中创建一个DataSetADO.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方法。

本文地址:http://com.8s8s.com/it/it44833.htm