(转载)一致的数据访问技术 ADO/OLE DB ( 三) - FreeBird

一致的数据访问技术 ADO/OLE DB ( 三)

潘爱民

四、ADO 高级特性

---- 为了更全面地介绍一致数据访问技术，这一部分将重点介绍ADO 的一些高级特性。我们在编写数据访问应用系统时，通常情况下只是简单地对数据进行各种增、删、改的操作，但有时情形要复杂一些，我们可能需要考虑性能，也可能需要支持大数据量，或者支持长数据类型等等，在这些情况下，我们可以考虑使用ADO 的一些高级特性。下面分别介绍这些高级特性。

---- (1) 处理数据定义语言

---- 数据定义语言是指支持数据库对象维护的一些SQL 语句，比如CREATE TABLE、DROP TABLE 或ALTER TABLE 等。因为执行这些语句并不产生记录集，所以我们没有必要使用Recordset 对象，只需使用Command 对象即可。为了区别于存储过程(store procedure)，Command 对象的CommandType 属性必须指定为adCmdText。下面的代码显示了这种用法：

Dim Cn As New ADODB.Connection
Dim Cmd As New ADODB.Command
'If the ADOTestTable does not exist
On Error GoTo AdoError
Cn.Open "MySamples","sa"
Set Cmd.ActiveConnection = Cn
Cmd.CommandText = "drop table MyTestTable"
Cmd.CommandType = adCmdText
Cmd.Execute
Cmd.CommandText = "set nocount on"
Cmd.Execute
Cmd.CommandText = "create table MyTestTable (id int, Name char(100))"
Cmd.Execute
Cmd.CommandText = "insert into MyTestTable values(1, 'Pan Aimin')"
Cmd.Execute
Cn.Close
Exit Sub
AdoError:
'handle error ......

---- (2) 使用" 编译过" 的Command 对象

---- 在第二部分介绍Command 命令对象时，我们曾经说过可以通过Prepared 属性指示底层的提供者为当前查询命令准备一个编译过的版本，以后再执行此命令时，速度会大大加快。如果我们在执行命令之前，把Command 对象的Prepared 属性设置为True，则命令被首次执行时，其查询串被优化处理，以后再调用此查询命令时，性能会明显提高，因为查询串已经被优化和" 编译过" 了。而且Prepared 属性对于参数化的查询串也有效。

---- 当然并不是所有的OLE DB 提供者都支持这种特性，SQL Server OLE DB 支持这种特性，当设置了Prepared 属性为True 的命令被执行时，底层的提供者实际上创建了一个临时的存储过程，当下次执行此命令时，提供者启动存储过程。当命令对象或连接对象被删除时，此临时存储过程也被删除。

---- 如果Command 对象只被执行一次，那么使用Prepared 属性没有任何意义，甚至反而降低效率。

---- Prepared 属性的用法比较简单，这里不再给出代码。

---- (3) 存储过程和参数处理

---- 存储过程与前面介绍的" 编译过" 的命令对象有点类似，存储过程运行在服务器上，它可以把复杂的应用逻辑封装在服务器一端，而在客户程序中只需调用简单的SQL 语句即可。如果我们要在ADO 的Command 对象中执行存储过程，可以把CommandType 属性指定为adCmdStoredProc，当然，在存储过程类型的Command 对象中，不要再指定Prepared 属性为True。存储过程的用法非常简单，下面是一个例子：

Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Cmd.ActiveConnection = "DSN=MySamples;uid=sa"
Cmd.CommandText = "MyProc"
Cmd.CommandType = adCmdStoredProc
Set rs = Cmd.Execute()
Debug.Print rs(0)
rs.Close

---- 存储过程允许包含输入输出参数和返回值，对应到Command 对象中，这些参数就是Parameter 对象，输入参数的处理比较简单，输出参数和返回值的处理有所不同，只有当返回的Recordset 对象的记录全部遍历或Recordset 对象关闭之后，输出参数和返回值才真正有效。

