在 ADO 和 ADO.NET 中管理离线数据

转载 2006年06月02日 20:26:00

Carl Ganz, Jr.

*

在 VB6 中,OLE DB 游标服务允许您创建通常作为虚构的Recordset 的内容。这些只是 ADO Recordset 对象的内存中实例,Field 对象将添加到这些实例中以形成一个数据结构。您需要显式创建这些 Recordset 客户端,如清单 1 中所示;默认情况下,它们是在服务器端创建的,您在服务器上不能有离线 Recordset。

Set oRS = New ADODB.Recordset
oRS.CursorLocation = adUseClient
oRS.CursorType = adStatic
oRS.LockType = adLockBatchOptimistic
'Add a few fields
With oRS.Fields
.Append "LastName", adVarChar, 40, adFldIsNullable
.Append "FirstName", adVarChar, 40, adFldIsNullable
.Append "HireDate", adDate
End With
oRS.Open

一旦创建 Recordset,您就可以用数据填充它了。请注意,Field 集合的 Append 方法只能用于关闭的 Recordset;如果您在打开 Recordset 的 Fields 集合上或是已设置 ActiveConnection 属性的 Recordset 上调用 Append,就会导致运行时错误。清单 2 阐释了如何将数据添加到 Recordset 对象。

清单 2 中的最后两行代码阐释了如何创建索引,以使排序更加高效。(通常,您应通过一个提供初始排序的 SQL 命令来加载此类数据,但是如果数据在网格中,您可能希望允许用户通过(比如说)单击列标题来排序它。)

清单 2. 用数据填充 Recordset 对象。

'Populate with some data
oRS.AddNew Array("LastName", "FirstName", "HireDate")_
, Array("Washington", "George", "3/12/2003")
oRS.AddNew Array("LastName", "FirstName", "HireDate")_
, Array("Adams", "John", "8/5/2003")
oRS.AddNew Array("LastName", "FirstName", "HireDate")_
, Array("Jefferson", "Thomas", "4/27/2003")
oRS.Update
'Create an in-memory index
oRS.Fields("LastName").Properties("Optimize").Value _
= True
'Sort on first name
oRS.Sort = "FirstName"

创建 Recordset 的另一种方法涉及到离线 Recordset。这只是一个 Recordset 对象,它随后将连接到由于将 ActiveConnection 属性设置为 Nothing 而离线的服务器(请参见清单 3)。

清单 3. 创建离线 Recordset。

Dim objConnection As ADODB.Connection
Dim szSQL As String
Set objConnection = New ADODB.Connection
'Open a connection
objConnection.ConnectionString = "whatever"
objConnection.Open
'Instantiate a Recordset object...
Set oRS = New ADODB.Recordset
oRS.CursorLocation = adUseClient
oRS.CursorType = adOpenStatic
oRS.LockType = adLockBatchOptimistic
'...and set the ActiveConnection property
Set oRS.ActiveConnection = objConnection
szSQL = "SELECT LastName, FirstName " & _
"FROM Employees " & "ORDER BY LastName, FirstName"
'Open the Recordset and return the employee data
oRS.Open szSQL
Set oRS.ActiveConnection = Nothing
objConnection.Close
Set DataGrid1.DataSource = oRS

使用 ADO.NET

ADO.NET 为离线数据管理提供了更强大的功能。DataTable 和 DataSet 对象本身就定义为离线,因此您不必执行任何操作来使它们离线。从概念上来说,ADO.NET DataTable 对象和 ADO Recordset 对象的编程创建过程非常类似,如清单 4 中所示。在本示例中,我们要创建一个 DataTable 对象,并向其添加列和行对象。正如您将看到的那样,ADO.NET 的方法使用了一个比基于 COM 的 ADO 所使用的更加层次化的对象模型。

清单 4. 创建 ADO.NET DataTable 对象。

