使用强类型DataSet对象
使用ADONET访问DataSet内容的方式，与使用ADO和DAO的Recordset对象具有类似的编程格式。
l ADONET和VBNET
txtCompanyName.Text=ds.Tables(“Customers”).Row(0)(“CompanyName”)
l ADO、DAP和VB经典方式
txtCompanyName.Text=rs.Fields(“CompayName”).Value
为了更容易的编写数据访问代码，ADONET引入了强类型DataSet对象。现在可以如下编码
txtCompanyName.Text=ds.Customers(0).CompanyName
可以把强类型DataSet认作是一个带有类的DataSet，它是继承自DataSet类的一个子类，并且还包含基于你所指定的架构的属性和方法，同时该类还包含用于DataTable对象及DataRow对象的其他类，这些类可以更高效的编写数据访问代码。
1 创建强类型DataSet对象
如何创建一个强类型DataSet？
有两种办法：其一，使用代码编写并使用NET框架的SDK命令行工具；其二，使用VSNET开发环境。
1.1 使用命令行工具编写代码
NET框架SDK有一个名为XML架构定义工具的命令行使用工具，它能根据XML架构文件（.xsd）生成类文件。
使用这个使用工具，结合DataSet的WriteXmlSchema方法，可以将一个Dataset解析成强类型DataSet类。
1.1.1 使用DataSet对象的WriteXmlSchema方法
XSD文件包含DataSet的架构信息（表、列、约束和关系）。
使用DataSet对象的WriteXmlSchema方法能够创建该文件。
WriteXmlSchema方法，其重载版本能接受，一个Stream对象、一个TextWriter对象、一个XmlWrite对象或字符串表示的文件名。
n 代码演示：用Northwind数据库的Customers和Orders表的列创建一个DataSet，在将DataSet的架构写入文件之前，为两表添加DataRelation。
Dim strConn,strSql as string
strConn=”Providor=SQLOLEDB;Data Source=...;Initial Catalog=Northwind;
Trused_Connection=Yes”
Dim cn As New oleDbConnection(strConn)
strSql=”select CustomerID,CompanyName,ContactName,Phone from Customers”
Dim daCustomers as New oleDBDataAdapter(strSql,cn)
strSql=”select OrderID,CustomerID,EmployeeID,OrderID from Orders”
Dim daOrders as New OleDbDataAdapter(strSql,cn)
Dim ds as new DataSet()
Ds.DataSetName=”Chapter9”
Cn.Open()
daCustomers.FillSchema(ds,SchemaType.Source,”Customers”)
daOrders.FillSchema(ds,SchemaType.Source,”Orders”)
cn.Close()
ds.Relations.Add(“CustomersOrders”,ds.Tables(“Customers”).Columns(“CustomerID”),
ds.Tables(“Orders”).Columns(“CustomerID”))
ds.WriteXmlSchema(“C:"Chapter9.xsd”
1.1.2 使用XML架构定义工具
XML架构定义工具，实际上是指位于Bin目录下的XSD.exe文件，它可以根据XML架构文件生成类文件，还能从Dll文件和EXE文件创建XML架构
l 示例
前面的代码将DataSet架构保存到Chapter9.xsd文件之中，现在在这个基础上使用XML架构定义工具生成一个类文件。
1．开始菜单，NET Framework v2.0，SDK命令提示，
2．对于VBNET输入，XSD Chapter9.xsd /d /l:VB
3．对于C#输入，XSD Chapter9.xsd /d
第一个参数指明XSD文件的路径
第二个参数，指明要创建的类由DataSet派生
第三个参数，指明输出文件语言（默认是C#）
使用时，只需要将新类文件加入“解决方案”，并创建新DataSet类的实例：
Dim ds As New Chapter9()
【类的名字】是基于产生XSD文件的DataSet的名字得来的。
1.2 简单的方法（使用IDE）
创建过程描述：
首先，创建一个所选语言的新Windows应用程序，将OleDBDataAdapter添加到窗体，在适配器向导中，将OleDBDataAdapter指向Northwind数据库，并输入以下语句：
Select CustomerID,CompanyName,ContactName,Phone from Customers
Select OrderID,CustomerID,EmployeeID,OrderDate from Orders
在设计器右键菜单中选择“生成数据集”，输入名字“Chapter9”。
下面设计DataRelation，在“解决方案”窗口，双击架构文件，右键单击Orders表，在菜单中选择“添加”|“新关系”，编辑好关系后确定。
显示类文件
在解决方案窗口顶部，工具栏中选择“显示所有文件”按钮即可。
DataSet（Chapter9.xsd）的架构文件会有两个与该架构文件相关联的文件。第一个是Chapter9.vb或者Chapter9.cs的强类型DataSet类文件；第二个关联文件扩展名为.xsx，它是包含了对XML架构设计器中DataSet的布局进行设置的文本文件。
实际上，该类文件包含许多类。由DataSet派生出来的是主类，这个类公开了两个DataTable对象，分别对应Customers和Orders，而两个DataTable都公开了Item属性，用来返回有DataRow派生出来的子类。
2 使用强类型DataSet对象
强类型DataSet对象简化了开发过程；使编写代码来访问和修改DataSet的内容更加容易。
2.1 添加行
DataSet中的DataTable，每个类都有两种途径——将一个新行添加到DataTable中。
其一：使用New《表名》Row方法，在返回的强类型DataRow中设置列内容，然后调用
Add《表名》Row添加到表。
Dim ds As New Chapter9()
Dim tblCustomers As Chapter9.CustomersDataTable = ds.Customers
Dim rowCustomer As Chapter9.CustomersRow
rowCustomer = tblCustomers.NewCustomersRow
rowCustomer.CustomerID = "ABCDE"
rowCustomer.CompanyName = "ABCDE有限公司"
rowCustomer.ContactName = "ABCED联系人"
rowCustomer.Phone = "(800) 555-1212"
tblCustomers.AddCustomersRow(rowCustomer)
或者这样写：
Dim rowCustomer as DataRow=tblCustomers.NewRow()
rowCustomer(“CustomerID”)=”ABCED”
...
tblCustomers.Row.Add(rowCustomer)
强类型DataRow的优越性之一就是，在IDE中可以直接支持语句完成（Statement Completion）功能。
但是，尽管在VB5开始就已经支持语句完成，但是如果在VB6和ADO2.x代码中输入错误的列名，那么要到运行时才会发现该错误，强类型DataSet和语句完成都无法消除开发时出现的此种问题。
强类型的Add《表名》Row，这个方法也有重载版本。
Dim ds as New Chapter9()
Dim tblCustomers As Chapter9.CustomersDataTable=ds.Customers
tblCustomers.AddCustomersRow(“ABCDE”,”NewCompany”,”NewCantact”,”555-1212”)
上句可替换为
tblCustomers.Rows.Add(new Object(){“ABCDE”,”New Company”,”New Contact”,”555-1212”})
IntelliSense和语句完成是在编写代码时，给人印象最深的特性之一。
2.2 查找行
对于标准非类型化DataSet，可以“根据主键值”，利用DataTable.Rows集合的Find方法，查找特定行。
但是，有时候Find方法会造成混淆，尤其是主键是组合键的情形，例如Northwind数据库中的Order Details表，其主键是OrderID和ProductID。
如果DataTable有一个定义过的主键，那么强类型的DataSet的每一个DataTable都公开自己的Find方法。给强类型DataSet中使用组合键作为主键的表编写查找代码很容易。
daOrderDetails.Fill(Chapter91, "Order Details")
DataGridView1.DataSource = Chapter91.Order_Details
Dim tblDetails As Chapter9.Order_DetailsDataTable = Chapter91.Order_Details
Dim rowDetails As Chapter9.Order_DetailsRow
rowDetails = tblDetails.FindByOrderIDProductID(10248, 59)
If rowDetails Is Nothing Then
MsgBox("行没找到")
Else
MsgBox("找到行!" & vbCrLf & "其订单ID为：" & rowDetails.OrderID & " - " & "产品ID为：" & rowDetails.ProductID)
End If
2.3 编辑行
对强类型DataSet中的行进行编辑的过程与编辑标准数据集中的行类似，
可供选择的方法有BeginEdit、EndEdit和CancelEdit
也可以使用强类型DataRow的属性来访问DataRow列的值。
2.4 处理空数据
可以使用DataRow对象的IsNull函数对空值进行检验；使用System.Convert.DBNull可以给列指派一个空值。
强类型数据集对空值处理是：
每一个强类型的DataRow中，各列都可以：校验列是否包含空值（Is<列名>Null）；设置列值为空(Set<列名>Null)
'首先添加数据
daCustomers.Fill(Chapter91, "Customers")
Dim tblCustomers As Chapter9.CustomersDataTable = Chapter91.Customers
DataGridView1.DataSource = tblCustomers
Dim rowCustomer As Chapter9.CustomersRow
rowCustomer = tblCustomers.FindByCustomerID("AROUT")
If rowCustomer Is Nothing Then
MsgBox("没找到")
Exit Sub
End If
'检验公司名空值
If rowCustomer.IsCompanyNameNull() Then
MsgBox("第一次检验- 公司名为空值")
Else
MsgBox("第一次检验- 公司名为: " & rowCustomer.CompanyName)
End If
'设置空值
rowCustomer.SetCompanyNameNull()
'检验公司名空值
If rowCustomer.IsCompanyNameNull() Then
MsgBox("第次检验- 公司名为空值")
Else
MsgBox("第次检验- 公司名为: " & rowCustomer.CompanyName)
End If
2.5 处理层次数据
DataRow对象中，公开的两种通过层次数据进行查找的方法是：GetChildRows和GetParentRow。这两种方法需要提供引用的DataRelation的名字或者其对象本身。
在强类型DataSet中，如果存在DataRelation，则不需要指定DataRelation或其名称，XML架构定义工具将自动添加该方法。
具体的说：在强类型数据集中，给Customers表和Orders表建立关联，将更改保存到xsd文件，xml架构定义工具就会为Customers表添加GetOrdersRows方法到强类型DataRow类中，并为Orders表将GetCustomersRows方法添加到强类型DataRow类中。
Dim ds As Chapter9 = Chapter91
daCustomers.Fill(ds)
daOrders.Fill(ds)
Dim rowCustomer As Chapter9.CustomersRow
Dim rowOrder As Chapter9.OrdersRow
For Each rowCustomer In ds.Customers
ListBox1.Items.Add("客户" & rowCustomer.CompanyName & "的订单")
For Each rowOrder In rowCustomer.GetOrdersRows()
ListBox1.Items.Add(vbTab & "订单编号- " & rowOrder.OrderID & vbTab & "下定日期- " & rowOrder.OrderDate)
Next
Next
‘上面代码对应的非强类型数据集代码是
Dim rowCustomer,rowOrder As DataRow
For Each rowCustomer In ds.Tables(“Customers”).Rows
Console.WriteLine(“Orders for “ & rowCustomer(“CompanyName”))
For Each rowOrder In rowCustomer.GetChildRows(“CustomersOrders”)
...
...
2.6 其他的DataSet、DataTable和DataRow特性
XML架构定义工具生成的类是：DataSet的派生类、DataTable的派生类、DataRow的派生类
因此，可以将它们看做是其非类型化的相应类。
例如：强类型DataSet没有可读写XML数据和架构信息的方法，但是由于派生关系，仍然公开了ReadXML和WriteXml等方法。
对于像用DataAdapter获取数据或提交更改之类的任务，可将强类型DataSet等同于普通DataSet对待。
3 何时使用强类型DataSet
3.1 软件组件
简单的组件，通常比那些提供一大串功能的组件运行的快。
强类型的DataSet，明显比非类型化的DataSet公开的功能要强大。但是，如果不使用附加配件的话，构造简单的，会更好。
3.2 设计时的优势
强类型DataSet在设计时的优势：编写访问代码很容易（这要感谢IDE的语句完成和智能感知IntelliSense功能）。
因为，强类型DataSet的初始化代码中，包含了创建架构和必要的DataTable、DataColumn、DataRelation以及Constraint所需的代码。
使用非类型化DataSet，有三种“将架构信息添加到DataSet的方法”：
1. 自己编写代码；
2. 使用DataSet对象的ReadXmlSchema方法，从XSD文件中加载架构；
3. 使用DataAdapter对象的FillSchema方法
如果正在建立一个使用数据绑定的Windows或web应用程序，那么，使用强类型数据集可以，更容易的在设计时绑定组件。为什么？因为，强类型DataSet包含自己的架构信息，所以能够给一列绑定控件。
创建多层应用程序时，可以通过强类型DataSet，将一个引用添加到一个类库，或将其添加到一个返回强类型DataSet的Web服务是，项目会复制XSD文件和强类型DataSet的类文件，客户端应用程序就能利用强类型DataSet在设计时的优势。
3.3 运行时优势
强类型DataSet对象的运行时含义是什么？它们如何影响应用程序的性能？
使用强类型DataSet对象，不仅易于编写代码，而且，代码还能提高应用程序的性能。
强类型代码，运行速度几乎是非类型化代码的，两倍。
强类型DataSet是如何提高性能的？DataRow对象允许通过提供列的名称、列的序号或DataColumn对象本身来访问列的内容。使用真正DataColumn对象的代码性能最好；使用列的名称编写代码最容易，但是性能最差。
由XML架构定义工具生成的代码兼顾了两方面的优点。编写的代码容易维护，并且自动生成的代码使用了DataColumn对象。
任何程序员无法编写的代码，对于强类型DataSet对象来说，也同样无法生成。
实际上，所有强类型DataSet能实现的功能，都可以编码实现。
比如：要想以访问强类型DataSet那样的性能，访问一个非类型化DataSet的内容，就要避免在集合中执行基于字符串的查找，而使用基于索引的查找，或维护非类型化DataSet中的列引用。
修改代码：在非类型化DataSet中使用适当的DataColumn对象访问行的内容，并使用适当的类型转换代码，结果是新改进的访问比访问强类型DataSet的代码快5%到10%。
由于创建、填充和访问强类型DataSet需要更多的时间，所以这里非类型化DataSet比强类型DataSet性能上稍微好一点。
3.4 其他注意事项
决定使用强类型DataSet，还需要考虑其他一些问题。
3.4.1 进行结构更改
如果，需要通过添加或修改DataColumn对象来更改强类型DataSet对象的结构，则，必须重新生成强类型DataSet对象，特别是在生成一个多层应用程序（并且中间层返回强类型DataSet）时。
如果重新生成了强类型DataSet（中间层要返回的），就需要在对中间层的引用进行刷新之后，重新生成客户端程序。
但是，如果准备改变服务器返回的数据结构时，不论是否使用强类型DataSet，都需要改变访问该结构的客户端代码。
3.4.2 转换DataSet对象
由于强类型DataSet继承自标准DataSet，因此，通过“一个非类型化DataSet接口访问强类型DataSet的代码”是正确的。
比如：
Dim dsStrong as New Chapter9()
Dim dsUntyped as DataSet
dsUntyped=Ctype(dsStrong,DataSet)
但是，还要特别注意这个问题：
Dim dsStrong1,dsStrong2 as Chapter9
Dim dsUntyped as DataSet
‘下面是能成功的代码
Strong1=new Chapter9()
dsUntyped=Ctype(dsStrong1,DataSet)
dsStrong2=Ctype(dsUntyped,Chapter9)
‘下面的代码则会抛出异常
dsUntyped=New DataSet()
dsStrong2=Ctype(dsUntyped,Chapter9)
如果，有一个非类型化的DataSet，想使用强类型DataSet访问它，该怎么办？
（这里说的是，原有DataSet是非典型的DataSet）
可以使用强类型DataSet的Merge方法，从非类型化DataSet中导入数据。
Dim dsStrong as New Chapter9()
Dim dsUntyped as New DataSet()
dsStrong.Merge(dsUntyped)
Merge方法，有助于在两个不同的“强类型DataSet”实例之间，转移数据。
如果对WriteXml和ReadXml方法的调用，包含Xml架构的话，还可以使用WriteXml和ReadXml方法在两个不同的强类型DataSet类实例之间转移数据。
3.4.3 强类型DataSet对象的非类型化特性
假如，应用程序使用强类型DataSet，并且想要将DataSet送回中间层服务器，然后将更改提交给数据库的话，可以使用强类型DataSet对象提供的GetChanges方法，来创建一个只包含被修改的行的新DataSet，并且，GetChanges方法返回非类型化DataSet。
能否将GetChanges方法返回的非类型化DataSet，再转化成强类型DataSet呢？当然是可以的。
Dim dsStrongAllRows as New Chapter9()
‘对强类型进行填充，并修改一些行,此处代码省略
Dim dsUntyped as DataSet
dsUntyped=dsStrongAllRows.GetChanges()
Dim dsStrongModifiedRows as Chapter9
dsStrongModifiedRows=Ctype(dsUntyped,Chapter9)
强类型DataSet，还有其他返回非类型化数据的方法，比如，Select方法，返回DataRow对象的一个数组，不能将返回数组转化为强类型DataSet对象的数组，但是可以将单个DataRow对象转化为相应的强类型DataRow。
相似的规则也可用于DataView，虽然不能直接通过强类型DataSet类访问它的内容，但是能够将通过DataRowView的Row属性返回的DataRow转化为强类型的。
Dim dsStrong as New Chapter9()
‘对此对象填充数据，和修改部分行，代码略
Dim vueCustomers as New DataView(dsStrong.Customers)
Dim rowCustomer as Chapter9.CustomersRow
rowCustomer=Ctype(vueCustomers(0).Row,Chapter9.CustomersRow)
3.5 方法的选择
什么样的选择才是正确的？
强类型DataSet，能够更快的创建应用程序，能够更容易的编写高效的代码。
但是它们不提供最好的性能。
如果结合非类型化DataSet和智能代码来使用，就可以创建运行更快的程序。
选择，完全取决于程序的需要。
如果程序的性能不是最优先的考虑事项，应该使用非类型化DataSet对象；但是如果牺牲一部分性能来换取开发时间是值得的，那么就应该考虑使用强类型DataSet。