---- 对于下面的存储过程：

CREATE PROCEDURE MyProc @ioparm int OUTPUT AS
SELECT name FROM MyTestTable WHERE id < 2
SELECT @ioparm = 1
RETURN 100

---- 下面的代码执行此存储过程：

Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim param As Parameter
Cmd.ActiveConnection = "DSN=MySamples;UID=sa"
Cmd.CommandText = "MyProc"
Cmd.CommandType = adCmdStoredProc
'Set up parameters.
Set param = Cmd.CreateParameter("Return", adInteger, adParamReturnValue, , 0)
Cmd.Parameters.Append param
Set param = Cmd.CreateParameter("Output", adInteger, adParamOutput, , 0)
Cmd.Parameters.Append param
Set rs = Cmd.Execute
If Not rs.EOF And Not rs.BOF Then
Debug.Print rs(0)
rs.Close
End If
Debug.Print Cmd(0) 'The return code
Debug.Print Cmd(1)  'The Output parameter

---- (4) 批修改处理

---- 我们知道Recordset 对象的Update 方法用于修改当前记录，而UpdateBatch 方法则用于递交所有对当前记录集的增、删、改操作。把Recordset 对象的LockType 属性设置为adLockBatchOptimistic，则UpdateBatch 方法有效，当然，不同的OLE DB 提供者可能还会有不同的要求，比如，SQL Server 提供者也要求游标类型为键集游标或静态游标。UpdateBatch 方法可以一次把客户端所有的修改传送到数据库中，相对应地，也可以调用CancelBatch 方法取消所有的修改操作。

---- 在调用了UpdateBatch 方法之后，错误处理与通常有所不同。在错误处理过程中，可以通过设置Recordset 对象的Filter 属性为adFilterConflictingRecords，然后对冲突的记录逐个进行处理。下面我们给出一个批修改处理的例子：

Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic
rs.Open "select * from MyTestTable", "DSN=MySamples;uid=sa"
'Change the type for a specified title.
While (Not rs.EOF)
If Trim(rs("Title")) = "instructor" Then
rs("Title") = "Engineer"
End If
rs.MoveNext
Wend
rs.UpdateBatch
rs.Close

---- (5) 多记录集处理

---- 有些情况下，一个SQL 语句可以产生多个记录集，存储过程也可以产生多个记录集。在这些情况下，我们可以逐个获取记录集，利用Recordset 对象的NextRecordset 方法可以依次获得每一个记录集，如果所有的记录集都已经获得，则最后调用NextRecordset 方法返回Nothing。

---- 下面的代码说明了这种用法：

Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset
Cmd.ActiveConnection = "DSN=MySamples;UID=sa"
Cmd.CommandText = "MyNextProc"
Cmd.CommandType = adCmdStoredProc
Set rs = Cmd.Execute()
While Not rs Is Nothing
If (Not rs.EOF) Then
Debug.Print rs(0)
End If
Set rs = rs.NextRecordset()
Wend

---- (6) 客户端游标和服务器端游标

---- 游标服务是数据访问的重要内容，在第二部分介绍Recordset 对象时，我们说明了游标的4 种类型，在Recordset 对象还有一个属性CursorLocation 用于指定游标的位置，我们可以指定使用客户端的游标，也可以指定使用服务器端游标。CursorLocation 属性的缺省值为adUseServer，使用服务器端游标的好处是，程序对数据库的修改可以立即反映到服务器，而且，其他用户对数据库的操作也可以马上反映出来，但使用服务器端游标带来了高网络流量，每一个数据访问都需要通过网络交换数据。

---- ADO 提供了客户端数据缓存处理，因此，在打开Recordset 对象前，可以设置CursorLocation 为adUseClient，指定使用客户端游标。通过客户端游标，ADO 利用本地数据缓存以降低网络流量，虽然在数据访问灵活性上有所损失，但却大大提高了通过网络访问数据库的性能。

---- (7) 长数据类型处理