Dim oDataRow As DataRow
Dim oDataColumn As DataColumn
Dim aPrimaryKey(0) As DataColumn
oDS = New DataSet
'Create a new DataTable oect
oEmployeeDT = New DataTable
'Add an event handler for column data changes
AddHandler oEmployeeDT.ColumnChanged, _
New DataColumnChangeEventHandler(AddressOf _
ColumnChanged)
'Create primary key (PK) col and add it to the columns
'collection. Set init value to 1, increment as needed.
oDataColumn = New DataColumn
oDataColumn.ColumnName = "ID"
oDataColumn.DataType = _
System.Type.GetType("System.Int32")
oDataColumn.AutoIncrement = True
oDataColumn.AutoIncrementSeed = 1
oEmployeeDT.Columns.Add (oDataColumn)
'PK property receives array of DataColumn objects in
'case you have multi-col index. I prefer an ID column.
aPrimaryKey(0) = oDataColumn
oEmployeeDT.PrimaryKey = aPrimaryKey
'Create the individual data columns
…
oDataColumn = New DataColumn
oDataColumn.ColumnName = "Salary"
oDataColumn.DataType = _
System.Type.GetType("System.Decimal")
oEmployeeDT.Columns.Add (oDataColumn)
'Here we use DataColumn's Expression property to show
'what a 28% tax on the salary will amount to.
oDataColumn = New DataColumn
oDataColumn.ColumnName = "IncomeTax"
oDataColumn.DataType = _
System.Type.GetType("System.Decimal")
oDataColumn.Expression = "Salary * .28"
oEmployeeDT.Columns.Add (oDataColumn)
oDataColumn = New DataColumn
oDataColumn.ColumnName = "HireDate"
oDataColumn.DataType = _
System.Type.GetType("System.DateTime")
oEmployeeDT.Columns.Add (oDataColumn)
'This col receives the value calc'd by event handler
oDataColumn = New DataColumn
oDataColumn.ColumnName = "DaysSinceHire"
oDataColumn.DataType = _
System.Type.GetType("System.Int16")
oEmployeeDT.Columns.Add (oDataColumn)
'Once the columns are added, add sample data
oDataRow = oEmployeeDT.NewRow()
oDataRow("LastName") = "Washington"
oDataRow("FirstName") = "George"
oDataRow("Salary") = 45000
oDataRow("IncomeTax") = True
oDataRow("HireDate") = "4/12/1981"
oEmployeeDT.Rows.Add (oDataRow)
…
'Commit new data to the DataTable object and set
'RowState values of each row to Unchanged
oEmployeeDT.AcceptChanges()
'Let's show the user
DataGrid1.DataSource = oEmployeeDT

在实例化 DataTable 对象之后,您就可以使用这个事件模型将事件处理程序“DataColumnChangeEventHandler”设置为自定义例程。通过传递 ColumnChanged 例程的地址,只要一个列中的数据更改,您就可以执行这个处理程序。在本例中,我们要使用它来确定职员被雇佣以来的天数(请参见清单 5)。

清单 5. ColumnChanged 事件处理程序。

Sub ColumnChanged(ByVal sender As Object, _
ByVal e As DataColumnChangeEventArgs)
If e.Column.ColumnName = "HireDate" Then
e.Row("DaysSinceHire") = _
DateDiff(DateInterval.Day, _
e.Row("HireDate"), Date.Today)
End If
End Sub

由于用户在网格中编辑数据、添加和删除行,因此每个行对象的 RowState 属性会更改,以指示所作修改的类型。当用户将离线数据提交到 RDBMS 时,需要计算每一行来确定用户执行了何种类型的更改。要完成这一操作,您可以通过 GetChanges 方法检索包含所有新近添加、修改和删除的行的 DataTable 对象。然后,循环访问这个新 DataTable 中的每个行对象并计算 RowState 属性,如清单 6 中所示。

清单 6. 标识更改的行并保存更改。

Dim oDataRow As DataRow
Dim oChangeDT As DataTable
'Get DataTable with only changed rows
oChangeDT = oEmployeeDT.GetChanges()
'Save button s/b disabled until a change is made
If oChangeDT Is Nothing Then
Exit Sub
End If
'Loop thru changed rows, make db updates
For Each oDataRow In oChangeDT.Rows
Select Case oDataRow.RowState
Case DataRowState.Added
'Insert code here
Case DataRowState.Modified
'Update code here
Case DataRowState.Deleted
'Delete code here
End Select
Next
oChangeDT.Dispose()
oChangeDT = Nothing
oDataRow = Nothing
'Issue AcceptChanges method to reset RowState values
oEmployeeDT.AcceptChanges()

假定我们需要(比如说)以一对多 (1:M) 的关系使用多个表。因为数据是相关的,所以我们可以在一个单独的 DataTable 中管理该信息,并在 DataSet 对象的保护下维护两个 DataTable 之间的关系。在以下示例中,我们将为每个职员指定多种薪水,并在相关的网格控件中查看它们。通过使用 DataRelation 对象,我们可以在两个数据集之间创建一个内存中关系,并将 Employee 表的 ID 列用作主键 (PK),而将 Paycheck 表的 EmployeeID 列用作外键 (FK)。引用完整性 (RI) 原则告诉我们,当一个职员记录被删除时,所有关联的薪水数据也必须被删除。为了实施这个规则,我们可以设置一个 ForeignKeyConstraint 对象(请参见清单 7)。

清单 7. 设置数据关系。

