数据库-ADONET-排序、搜索和筛选
排序、搜索和筛选
如何使用一个值或一组值来查找DataTable中的特定行？
如何使用筛选程序是只有满足条件的行可见？
如何控制要访问或者显示的行的排序顺序？
可以使用：
DataRowCollection类的Find方法，DataTable类是Select方法，DataView对象和DataRowView对象。
1 使用DataTable对象的搜索和筛选功能
DataTable对象公开了两个方法，它们可以用来根据搜索标准查找数据。
Find方法，根据主键值来查找数据。
Select方法，类似于筛选程序，根据更灵活的搜索标准返回多行数据。
1.1 根据主键值查找行
查询数据库以获取信息时，通常都会希望，根据其主键列的值，来获取特定行的数据。
可以使用以下查询：
Select CustomerID,CompanyName,ContactName,Phone from Customers where CustomerID=”ALFKI”
还可以根据行的主键值，在DataTable中查找DataRow。
尽管Find方法是为DataTable对象设计的，但是，它实际上是由DataRowCollection类公开的。
Find方法接受一个包含要查询的行的主键值作为参数，因为主键值是惟一的，所以Find方法只能返回一行DataRow。
Dim strConn, strSql as string
strConn=”Provider=SQLOLEDB;Data Source=(local)"NetSDK; Initial Catalog=Northwind;
Trusted_Connection=Yes;”
strSql=”select CustomerID,CompanyName,ContactName,Phone from Customers”
Dim da as New Oledb.OledbDataAdapter(strSql,strConn)
Dim tbl as new DataTable
Da.fill(tbl)
Tbl.PrimaryKey=new DataColumn(){tbl.Columns(“CustomerID”)}
Dim row as DataRow=tbl.Rows.Find(“ALFKI”)
If row Is Nothing then
Console.WriteLine(“Row Not Found.”)
Else
Console.WriteLine(Row(“CompanyName”))
End IF
注意：
从技术角度来说，DataTable可以包含拥有相同主键值的多个行。
如果，将DataSet的EnforceConstraints属性设置为假False，那么即使违反了主键约束，DataTable也不会抛出异常。
Find方法将返回找到的所有目标主键值的行。
Find方法，针对DataTable的主键包含多个DataColumn对象的场景，进行了重载。（组合主键）
例如：对于【Order Details】表，主键是OrderID/ProductID，查找演示如下：
Dim strConn,strSql as string
strConn=”...”
strSql=”select OrderID,ProductID,Quantity,UnitPrice from [Order Details]”
dim da as New OleDbDataAdapter(strSql,strConn)
dim tbl as new DataTable()
da.Fill(tbl)
tbl.PrimaryKey=new DataColumn(){tbl.Column(“OrderID”),tbl.Columns(“ProductID”)}
Dim objCriteria as new Object(){10643,28}
Dim row as DataRow=tbl.Rows.Find(objCriteria)
If row Is Nothing Then
Console.WriteLine(“Row Not Found”)
Else
Console.WriteLine(“row(“Quantity”) & “ – “ & row(“UnitPrice”))
End If
1.2 执行更动态的搜索
根据主键值查找行，是很高效的。
但是，并非所有搜索都是如此直观。
如果希望查找“位于美国而不在西雅图市的客户”，该怎么办？可以使用Where子句向查询添加一个条件，如下：
Select CustomerID,CompanyName,ContactName,Phone,City,Country from Customers
where Country=”USA” AND City <> “Seattle”
在ADONET中，还可以用DataTable对象的Select方法来实现类似的条件查询。
Dim strConn as string=”Provider=SQLOLEDB;Data Source=(local)"NETSDK;Initial Catalog=Northwind;
Trusted_Connection=Yes;”
Dim strSql as String=”select CustomerID,CompanyName,ContactName,Phone,City,Country
from Customers”
Dim da as New OleDbDataAdapter(strSql,strConn)
Dim tbl as new DataTable()
Da.Fill(tbl)
Dim arows as DataRow()
Dim row as DataRow
Arows=tbl.select(“Country=’USA’ AND City <> ‘Seattle”)
For Each row in arows
Console.WriteLine(row(“CompanyName”) & “ – “ & row(“City”) & “ – “ & row(“Country”))
Next row
1.3 执行通配符搜索
ADONET允许使用通配符进行搜索。
在SQL语句中查询CustomerID列是以字母A开始的客户，
Select CustomerID,CompanyName from Customers where CustomerID LIKE ‘A%’
可以在字符串的开始或者结尾使用“%或*”作为通配符。
strFilter=”State LIKE ‘New %’” – 将返回在以New开头地区的客户
strFilter=”State LIKE ‘% Dakota ‘” – 将返回北Dakota和南Dakota的客户
ADONET不能使用单字母通配符（如：“？”、“_”等）
1.4 使用分隔符
在搜索条件中，不能简单的使用“单引号”括住一个字符串，就拉倒了。
如果是动态构建搜索条件，其中可能会包含“单引号”，那么搜索条件就必须重复它（就是替换成’’），这可以用String类的Replace方法处理。
strCriteria=”LastName=’” & strLastName.Replace(“ ’ ”, ” ’’ ”) & “’”
以上是对于“字符串”的处理，那么怎么分隔日期？
使用pound号（就是#号）括住日期。
strCriteria=”OrderData>= #01/02/2002# AND OrderDate < #02/02/2002#”
在某些情况下，需要在搜索条件中分隔列名，原因可能是：
l 列名中有空格或其他非字母字符
l 列名是保留单词，如LIKE或SUM等等
在ADONET中，可以使用方括号来作为“列分隔符”。
strCriteria=”[Space In Name]=3”
如果在列名中有列分隔符，又怎么办？
可以在条件字符串的结束分隔符“）”之前用转移字符“"”。比如：列名为Bad]Column[Name，可以这样写：strCriteria=”[Bad"]Column[Name]=5”
需要特别注意的是，对于C#来说，由于“"”是转义字符，所以实际的字符串应该这样写：
“[Bad""]Column[Name]=5”
1.5 使用附加Select方法
Select方法有一些重载方法，其中的参数包括：
l 只提供搜索字符串
l 包括排序顺序以及控制要搜索的行的状态参数（例如：仅搜索添加的行或仅搜索被修改的行）
1.5.1 包括“排序顺序”
可以通过使用Select重载方法之一，来空值返回的DataRow对象的顺序。
在Sql查询中，可以使用ORDER BY子句，来控制有查询返回的数据的排序顺序。
例如：
Select CustomerID,CompanyName,Phone,City from Customers ORDER BY City
如果是City按照降序排序，则改为ORDER BY City DESC
DataTable的Select方法，使用示例如下：
Dim strConn,strSql as String
strConn=”Provider=SQLOLEDB;Data Source=...;Initial Catalog=Northwind;
Trusted_Connection=Yes;”
strSql=”select CustomerID,CompanyName,Phone,City,Country from Customers”
Dim da as New Oledb.OleDBDataAdapter(strSql,strConn)
Dim tbl as New DataTable()
Da.Fill(tbl)
Dim strCriteria As String=”Country=’USA’ AND City <> ‘Seattle’”
Dim strSortOrder as string=”City DESC”
Dim arows as DataRow()=tbl.select(strCriteria,strSortOrder)
Dim row as DataRow
For each row in arows
Console.WriteLine(row(“CompanyName”) & “ – “ & row(“City”) & “ – “ & row(“Country”))
Next Row
1.5.2 指定要搜索的行的状态RowState
使用Select方法的重载版本之一，指定DataViewRowState枚举值作为参数，可以只对特殊状态的行进行搜索。
举例：希望只检查DataTable中被修改的和被删除的行，使用DataViewRowState枚举类型中的ModifiedOriginal和Deleted，将筛选和排序参数使用空串，具体如下：
Dim dvrs as DataViewRowState
Dvrs=DataViewRowState.ModifiedOriginal Or DataViewRowState.Deleted
Dim arows() as DataRow=tbl.Select(“”,””,dvrs)
Dim row as DataRow
For Each row in arows
Console.WriteLine(row(“CompanyName”,DataRowVersion.Original))
Next Row
这里要注意的是，被删除的行只能检查行的“原始值Original”。
2 DataView对象
DataTable的Select方法，它有两方面的局限性。
第一：因为它接受动态的搜索条件，所以效率不高；
第二：Windows和WEB窗体都不支持“绑定”到Select方法的返回值（DataRow数组）
ADONET针对此问题，提供的解决方案是“DataView”对象。
ADONET体系中DataTable对象基本等价于数据库中的表，所以可以假设DataView对象类似于视图。
2.1 DataView对象从DataTable中返回数据
DataView对象不维护自己的数据副本。
当通过DataView访问数据时，DataView将返回存储在相应DataTable中的数据。
类似的，数据库中的视图也是一样，查询一个视图时，数据库会从视图所引用的一个或多个表中返回数据。
2.2 DataView对象不是SQL查询
数据库的视图实际上就是一个查询。
在数据库中创建视图时，要提供数据库将要执行的，返回视图的数据查询：
CREATE VIEW ViewCustomersAndOrders AS
SELECT c.CustomerID,c.CompanyName,c.ContactName,c.Phone,o.OrderID,o.EmployeeID,
o.OrderDate
FROM Customers c,Orders o WHERE c.CustomerID=o.CustomerID
而，ADONET的DataView对象可以，筛选、排序、搜索DataTable的内容，但——它们并非SQL查询。
l 不能用DataView在两个DataTable间联结Join数据。
l 不能用DataView查看DataTable中的部分列。
DataView确实支持基于动态标准的行筛选，但是，它们只能访问一个DataTable，而且，DataTable中所有列都可通过DataView得到。
用DataRelation来模拟连接
可以用DataRelation配合一个基于表达式的列模拟联结。
比如说：有一个客户DataTable和一个订单DataTable，可以在两个表之间创建关系，然后在订单表中添加基于表达式的列（用来显示客户表的列）：
Ds.Relations.Add(“CustomersOrders”,ds.Tables(“Customers”).Columns(“CustomerID”),
ds.Tables(“Orders”).Columns(“CustomerID”))
Ds.Tables(“Orders”).Columns.Add(“CompanyName”,GetType(String),
“Parent(CustomersOrders).CompanyName”)
3 在代码中使用DataView对象
DataView对象提供了与DataTable对象的Select方法类似的功能。
3.1 创建DataView对象
要使用DataView对象查看DataTable中数据，必须【将它与DataTable关联】。
可以——使用DataView的Table属性；或者在DataView构造函数中——指定所要使用的DataTable
Dim tbl as New DataTable(“TableName”)
Dim vue as DataView
Vue=new DataView()
Vue.Table=tbl
Vue=new DataView(tbl)
注意：如果使用DataView属性Table来设置关联的DataTable时，一定要保证DataTable的TableName不能是默认值（就是空字符串）。
这个限制在使用DataView的构造函数是就没有。
DataView的另一个构造函数，签名与DataTable.Select方法极为接近。
在其中，需要设置（DataView的Table、RowFilter、Sort、RowStateFilter）
Dim tbl as New DataTable(“Customers”)
Dim dvrs as DataViewRowState
Dvrs=DataViewRowState.ModifiedOriginal or DataViewRowState.Deleted
Dim vue as newDataView()
Vue.Table=tbl
Vue.RowFilter=”Country=’USA’”
Vue.Sort=”City DESC”
Vue.RowStateFile=dvrs
Vue=new DataView(tbl,”Country=’USA’”,”City DESC”, dvrs)
3.2 使用RowStateFilter属性
RowStateFilter属性接受DataViewRowState枚举类型值。
RowStateFilter属性，能起到双重筛选程序的作用。比如：值ModifiedOriginal，表示修改过的行，会显示原始值。
l DataViewRowState枚举值表
|
值 |
说明 |
|
Added |
包括新添加的行 |
|
CurrentRows |
包括未删除的行（这是默认值） |
|
Deleted |
包括被删除的行。 |
|
ModifiedCurrent |
包括被修改的行，且显示“当前值” |
|
modifiedOriginal |
包括被修改的行，且显示“原始值” |
|
None |
不包括任何行 |
|
OriginalRows |
所有的行（被删除的、被修改的、未被删除的），都显示“原始值” |
|
Unchanged |
包括未被修改的行 |
3.3 使用DataRowView对象
在使用DataTable.Select方法时，存在以下问题：如果指定了ModifiedOriginal，那么返回的是被修改过的行，对于返回的DataRow对象，需要调用过程才能得到行的原始值。
因为DataView对象返回数据使用的是专门的“DataRowView对象”。
DataRowView提供了与DataRow类似的功能，它公开了默认的Item属性，使用该属性，通过提供列名或者列索引来访问列的内容。DataRowView的Item属性，可以用来检查和修改行的内容；但是，“通过DataRowView只能使用一个版本的行数据”，也就是说，在DataView对象的DataRowVersion属性中指定哪个版本的数据，DataRowView就只能显示这个版本数据。
Dim tbl As New DataTable(“Customers”)
...
Dim vue As DataView
Vue=New DataView(tbl)
Dim row as DataRowView=vue(0)
Console.WriteLine(vue(“CompanyName”)
如果发现DataRowView对象的功能不足以满足要求，可以使用DataRowView的Row属性访问相应的DataRow对象。
3.4 通过DataView检查所有可用数据各行
用DataView访问数据与直接访问DataTable数据略有不同。
DataTable通过Row属性公开了自己的数据行（你可以用For Each遍历内容）；
DataView则没有此种可枚举的集合来公开数据。
DataView对象公开了一个Count属性，该属性返回DataView可见行的数量。通过它可以构造一个For循环检查各行。
DataView还公开了一个返回IEnumerator对象的方法（GetEnumerator）。IEnumerator对象属于System.Collections命名空间，提供了与DataReader的MoveNext方法类似的导航功能。
Dim tbl as New DataTable(“Customers”)
...
Dim vue as DataView
Vue=New DataView(tbl,””,””,DataViewRowState.ModifiedOriginal)
Dim rowView as DataRowView
Dim intCounter as Integer
For intCounter=0 to vue.count-1
RowView=vue(intCounter)
Console.WriteLine(rowView(“CompanyName”))
Next intcounter
Dim objEnum as IEnumerator=vue.GetEnumerator()
Do While objEnum.MoveNext()
Row=Ctype(objEnum.Current,DataRowView)
Console.WriteLine(row(“Companyname”))
Loop
3.5 在DataView中搜索数据
DataView对象使用：RowFilter和RowStateFilter——支持“筛选”。
它还使用：Find和FindRows方法——支持“搜索”。
3.5.1 Find方法
使用Find方法，首先要设置DataView的Sort属性。Find方法根据Sort属性中指定的列来查找，可以 提供一个或多个值。
不过，DataView的Find方法的返回值：不是DataRow或者DataRowView对象；它返回一个整数值，对应所需行在DataView中的索引。如果没找到，返回值为-1。
Dim strConn As String =”Providor=SQLOLEDB;Data Source=...;Initial Catalog=Northwind;
Trusted_Connection=Yes;”
Dim strSql As String=”Select ComstomerID,CompanyName,ContactName,Phone,City,Country
from Customers”
Dim da As New OleDBDataAdapter(strSql,strConn)
Dim tbl As new DataTable()
Da.Fill(tbl,”Customers”)
Dim vue as New DataView(tb)
Vue.Sort=“ContactName”
Dim i As Integer=vue.Find(“Fran Wilson”)
If i=-1 Then
Console.WriteLine(“Row Not Found”)
Else
Console.WriteLine(vue(i)(“CompanyName”))
End IF
3.5.2 FindRows方法
在DataRowCollection对象中，其Find方法会根据DataTable对象的“PrimaryKey属性”，进行搜索，因为（主键也与惟一键约束相关联），所以最多只能有一行满足
DataRowCollection.Find方法所指定的条件。
然而，DataView对象的Find方法是根据（其Sort属性中指定的列）来进行搜索，DataView中的数据在此排序列可能有多行数据是相同值，此时不能用DataView.Find定位所有的【相同值数据行】，因为Find方法返回值是一个整数。
☆DataView对象的另一个方法【FindRows】可以完成这种功能，调用方法跟Find一样，但它返回满足条件的DataRowView对象数组。
...
Dim vue As New DataView(tbl)
Vue.Sort=”Country”
Dim arows as DataRowView()=vue.FindRows(“Spain”)
If arows.Length=0 Then
Console.WriteLine(“没找到”)
Else
Dim row As DataRowView
For Each row in arows
Console.WriteLine(row(“City”))
Next Row
End If
3.6 修改DataRowView对象
用DataRowView对象修改一行数据，类似于修改DataRow的内容。
DataRowView对象也公开了BeginEdit、EndEdit、CancelEdit和Delete方法。
创建新数据行时，DataRowView与DataRow有点不同：
DataView有一个AddNew方法，它返回一个新DataRowView，在返回的DataRowView调用EndEdit方法之后，新行才真正被添加到底层的DataTable
Dim tbl as New DataTable(“Customers”)
...
Dim vue as New DataView(tbl)
Dim row as DataRowView=vue.AddNew()
Row(“CustomerID”)=”ABCDE”
Row(“CompanyName”)=”New Company”
Row(“ContactName”)=”New Contact”
Row(“Phone”)=”(617) 555-1212”)
Row.EndEdit()
‘修改一行
Row.BeginEdit()
Row(“CompanyName”)=”Modified”
Row.EndEdit()
‘删除一行
Row.Delete()
