在Microsoft Office System中使用ADO.NET数据集(三)
2024-07-10 13:03:17
供稿：网友
到这一步，你的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方法。