Dim oDataRelation As DataRelation
Dim oParentColumn As DataColumn
Dim oChildColumn As DataColumn
Dim oForeignKeyConstraint As ForeignKeyConstraint
GetPaychecks()
'Manage both tables from within a DataSet object
oDS.Tables.Add (oEmployeeDT)
oDS.Tables.Add (oPayCheckDT)
'Retrieve PK, FK from the employee, paycheck tables
oParentColumn = oEmployeeDT.Columns("ID")
oChildColumn = oPayCheckDT.Columns("EmployeeID")
'Create DataRelation object to maintain relationship
oDataRelation = New DataRelation("EmployeePaycheck", _
oParentColumn, oChildColumn)
oDS.Relations.Add (oDataRelation)
'Create ForeignKeyConstraint obj. to enforce delete
oForeignKeyConstraint = New _
ForeignKeyConstraint(oParentColumn, oChildColumn)
oForeignKeyConstraint.DeleteRule = Rule.Cascade

实际上,本文只是粗浅地探讨了您在 VB6 和 .NET 中使用离线数据可以实现的操作。由于 Microsoft 的数据访问技术正趋向于广泛使用离线数据,因此了解如何使用离线数据对您未来的开发工作是至关重要的。

下载 408CARL1.ZIP

有关 Hardcore Visual Basic 和 Pinnacle Publishing 的详细信息,请访问其网站 http://www.pinpub.com/

注:这不是 Microsoft Corporation 的网站。Microsoft 对该网站的内容不承担责任。

本 文是从 Hardcore Visual Basic 2004 年 8 月号转载的。版权所有 2004,Pinnacle Publishing, Inc.(除非另行说明)。保留所有权利。Hardcore Visual Basic 是 Pinnacle Publishing, Inc. 独立发行的产品。未经 Pinnacle Publishing, Inc. 事先同意,不得以任何形式使用或复制本文的任何部分(评论文章中的简短引用除外)。要联系 Pinnacle Publishing, Inc.,请致电 1-800-788-1900。

相关文章推荐

ADO.NET-离线模式操作数据集

DataSet对象支持ADO.NET断开式、分布式数据方案的核心对象,也是实现基于非连接的数据查询的核心组件。对DataSet对象可以将其看作是在内存中创建的一个小型关系数据库,它将数据库中的数据复制...
  • Su_wu
  • Su_wu
  • 2017年10月18日 10:09
  • 39

ado.net视频教程-实战开发CRM企业客户管理系统

ado.net视频教程-基于ASP.NET MVC3+ADO.NET4+EF4.1+Jquery+插件等技术下的CRM企业客户管理系统 ado.net视频教程项目简介: 客户是公司最宝贵的资源,为...

C#集合篇,在业务背景下(***产品升级管理):依赖注入,变量声明,三元表达式,常用字符串相关操作方法,ADO.NET,EF机制,T4模板自动生成实体类,ref变量巧用,属性实际运用,唯一性验证

QQ:1187362408 欢迎技术交流和学习 关于系统产品升级报告管理,业务需求: TODO: 1,升级报告管理:依据各县区制定升级报告(关联sAreaCode,给每个地区观看具体升级报告信息...

分享一个html+js+ashx+easyui+ado.net权限管理系统

EasyUI、权限管理 这是个都快被搞烂了的组合,但是easyui的确好用,权限管理在项目中的确实用。一直以来博客园里也不少朋友分享过,但是感觉好的要不没源码,要不就是 过度设计写的太复杂看不懂,也懒...

自定义Unity对象生命周期管理集成ADO.NET Entity Framework

来源:http://blog.csdn.net/shanyou/article/details/4681355   在Unity中,从Unity 取得的实例为 Transient。如果你希望使...

初涉三层架构,UI层和DAL层的调用,ADO.NET对数据库的数据增删改

UI层:可以说是界面层吧

黑马程序员之ADO.NET学习笔记:网络数据的事务处理

事务处理是为了防止在网络上多用户对数据库的并发操作破坏数据的一致性和完整性,而事务处理主要通过SqlTransaction对象完成,其主要的方法有:Commit()方法主要负责提交事务处理完成真正的数...

WebForm获取GET或者POST参数到实体的转换,ADO.NET数据集自动转换实体

最近在修改维护以前的webform项目(维护别人开发的.....)整个aspx没有用到任何的控件,这个我也比较喜欢不用控件 所以在提交信息的时候需要自己手动的去Request.QueryString[...
  • yhyhyhy
  • yhyhyhy
  • 2016年02月25日 15:28
  • 347

解决VS2013使用MySQL无法创建ADO.NET实体数据类型的问题

VS2013使用MySQL无法创建ADO.NET实体数据类型的问题 安装connector和vs插件之后,在添加ado.net实体时,提示项目使用了最新版本实体框架;但是,找不到进行数据连接所需的与此...

设置App_Code里的类作为水晶报表的ADO.Net数据源

上面有一个在App_Code里的一个类 using System; using System.Collections.Generic; using System.Linq; using System....
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在 ADO 和 ADO.NET 中管理离线数据
举报原因:
原因补充:

(最多只允许输入30个字)