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

　　
　　您可以使用无数种方法在 VB6 和 VB.NET 中处理数据。这两个平台都支持诸如数组和集合之类的结构，开发人员通常将自定义类包装到这些结构中，就如您在 Carl Ganz 2004 年 3 月的专栏中看到的那样。数据独立（这可能是创建自定义数据抽象层的最大优势）允许用户在独立于数据库的情况下操作数据。这不仅降低了服务器的负担，还消除了维护到该数据库的开放连接的需要，或是对忘记更新 RDBMS 的担心。本月，Carl 将分析如何同时使用 ADO 和 ADO.NET 来创建此类数据对象。
　　
　　在 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
　　a?
　　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)
　　a?
　　'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查看本文来源