处理脱机数据——用DataSet对象
1 DataSet的特性
DataSet是数据的集合。可以把它看做Excel的工作簿，里面保存了多个工作表（查询结果）。
l DataSet对象与DataReader对象的区别？
DataReader是为速度而创建的，所提供的功能有限。DataReader中的数据是只读的，并且DataReader一旦移动到下一行，就不能返回查看前面的行（单向的）。
DataSet是为处理脱机数据而建的，提供了很多强大的功能。
1.1 处理脱机数据
DataSet中的数据是与数据库断开连接的。（一旦用DataAdapter将查询结果返回DataSet——填充DataSet，DataSet和数据库之间便不再有连接。）
脱机处理数据的好处。最大的好处是不需要始终与数据库连接。
DataSet的脱机数据机制对创建多层应用程序很有用，可以将DataSet的内容从一个组件传递到另一个组件；接收数据的组件可以像XML文档那样处理信息；当该组件是用.NET框架创建之时，可以将信息作为一个DataSet来处理。
1.2 浏览、排序、搜索、过滤
DataSet对象可以在任何时候查看其中的任意行的内容，
DataSet对象还允许修改查看查询结果的方式。（可以将其中的数据根据一列或几列进行排序；根据简单搜索条件查找一行数据；对其中的数据进行过滤）
1.3 处理分级数据
DataSet对象设计上就是用来处理分级数据的。
DataSet对象允许定义其中所存储的多个数据表之间的关系。
1.4 缓存更改
DataSet对象允许缓存一行数据的更改，之后可以使用DataAdapter对象将这些更改提交给数据库；
还可以通过检查DataSet中修改过的行，比较每一行的原始值和当前值，来判断对这些行作出过什么修改（插入、修改、删除）
1.5 XML的完整性
通过创建ADONET的DataSet对象来处理XML，可将DataSet对象的内容保存为XML文档的文件或将XML文档中的数据加载到DataSet对象中；DataSet对象还可以将表、列、约束等架构信息分离到XML架构文件中。
在ADO.NET中，DataSet对象和XML文档几乎是可以互换的。这种二元性允许开发者使用这一最方便的接口（XML开发者可以用DataSet对象处理XML文档；数据库开发者可以像处理DataSet那样处理XML）
1.6 统一功能
ADO的RecordSet对象与ADONET的DataSet对象功能上很相似。
2 使用DataSet对象
DataSet对象和它的子对象：
l DataSet包含DataTable和DataRelation；
l DataTable包含DataRow、DataColumn和约束对象。
2.1 创建数据集对象
DataSet对象的一个可选构造函数中，可以设置数据集的名字属性（DataSetName属性）
l 代码演示
Dim ds as new DataSet()
Dim ds1 as new DataSet(“DataSetName”)
l 所属名字空间
DataSet、DataTable、DataColumn、DataRow、Constraint、DataRelation都驻留在System.Data名字空间中。
2.2 查看调用DataAdapter.Fill（）创建的结构
l 准备工作
Dim StrConn,strSql as String
strConn=”Provider=SQLOLEDB;Data Source=(local)"???;Initial Catalog=Northwind;Trusted_Connection=Yes”
strSql=”select CustomerID,CompanyName,ContactName,Phone from Customers”
Dim da as new OleDbDataAdapter(strSql,strConn)
Dim ds as new DataSet()
da.Fill(ds,”Customers”)
在查看查询结果之前，先分析一下DataAdapter创建的用于存储结果的那些结构。
2.2.1 DataTable对象
DataTable是为了更稳定的数据而设计的，可以对DataTable中的数据进行修改、排序以及过滤处理。
DataTable对象有一个Column属性用来返回DataColumn对象的集合，各个DataColumn对应于查询结果中的列。
PS：DAO和ADO的RecordSet对象均包含Fields属性（一个Field对象的集合）
2.2.2 DataColumn对象
DataColumn对象用于定义DataTable的模式。
当使用DataAdapter.Fill()填充DataTable时，DataAdapter对象为查询结果中的每一列创建一个DataColumn对象。（此对象设置了最基本的属性：Name、Ordinal、DataType）
n 代码演示：显示Fill方法创建的DataColumn对象的基本信息
连接数据库部分略
Dim da as new DataAdapter(sSql,sConn)
Dim ds as new DataSet()
da.Fill(ds,”Orders”)
Dim tbl as DataTable=da.Tables(0)
Debug.WriteLine(“Column信息：表名=” & tbl.TableName)
Dim Col as DataColumn
For Each col in tbl.Column
Debug.WriteLine(vbTab & col.ColumnName & “ – “ & col.DataType.toString)
Next Col
2.3 查看DataAdapter返回的数据
ADO.NET到DataTable对象，更符合XML文档，它可树到任意节点。再使用DataTable的情况下，所有的行在任意时间都是可用的。
DataTable类公开了Rows属性，该属性返回DataTable中可用到DataRow对象集合。
2.3.1 DataRow对象
DataRow对象允许查看并修改DataTable中的行。
可以用DataTable.Rows属性将一个DataRow对象指派给DataTable中的特定行。
DataTable.Rows属性返回一个包含DataRow集合的DataRowCollection对象。
n 代码演示：用DataAdapter.Fill方法将查询结果填入DataTable，将第一行分配到DataRow对象并显示其中两列的内容
Dim strConn,strSql as string
strConn=””
strSql=”select OrderID,CustomerID,EmployeeID,OrderDate from Orders”
Dim da as new OleDbAdapter(strSql,strConn)
dim ds as new DataSet()
da.Fill(ds,”Orders”)
Dim tbl as DataTable=da.Tables(0)
Dim row as DataRow=tbl.Row(0)
Console.WriteLine(“OrderID=” & row(“OrderID”) & vbTAB & “CustomerID=” & row(“CustomerID”))
n PS：DataRow对象包含返回指定列内容的参数化Item属性。可以像上述代码那样提供列的名称，或者，提供列中DataTable中的序数位置。
n PS2：在使用DataReader的情况下，使用基于索引到查询比使用基于字符串的查询要更快的返回数据。
2.3.2 检查存储在DataRow中的数据
如果想要辨别一个更一般的历程来显示DataRow中的内容应该怎么做？
假设你是想编写一个接受DataRow对象的，并显示DataRow中列名称和值的过程。
u 若是使用DataReader对象，可以通过检查它的FieldCount属性来确定列的数量，然后用GetName和Item来取得每一列的名称和值。
然而，DataRow中并没有与DataReader对象FieldCount属性相对应的属性。
u DataRow对象公开了Table属性，其中包含了DataRow所在的DataTable。
通过此属性，在返回的DataTable中获取列的总量和各列的名称信息。
n 代码演示：使用DataRow的Table属性来显示DataRow的内容。
Private Sub DisplayRow(ByVal row as DataRow)
Dim tbl as DataTable=row.Table
Dim col as DataColumn
For Each col In tbl.Columns
Console.WriteLine(vbTab & col.ColumnName & “ – “ & row(col))
’从这里看row的item属性可以接受DataColumn类型参数
Next col
End Sub
DataRow对象的Item方法能接受一个DataColumn对象，以便查看特定列的内容。（第三种方法）
通过提供DataColumn来取得行的内容比基于系数的查询性能更好（好6%）
2.3.3 检查DataTable中的DataRow对象
开发者可以像浏览NET框架中的任意集合一样的来回浏览DataTable中的DataRow对象。
可以使用的语句：For循环或For Each循环语句。
n 代码演示：浏览DataTable中的内容（依赖前面代码的DisplayRow过程）
Dim sConn,sSql as String
sConn=””
sSql=”select OrderID,CustomerID,EmployeeID,OrderDate from Orders”
Dim da as New OleDbDataAdapter(sSql,SConn)
Dim ds as new DataSet()
da.Fill(ds.”Orders”)
Dim tbl as DataTable=ds.Table(0)
Dim col as DataRow
Dim i as Integer
For Each row In tbl.Rows
i+=1
console.WriteLine(“Contents of row #” & i)
DisplayRow(row)
Next row
2.4 校验DataSet中的数据
一般，数据库都提供了不同的机制用来确保数据库中的数据的正确性。
例如：Northwind数据库就定义了很多规则和约束：填充Customers表中CustomerID列的字符串不能超过5个字符，且值必须唯一；Orders表自动为每一行生成OrderID，且每行的CustomerID必须对应到Customers表的一个现有项。
也许，在你提交更改之前，需要应用类似的规则校验数据。
但是，由于数据库很可能已经定义了类似的校验规则，这种想法很可能有点多余。但是，在应用程序中添加校验规则可以增强它的性能；另一个好处是减少网络流量和数据库的负载。
ADO.NET的DataSet提供了许多中数据库系统中可用的、相同的数据校验机制，可以将这些校验机制（或者叫约束）分成两类：列级限制以及表级限制。
2.4.1 校验DataColumn的属性（列级限制）
DataColumn对象用于校验数据的属性。
l ReadOnly（只读性）
保证数据正确性的最简单办法（不让用户修改它）。
l AllowDBNull（允许空）
Boolean类型。
l MaxLength（最大长度）
对列中字符串的大小的限制。
l Unique（唯一性）
若值重复，会抛出ConstrainException异常。
2.4.2 DataTable对象的Constrains集合
ADO.NET对象模型包含两个类：UniqueConstrains和ForeignkeyConstraint。它们都是由Constraint类派生而来。
DataTable提供的Constraints属性，可以——添加、修改、查看——位于DataTable上的约束。
2.4.2.1 UniqueConstraints
若数据列的Unique属性被设为True（该列有唯一性），同时，还会中DataTable的约束集合中添加一个UniqueConstraints对象。
PS：在DataColumn中设置Unique，要比，中DataTable的约束集合中创建一个新的UniqueConstraints简单得多。但是，有时候还是需要第二个办法的，比如：需要确定多列合并之后的值是否惟一的时候。
2.4.2.2 Primarykey
主键（Primarykey）是UniqueConstraints的一种特殊类型。
ADONET对象模型中的DataRowCollection对象可以用Find方法来根据主键列的值查找DataTable中的行，好像这样：row=myTable.Rows.Find(“ALFKI”)
注意：数据表可以有多个唯一性约束，但是只能有一个主键。
设置主键，可以用，PrimaryKey属性。
2.4.2.3 ForeignkeyConstraints
外部约束（ForeignkeyConstraints）可以被引入到DataTable中。
例如：前面提到Orders表中CustomerID必须与Customers表中的CustomerID对应。这可以通过创建一个ForeignkeyConstraint对象，并将它添加到DataTable中来对DataSet中的数据进行限制。
PS：通常不必去特意创建ForeignkeyConstaint，因为当DataSet中的两个DataTable之间建立起DataRelation后，会自动创建ForeignkeyConstraint。
注意：ADONET并不知道数据库中保存了哪些数据。因此中DataSet中的列和约束只能中该DataSet中有效。
2.4.3 用DataAdapter.Fill模式来检索模式信息
首先：验证数据是需要时间的。
因此，许多方案都没有对DataSet设置验证属性，除非，有明确的要求。
在内部，DataAdapter的Fill方法，在创建DataTable时，也不会对DataColumn进行验证属性方面的设置，并且，不会将约束添加到DataTable对象的约束集合。
在填充DataTable过程中，可以使用两种办法，通知DataAdapter在数据库中检索其模式信息：
u 通过DataAdapter对象的MissingSchemaAction属性，将它设置为AddWithKey
u 调用DataAdapter对象的FillSchema方法
注意：ADONET有一些功能应该尽量避免中最终应用程序中使用。而，通过DataAdapter对象的上面两种方法获取DataSet的模式信息，就是应该极力避免的行为。
使用DataAdapter获取模式信息，能在设计时节省时间（事实是，VSNET使用DataAdapter中设计时产生了DataSet对象）。
如果只是创建小型示例或者概念示例，都无话可说，的确能减少代码的编写量。但是，一般的情况时，你不需要知道返回的是哪一列，因此，完善的应用程序中，像DataAdapter.FillSchema这样的功能禁止使用。
使用上述两种方法（DataAdapter特性）检索模式信息，会导致：
u 查询它所创建的每一个新DataColumn的名称和数据类型
u DataAdapter中数据库中查询模式信息（查看数据列对象的ReadOnly、AllowDBNull、MaxLength、Unique属性是否都被正确设置）
u DataAdapter也将设置新的DataColumn对象的AutoIncrement属性
DataAdapter将，试图，为DataTable生成一个主键，这一点相当糟糕。原因是：
DataAdapter必须先查询数据库，以便确定查询所引用的表，然后，再一次查询数据库来收集该表主键的信息。若没有，DataAdapter将请求得到该表惟一索引的信息，若该表包含有一个包括两个列的主键，而，所使用的查询却不包含这些列，DataAdapter将不再使用DataTable中的这个主键。
2.5 编写代码成绩DataTable对象
前面学过的内容包括:
ü 使用DataAdapter的Fill和FillSchema方法创建DataTable对象
ü 当想要用列级或者表级限制来验证数据时,应该创建自己的DataTable对象
2.5.1 创建DataTable对象
l 代码举例:
Dim tbl as new DataTable(“TableName”)
Console.WriteLine(tbl.TableName)
2.5.2 将DataTable添加到DataSet对象的Table集合
可以使用DataTableCollection对象的Add方法将一个已存在的DataTable对象添加到现有的DataSet对象当中.代码如下:
Dim ds as new DataSet()
Dim tbl as new DataTable(“Customers”)
ds.Tables.Add(tbl)
代码也可以进行以下简写:
Dim ds as new DataSet()
Dim tbl as DataTable=ds.Tables.Add(“Customers”)
通过查看DataTable对象的DataSet属性,可以确定它是否存在于DataSet中(返回所在的DataSet对象;如果没有则返回Nothing或者Null).这是个只读属性.
DataTable对象只能属于一个DataSet对象(或者没有).因此,如果希望多个DataSet都含有它,必须使用Copy方法或者Clone方法来复制副本.
n Copy方法,能创建一个与原型结构相同,并且包含相同行的新DataTable
n Clone方法能够创建一个与原型结构相同,但是不包含任何行的新DataTable
2.5.3 为DataTable添加列
为了保存查询的结果,DataTable必须包含行.
l [前面提到过]DataAdapter是如何创建新的DataColumn对象
A. 先创建一个DataColumn对象
B. 然后用代码加入到Table对象的列集合中.
C. 代码样例:
Dim da as New DataSet()
Dim tbl as DataTable=da.Tables.Add(“Customers”)
Dim col as DataColumn=tbl.Columns.Add(“CustomerID”)
2.5.4 指定DataColumn的数据类型
创建新DataColumn之后,还需要指定其所包含的数据的类型.
使用DataColumn的DataType属性,可以设置或查看列的数据类型.
但是,如果已经将数据添加到DataTable对象的Rows集合之后,则,DataColumn对象的DataType属性将不可读写.
l DataColumn的数据类型依赖于数据库中该列的数据类型
l 数据库中的数据类型跟DataColumn的数据类型不是一对一的关系.
在Sql Server中，就字符串而言，它的存储方式有：定长或变长。数据可以是单字节或双字节。
然而，对于ADO.NET，以上的类型在DataColumn中都被视为字符串。
DataColumn的DataType属性只处理.NET类型，不处理数据库的数据类型。
DataColumn的DataType属性默认类型是字符串。
DataColumn对象的一个构造函数可以指定其数据类型和名称。
同时，DataColumnCollection.Add方法的一个重载版本也可以运行为新DataColumn对象指定ColumnName和DataType属性。
l 代码示例
Dim ds as new DataSet()
Dim tbl as DataTable=ds.Tables.Add(“Orders”)
Dim col as DataColumn=tbl.Columns.Add(“OrderID”,GetType(Integer))
DataType属性的类型是Type。注意：VBNET和C#使用了不同的函数来生成类型，在VBNET中是GetType函数；在C#中是typeof运算符。
2.5.5 添加主键
注意：用代码设置DataColumn和DataTable的验证特性是应该提倡的；而不要用DataAdapter去查询数据库的约束。
代码设置验证特性，通过数据列DataColumn对象的四大属性：AllowDBNull、ReadOnly、MaxLength、Unique。
l 代码演示：
Dim ds as new DataSet()
Dim tbl as DataTable=ds.Tables.Add(“Customers”)
Dim col as DataColumn=tbl.Columns.Add(“CustomerID”)
col.AllowDBNull=False
col.MaxLength=5
col.Unique=True
col.ReadOnly=False
设置DataTable对象的主键，稍微复杂。其PrimaryKey属性包含一个DataColumn对象的数组，所以不能只是简单的将列的名字设置为主键。
DataTable对象的主键设置分为：用单一列作主键；和使用列组合作主键，两种。
无论哪种，都要先创建一个DataColumn对象数组，再将该数组赋值给DataTable.PrimaryKey属性。
l 代码演示：第一种，单一列主键
Dim ds as new DataSet()
With ds.Tables.Add(“Customers”)
.Columns.Add(“CustomerID”, GetType(String))
.PrimaryKey=New DataColumn(){.Column(“CustomerID”)}
End With
l 第二种，组合列主键
...
With ds.Tables.Add(“Order Details”)
.Column.Add(“OrderID”,GetType(Integer))
.Column.Add(“ProductID”,GetType(Integer))
...
..PrimaryKey=new DataColumn(){.Columns(“OrderID”), .Columns(“ProductID”)}
End With
值得注意的是，代码设置主键之后，ADONET将自动把主键列对象的AllowDBNull设为False
2.5.6 添加其他约束
除了主键约束之外，还有惟一键和外键约束，他们都可以添加到DataTable中。
DataTable对象的约束集合(Constraints)有一个Add的重载方法，它的参数可以用来添加新的主键、惟一键、外键约束。
l 演示代码
n 代码说明
根据CustomerID列将一个惟一键添加到客户表，根据OrderID和ProductID两列将一个惟一键添加到订单明细表，同时将一个外键约束添加到订单明细表（确保OrderID的值与订单表中对应的行匹配）
n 提示
创建约束有两个办法：
第一：直接创建新的约束对象并添加到表对象约束集合。
tbl.Constraints.Add(New UniqueConstraint(...))
第二：使用约束集合对象的Add重载方法，创建新约束并加入集合。
tbl.Contraints.Add(“constraint_name”,ColumnInformation)
推荐：使用 第一种 方法，因为它容易理解，尽管Add方法可以重载。
l 代码演示
Dim ds as New DataSet()
With ds.Tables.Add(“Customers”)
.Columns.Add(“CustomerID”, GetType(Integer))
...
.Constraints.Add(New UniqueConstraint(.Columns(“CustomerID”))’将客户ID添加为惟一键
(.Constrains.Add(“UK_Constomers”, .Columns(“CustomerID”),False))’第二种写法
End with
‘创建订单详细信息的数据表
With ds.Tables.Add(“Order Details”)
.Columns.Add(“OrderID”,GetType(Integer))
.Columns.Add(“ProcedureID”,GetType(Integer))
...
Dim Cols(1) as DataColumn
Cols(0)=.Columns(“OrderID”)
Cols(1)=.Columns(“ProcedureID”)
.Constaints.Add(New UniqueConstraint(Cols))’这里使用组合键设置惟一键
(Constaints.Add(“UK_Order Details”,Cols,False))’第二种办法
‘添加外键
.Constaints.Add(New ForeignKeyConstaint(ds.Tables(“orders”).Columns(“OrderID”),_
.Columns(“OrderID”)))
(.Constaints.Add(“FK_Order Details_Orders”, ds.Tables(“Orders”).Columns(“OrderID”),_
.Columns(“OrderID”))))’第二种写法
End with
2.5.7 处理自增列
ADONET对象模型通过DataColumn对象的三个属性来实现（支持）自动增量列，它们是：
l AutoIncrement
l AutoIncrementSeed
l AutoIncrementStep
将数据列对象DataColumn的AutoIncrement属性设置为True，就可以为数据表的新行生成自动增量值。
l 演示代码
Dim ds as new DataSet()
Dim tbl as DataTable=ds.Tables.Add(“Orders”)
Dim col as DataColumn=tbl.Columns.Add(“OrderID”,GetType(Integer))
Col.AutoIncrement=true
Col.AutoIncrementSeed=-1
Col.AutoIncrementStep=-1
Col.ReadOnly=true
l 建议
无论何时设置AutoIncrement=True之后，都要记住将AutoIncrementSeed和AutoIncrementStep设置为-1。
n 原因如下：
AutoIncrementSeed和AutoIncrementStep属性控制ADONET如何生成新值。
当处理空表时，ADONET会将存储在AutoIncrementSeed的值赋给第一行自动增量列；
接着ADONET将使用AutoIncrementStep属性生成后续的自动增量值。
n 例如：
如果
AutoIncrement=True
AutoIncrementSeed=2
AutoIncrementStep=2
那么ADONET为前5行产生的自增量为：2，4，6，8，10
l 使用DataAdapter.Fill填充DataTable的处理方式稍有不同。
如果将AutoIncrement=True
AutoIncrementSeed=5
AutoIncrementStep=5
当数据表为空时，新增行的自增列值依次为5，10，15，20...
如果用DataAdapter填充数据表，并用DataTable.Rows.Add添加新行，列的新值将取决于从数据库取得的数据。然后，ADONET会根据数据表中出现的最大自增量和AutoIncrementStep属性的值生成后续值。
l 特别注意
ADONET产生自增量最大值的根据是查询的结果（若查询结果只是特定的客户名单，最大值也是根据这个结果产生的）也许数据库已经存在ADONET生成的新值。这一点要特别注意。
在ADONET和NET框架的整体开发中，可以依靠ADONET的自动增量功能，在将行添加到DataTable过程中，让ADONET对行计数，从而达到分页显示DataTable的目的（而不用根据查询规则和行的排序来实现分页）。
l 自动增量的“可为”与“不可为”
n 可为：使用ADONET自动增量特性
n 不可为：将ADONET生成的自动增量值，提交给数据库。（该值仅为占位符，数据库会生成真正的新值）
n 不可为：显示未提交给数据库的，新行的，自动增量值。（数据库可能会根据ADONET产生的增量值生成不同的值）
n 可为：将AutoIncrementSeed和AutoIncrementStep属性值设置为-1，确保生成的占位符的值不会出现在数据库中。
l 代码示例
说明：演示根据简单查询的结果填充DataTable。
填充之前，先添加新的自动增量列。
填充之后，ADONET会为每一行填充生成新的自增值。
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=。。。"
Dim strSql As String
strSql = "select 客户ID,公司名称,联系人姓名 from 客户"
Dim da As New OleDbDataAdapter(strSql, strConn)
Dim ds As New DataSet()
da.Fill(ds, "客户")
DataGridView1.DataSource = ds.Tables("客户")
da.FillSchema(ds, SchemaType.Source, "客户2")
Dim tbl As DataTable = ds.Tables("客户2")
Dim col As DataColumn = tbl.Columns.Add("行号", GetType(Integer))
With col
.AutoIncrement = True
.AutoIncrementSeed = 1
.AutoIncrementStep = 1
End With
da.Fill(ds, "客户2")
Dim dgv2 As DataGridView
dgv2 = New DataGridView()
Me.Controls.Add(dgv2)
With dgv2
.Top = DataGridView1.Top + DataGridView1.Height + 10
.Left = DataGridView1.Left
.Height = DataGridView1.Height
.Width = DataGridView1.Width
.Show()
End With
Me.Height = dgv2.Bottom + 100
dgv2.DataSource = ds.Tables("客户2")
2.5.8 添加基于表达式的列
数据库管理员通常会避免：在数据库中，包含，由现有数据派生出来的数据。
大多数数据库的查询语言都支持表达式，在查询结果中，可以包含被统计的列。
例如：select OrderID,ProductID,UnitPrice,Quantity,UnitPrice*Quantity as ItemTotal from [Order Details]
如果将查询结果添加到数据表中，就会看到有一列包含了表达式计算结果。
但是，修改数据表中的UnitPrice或Quantity列，不会引起计算列的变化。
ADONET允许创建基于表达式的DataColumn对象，将DataColumn的Expression属性设置为一个表达式。
当查看列内容的时候，ADONET就会计算表达式并返回结果；修改也会反映到计算列中。
l 演示
Dim str_conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=。。。"
Dim str_sql As String = "SELECT 产品.产品名称, 订单明细.单价, 订单明细.数量, 订单明细.折扣 FROM (订单明细 INNER JOIN 产品 ON 订单明细.产品ID = 产品.产品ID)"
'第一步我要取表结构，然后添加新列
Dim da As New OleDbDataAdapter(str_sql, str_conn)
Dim ds As New DataSet()
da.FillSchema(ds, SchemaType.Source, "我的查询")
Dim tbl As DataTable = ds.Tables("我的查询")
tbl.Columns.Add("总价", GetType(Decimal), "单价 * 数量")
tbl.Columns.Add("折后价", GetType(Decimal), "总价*(1-折扣)")
da.Fill(ds, "我的查询")
l 拓展
Expression属性支持许多函数。
包括：能引用数据集中的其它数据表中数据的聚合函数。（处理关系数据时，使用聚合函数创建基于表达式的列）
2.5.9 为客户表、订单表、订单详细信息表创建DataTable对象
说明：把DataSet、DataTable、DataColumn结合到一个数据集中。
l 代码示例：
下面的代码创建一个包含3个DataTable的DataSet（包括DataSet对象的每个部分），并用代码设置DataColumn对象的属性（DataType、AllowDBNull、AutoIncrement），创建主键约束和外键约束。
Dim col As DataColumn
Dim fk As ForeignKeyConstraint
'客户表
With ds.Tables.Add("客户")
col = .Columns.Add("客户ID", GetType(String))
col.MaxLength = 5
col = .Columns.Add("公司名称", GetType(String))
col.MaxLength = 40
col = .Columns.Add("联系人", GetType(String))
col.MaxLength = 30
col = .Columns.Add("联系电话", GetType(String))
col.MaxLength = 24
.PrimaryKey = New DataColumn() {.Columns("客户ID")}
End With
'订单表
With ds.Tables.Add("订单")
col = .Columns.Add("订单ID", GetType(Integer))
col.AutoIncrement = True
col.AutoIncrementSeed = -1
col.AutoIncrementStep = -1
col.ReadOnly = True
col = .Columns.Add("客户ID", GetType(String))
col.AllowDBNull = False
col.MaxLength = 5
.Columns.Add("员工ID", GetType(Integer))
.Columns.Add("下定日期", GetType(DateTime))
.PrimaryKey = New DataColumn() {.Columns("订单ID")}
End With
'订单详细信息表
With ds.Tables.Add("订单明细")
.Columns.Add("订单ID", GetType(Integer))
.Columns.Add("产品ID", GetType(Integer))
.Columns.Add("单价", GetType(Decimal))
col = .Columns.Add("数量", GetType(Integer))
col.AllowDBNull = False
col.DefaultValue = "1"
col = .Columns.Add("折扣", GetType(Decimal))
col.DefaultValue = "0"
.Columns.Add("单项总价", GetType(Decimal), "单价 * 数量 * (1- 折扣)")
.PrimaryKey = New DataColumn() {.Columns("订单ID"), .Columns("产品ID")}
End With
'外键约束
fk = New ForeignKeyConstraint(ds.Tables("客户").Columns("客户ID"), ds.Tables("订单").Columns("客户ID"))
ds.Tables("订单").Constraints.Add(fk)
fk = New ForeignKeyConstraint(ds.Tables("订单").Columns("订单ID"), ds.Tables("订单明细").Columns("订单ID"))
ds.Tables("订单明细").Constraints.Add(fk)
2.6 修改DataTable内容
2.6.1 添加新DataRow
这里是指一行行的加载数据
每个DataTable对象都有一个Rows属性。用来返回DataRowCollection对象，此对象包含DataRow对象的集合。（多数集合都可以用Add方法将新对象加入集合）
另外，DataTable对象的NewRow方法，将返回新生成的DataRow对象（其中包含了表中的列信息——字段名、类型、可空等等）。
l 代码：
Dim row As DataRow=ds.Tables(“Customers”).NewRow
row(“”)=”ALFKI”
创建新的DataRow之后，你可以，使用Item属性填充不同的列；还可以用item属性，检查行中列的内容。
Item属性，是DataRow对象的默认属性，因此可以省略掉。（引用DataRow中列的值，需要列名，或者索引）
DataTable的NewRow方法，创建一个新行，但不会将该行添加到DataTable中，因为，该行是空行（若列没有默认值，该列就可能是适当的默认值或Null）。所以，可以在此时，给新行中的列赋值。
假如：客户表的CustomerID列不能接受Null值，也没有默认值。如果不给CustomerID列赋值，但是还要将新的DataRow对象敬爱如到表，就会产生异常。
给新行（DataRow对象）所有必须的列赋值，之后，可以使用DataRow Collection对象的Add方法，将新行加入到表（DataTable对象）。
'客户表
Dim c_id As String = "ALFKI"
Dim row As DataRow = ds.Tables("客户").NewRow
row("客户ID") = c_id
row("公司名称") = "美联邦"
row("联系人") = "奥巴马"
row("联系电话") = "2000302"
ds.Tables("客户").Rows.Add(row)
'订单表
row = ds.Tables("订单").NewRow
row("客户ID") = c_id
row("员工ID") = 821
row("下定日期") = Now
ds.Tables("订单").Rows.Add(row)
Dim o_id As Integer = ds.Tables("订单").Rows(0).Item("订单ID")
'订单明细
row = ds.Tables("订单明细").NewRow
row("订单ID") = o_id
row("产品ID") = 8541
row("单价") = 45.25
ds.Tables("订单明细").Rows.Add(row)
另外：数据表对象（DataTable）提供了另外一种方法——将新行添加到表——LoadDataRow方法。
此方法，第一个参数是一组数值，数组中的项与表中列相对应；
参数AcceptChanges，用来控制新行DataRow的RowState属性值。若设置为False，则新行的RowState属性值为Added（跟使用DataTable.NewRow和Rows.Add组合添加行——效果相同）。
Dim avalues As Object() = {"BFKDL", "民主党", "麦凯恩", "030-0074321"}
ds.Tables("客户").LoadDataRow(avalues, False)
当调用DataAdapter对象的Update方法，将更改提交给数据库时，DataAdapter会检查每个DataRow的RowState，确认如何更新数据库{修改现有行、添加新行、删除现有行}。
若AcceptChanges参数设置为True，则新DataRow的RowState值为Unmodified，表示该行不包含DataAdapter要提交给数据库的挂起更改。
2.6.2 修改当前行
有三种办法可以修改行的内容。
l 最简单办法
一旦有DataRow之后，你就可以使用DataRow对象的Item属性，对列赋值。
Dim ds As DataSet
Dim tbl As DataTable
tbl = DataGridView1.DataSource
ds = tbl.DataSet
Dim rowCustomer As DataRow
rowCustomer = ds.Tables("客户").Rows.Find("ANTON") '记住：Find方法的参数，只能是主键值（可以是组合值)
If rowCustomer Is Nothing Then
Else
rowCustomer("公司名称") = "魔梦"
rowCustomer("联系人姓名") = "我不活了"
End If
l 使用DataRow对象的一对方法：BeginEdit和EndEdit。
Dim r As DataRow
Dim tbl As DataTable
tbl = DataGridView1.DataSource
Dim ds As DataSet
ds = tbl.DataSet
r = ds.tables("客户").rows.find("ANTON")
If (r Is Nothing) Then
Else
r.BeginEdit()
r("公司名称") = "美联储"
r("联系人姓名") = "奥巴马"
r("联系人头衔") = "没好得瑟"
r.EndEdit()
End If
使用BeginEdit和EndEdit组合，可以缓存对行的修改。
调用EndEdit可以保存对行的修改；如果不想保存更改，可以调用CancelEdit取消修改，行会返回到调用BeginEdit时的状态。
n 这两种修改行的方法，不同之处，在于：调用会引发DataTable的一些特殊事件（比如RowChanging、RowChanged、ColumnChanging、ColumnChanged）
方法一，每次修改行中列值，行的内容都改变。每次修改都会激发DataTable对象的事件
方法二，使用BeginEdit可以在调用EndEdit之前阻止事件激活。
l 第三种修改行的方法
使用ItemArray属性（可以检索或修改行的内容）
与Item属性的不同之处在于，ItemArray可以接受对应列的一组值。
Dim tbl As DataTable
tbl = DataGridView1.DataSource
Dim ds As DataSet
ds = tbl.DataSet
Dim r As DataRow
r = ds.Tables("客户").Rows.Find("ALFKI")
Dim values As Object() = {"ALFKI", "太扯淡公司", "克林顿夫妇", "892302323"}
r.ItemArray = values
使用VBNET关键字Nothing或者C#关键字Null，可以跳过不想修改的列。
Dim values As Object() = {Nothing, "太扯淡公司", "克林顿夫妇",Nothing}
l 注意
修改行的内容并不会，自动修改数据库中的相应内容。
对行所做的修改，被视为随后将使用DataAdapter对象提交给数据库的，待定更改。
l 推荐使用BeginEdit和EndEdit方法组合，修改数据表中的行。
因为，它要求所编写的代码结构更好，更容易阅读和维护，而且，出现异常时，可以取消所有的修改
2.6.3 处理DataRow的空值
实际上，判断行的列是否包含空值，很简单。
DataRow对象有IsNull方法，可以查看列是否包含空值。
DataRow.IsNull方法与Item属性使用规则类似，接受参数可以是：列名、列索引值、DataRow对象。
Dim r As Integer
Dim count As Integer = DataGridView1.Rows.Count
Randomize()
r = CInt(count * Rnd())
Dim row As DataRow
row = DataSet1.Tables("客户简表").Rows(r)
row("电话") = DBNull.Value
row("电话") = Nothing ‘这两行都可以设置出空值来，但是不要用空字符串“”
MsgBox("设置了第" & r & "行的电话为空值")
row = DataSet1.Tables("客户简表").Rows(r)
If row.IsNull("电话") Then
MsgBox("果然,第" & r & "行,电话是空值!")
Else
MsgBox("第" & r & "行,电话不是空值啊!")
End If
2.6.4 删除DataRow
删除行，只需要调用DataRow.Delete方法，即可。
然而，删除行不是把它从DataTable中删除掉，而是将行，标记为，挂起删除。
l 为什么呢？
记住，ADONET对象模型中的数据存储对象，是作为数据缓存来执行的。
检索数据库中的数据，修改脱机模式中的数据，然后提交挂起更改——这才是处理的流程。
如果想完全从DataTable中清除行，需要提交更改。
2.6.5 清除DataRow
要从DataTable中清除行，而不是标记为挂起更改，可以用DataRowCollection对象的Remove或者RemoveAt方法。
其中，Remove的参数需要，目标行的引用
RemoveAt的参数，需要目标行的索引编号。
l 代码
Dim row as DataRow
Row =ds.Tables(“Customers”).Rows.Find(“ALFKI”) ‘此处要注意，Find方法只能在主键中查找
Ds.Tables(“Customers”).Rows.Remove(row)
DataSet和DataTable两个对象都包含Clear方法，此方法用来清除所有的DataRow对象，而保留其结构。
2.6.6 使用DataRow.RowState属性
提交更改，到数据库，可以使用：
一、直接执行Sql语句的办法
二、使用存储过程
但是，修改行的逻辑与插入或者删除行的逻辑是不一样的，ADONET提交更改需要知道DataRow所作修改的类型，此信息被存储在DataRow对象的RowState属性中，该属性使用DataRowState类型枚举值来记录，行修改的类型。如下
|
常数 |
值 |
描述 |
|
Unchanged |
2 |
该行不包含任何挂起更改 |
|
Detached |
1 |
该行不是DataTable的成员 |
|
Added |
4 |
该行已被添加到DataTable中，但还不存在于数据库 |
|
Modified |
16 |
该行包含挂起更改 |
|
Deleted |
8 |
该行包含挂起删除 |
通常，RowState属性返回的都是枚举类型的一个值。而不是，你想当然的值组合。
下面是一些方案和结果
|
示例 |
DataRowState |
|
新创建，但却分离的行： row=tbl.NewRow row(“ColX”)=”InitVal” |
Detached |
|
将新行添加到数据表 Tbl.Rows.Add(row) |
Added |
|
新获取的行： Row=tbl.Rows(0)或者row=tbl.Rows(“Colx”) |
Unchanged |
|
编辑以后: Row.BeginEdit() Row(“Colx”)=”NewVal” Row.EndEdit() |
Modified |
|
删除行之后: Row.Delete() |
Deleted |
2.6.7 检查DataRow中的挂起更改
使用RowState属性可以，浏览DataTable的内容并，找到修改的行。
使用DataRow的Item属性，可以查看列的内容。
Item属性的第二个可以接受DataRowVersion类型的枚举值，含义如下
|
常量 |
值 |
描述 |
|
Current |
512 |
列当前值 |
|
Original |
256 |
列-原始值 |
|
Proposed |
1024 |
列的建议值（注意：只有在使用BeginEdit方法编辑行时才有效） |
|
Default |
1536 |
默认操作 |
一般来说，DataRow对象有行的当前值和原始值——这两个版本。
更新行之后，可以查看列的当前值和列的原始值。
l 代码演示：
Dim row As DataRow
row = ds.Tables("客户").Rows.Find("ALFKI")
row("公司名称") = "锐思控股"
ListBox1.Items.Add("列的当前值为- " & row("公司名称", DataRowVersion.Current))
ListBox1.Items.Add("列的原始值为- " & row("公司名称", DataRowVersion.Original))
使用BeginEdit和EndEdit时，你可以取回DataRowVersion的建议值——Proposed。
DataRow的各种状态和使用不同的DataRowVersion取回的Item值，列表如下：
|
示例 |
当前 |
原始 |
建议 |
默认 |
|
新建但独立的行： Row=tbl.NewRow Row(“Col1”)=”Val1” |
Val1 |
[Exception] |
[Exception] |
NewValue |
|
将新行加入表： Tbl.Rows.Add(row) |
Val1 |
[Exception] |
[Exception] |
NewValue |
|
取回的新行: Row=tbl.Rows(0) |
Retrieved_Value 寻回的值 |
Retrieved Value |
[Exception] |
Retrieved Value |
|
第一次编辑过程中： Row.BeginEdit() Row(“Col1”)=”NewVal” |
Retrieved_Value 寻回的值 |
Retrieved_Value 寻回的值 |
NewVal |
NewVal |
|
第一次编辑以后： Row.EndEdit() |
NewVal |
Retrieved-Value |
[Exception] |
NewVal |
|
第二次编辑中: Row.BeginEdit() Row(“Vol1”)=”NewVal2” |
NewVal2 |
Retrieved Value |
NewVal2 |
NewVal2 |
|
取消编辑之后: Row.BeginEdit() Row(“Col1”)=”valCancel” Row.CancelEdit() |
NewVal2 |
Retrieved value |
[Exception] |
NewVal2 |
|
删除行之后: Row.Delete() |
[Exception] |
Retrieved Value |
[Exception] |
[Exception] |
l 执行成功的操作，会影响【当前值】，但不会影响【原始值】
l 调用CancelEdit方法会将当前值重置为调用BeginEdit方法之前的状态，但是，不一定与原始值相同。
l 删除行后，如果试图查看其当前值，会产生异常，但是，仍然可以访问它的初始值。
Ø 关于Default
DataRow的Item属性中第二个参数使用Default，不会返回列的默认值（那是数据行的DefaultValue属性的功能）
这个Default实际上表示的是，DataRow对象的Item属性中参数的默认值。
Ø 关于这里的“当前”的理解
如果不是处于“编辑行”的状态，调用Item属性，实际上省略的可选参数（第二参数）是DataRowVersion.Current;
如果处于“编辑行“的状态，调用Item属性，省略的可选参数是“建议”Proposed