---- 现在的应用越来越离不开数据库的长数据类型，长数据类型包括文本或二进制信息，可用于记录图像、声音及其他多媒体或非多媒体信息。有时候长数据并不很长，可以直接通过Field 对象的Value 属性进行读取或赋值；有时候长数据非常长，长到内存都难以容下，这时可以通过Field 对象的块操作进行访问。

---- 用Field 对象的GetChunk 方法可以读取部分或全部的数据，在内存使用有限制的情况下，就可以用GetChunk 读取部分数据，连续调用GetChunk 以读取所有的数据。对应地，我们可以连续调用Field 对象的AppendChunk 方法对当前记录的某个长数据类型域赋值。请注意，GetChunk 和AppendChunk 只对Attributes 属性为adFldLong 的Field 对象有效。

---- 有时候，在Command 对象的Parameters 集合的Parameter 对象中也需要使用长数据类型，所以GetChunk 和AppendChunk 方法对于Parameter 对象同样适用。

---- 下面给出一个使用GetChunk 和AppendChunk 的例子：

Dim Cn As New ADODB.Connection
Dim rsRead As New ADODB.Recordset
Dim rsWrite As New ADODB.Recordset
Dim strChunk As String
Dim Offset As Long
Dim Totalsize As Long
Dim ChunkSize As Long
Cn.Open "MySamples", "sa"
rsRead.CursorType = adOpenStatic
rsRead.Open "select My_LongData from MyTestTable", Cn
rsWrite.CursorType = adOpenKeyset
rsWrite.LockType = adLockBatchOptimistic
rsWrite.Open "select * from MyBLOB", Cn
ChunkSize = 1000
Totalsize = rsRead("My_LongData").ActualSize
Do while Offset < Totalsize
strChunk = rsRead("My_LongData").GetChunk(ChunkSize)
Offset = Offset + ChunkSize
rsWrite("Info").AppendChunk strChunk
Loop
rsWrite.UpdateBatch
rsWrite.Close
rsRead.Close

---- (8) Recordset 对象的永久存储机制

---- Recordset 对象的永久存储机制是ADO 2.0 版本新增的功能，我们可以把Recordset 对象保存到一个文件中，以后再从文件中打开Recordset 对象，并继续操作。当我们在使用客户端游标时，可以使用该功能，首先连接到数据源，并执行查询，然后调用Recordset 对象的Save 方法，把Recordset 对象保存到文件中。即使关闭了机器，当以后再打开机器时，执行Open("filename", , ,adCmdFile)，可以继续执行数据操作。

---- (9) 异步操作和事件响应机制

---- ADO 2.0 版本支持异步操作，当连接数据源或进行记录集访问时，我们可以选择异步方式。使用异步方式进行数据源连接时，调用Open 后，函数马上返回，在等待连接完成之前，我们可以继续执行其他的操作。当异步操作完成后，我们可以接到操作完成的通知。Recordset 对象在批量获取数据时也支持异步操作( 要求使用客户端游标)，它只返回查询结果的第一条记录，以后可以在后台继续获取后面的记录。

---- 与异步操作相对应的是事件机制，Connection 和Recordset 对象提供了很多通知事件，包括连接完成、命令将执行、事务处理各阶段、记录集在进行数据修改或其他一些操作等等，ADO 都提供了事件通知。通过事件控制函数，我们可以编写出更加规范的客户程序，提供更为灵活的前后台处理方式。（未完待续）

---- （作者地址：北京大学计算机科学技术研究所，100871，收稿日期：1999.02）

---- 责任编辑：许菊芳 xu_jufang@ccw.com.cn

posted on 2008-02-15 12:39 FreeBird 阅读(437) 评论(0) 收藏举报

刷新页面返回顶部

一 致 的 数 据 访 问 技 术 ADO/OLE DB ( 三)

潘 爱 民

四、ADO 高 级 特 性

一致的数据访问技术 ADO/OLE DB ( 三)

潘爱民

四、ADO 高级特性