ADO 光 标 基 础 (1)  

10/17/2000来源:ASP教程人气:19779

1. 什幺是光标?

光标,也有人称为游标。概括的讲,它是基于记录的。

过去,关系型数据库没有象现在这样被广泛的应用。那时候,人们大多使用 dBase 这样的小型数据库软件。这类数据库确切的说应为数据文件管理软件。他们是面向记录的。

不过,这种方式也许更符合人们的习惯。比如,我们在电话本中查找号码,在学生档案中查找档案,最终都要归结于其中的一个号码,一个档案,那就是一条记录。现实生活中,我们在一张表格中寻找某一项时,可能会用手一条一条逐行的扫过,以帮助我们找到所需的那条记录。对应于数据库来说,这就是光标的模型。所以,你可以这样想象:表格是数据库中的表,而我们的手好比是光标。

所以,当你使用类似 .MoveNext,.MoveLast 这样的语句时,觉得再自然不过了。

现在,你明白什幺是光标了吧。光标就是数据的 ' 定位系统 ' 。

这个 ' 定位系统 ' 粗分有两种:服务器光标和客户光标。对应于 ADO 中的 CursorLocation 。举例来说:

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation = adUseServer      '缺省,使用服务器光标
.....
rs.CursorLocation = adUseClient      '使用客户光标

2. 什幺是服务器光标?

或者称为 API 服务器光标。

假设你要查询有关编程语言的书,写成 SQL 语句就是:SELECT book_id,book_title FROM books WHERE book_catalog = '编程' ORDER BY book_title,同时你指定使用服务器光标。

这条语句发送到服务器,服务器对数据进行检索,将符合查询条件的记录集合放入临时表(对某些光标类型是这样)中。每当你进行 .MoveNext 操作,服务器就会发送一条记录到客户端的缓冲区,然后你才可以使用它。

3. 什幺是 CacheSize ?

继续上面的例子,假设符合查询条件的记录有100个,也就是说,用 .MoveNext 这种方法遍历该结果集需要同服务器交互100次。我们可以通过设置 CacheSize 使客户与服务器的通信变少。上面的例子其实就是 CacheSize=1 的情况,这是缺省值。

假设 CacheSize=4,当 RecordSet 对象打开时,服务器发送4条记录到客户端。前4次的 .MoveNext 操作实际上是在客户缓冲区中得到数据,当第5次 .Movenext 时,服务器才发送下一个4条记录。由此,减少了客户与服务器间的网络通信。

那幺是不是说 CacheSize 越大越好呢?千万不要想当然。万事都有两面性,CacheSize 也一样。客户端请求数据,服务器发送数据,这个过程有点象交通管理。CacheSize 过高,会阻塞交通,甚至引起数据丢失(比如当 Cachesize 大于客户端缓冲区时)。对于不同的应用,所取的值也不同。

另外要指出的是,使用任何形式的光标都不是最有效的访问数据的方法,Cachesize 有的时候并不是瓶颈,尽量将使用光标的程序转换为面向结果集的程序,性能会提高很多。

3. 什幺是客户光标?

既然光标是数据的 ' 定位系统 ',那幺在客户端也可以完成。

客户光标的产生由来已久,当初是为了弥补服务器的不足(有些数据库引擎就不支持光标)。随着服务器光标的出现,客户光标似乎已经过时了,不过还是那句话:万事都有两面性,在 internet 上,与数据库的连接并不是永久的,使用客户光标能使我们获得同使用服务器光标一样的功能。

当 CursorLoction 属性设成 adUseClient 时,微软的光标服务( Cursor Service )创建 RecordSet 对象,用前向 / 只读的光标方式从服务器将所有查询结果检索出来,并且存储在客户缓冲区中。当应用程序通过 ADO 请求数据时,光标服务就从客户缓冲区中检取数据。这种方式在连接远程服务器时非常有用,它会提高应用程序的性能。如果你访问的数据库是 Jet 数据库( access ),而且在本地,那么用客户光标非但不提高性能,还会使性能下降。这时候,数据将被缓存两次,数据库一次,光标服务一次。

如果考虑应用的功能,客户光标功能是很完善的,它能支持某些数据库不能完成的操作( 视数据库的情况而定 )。

4. 什幺是 DisConnected RecordSet ?

我们使用了客户光标,就可以断开与数据库的连接,释放 Connection 对象。这样的结果集就是 DisConnected RecordSet。举例说明:

Dim c As New ADODB.Connection
Dim r As New ADODB.Recordset
On Error GoTo handler
   
c.ConnectionString = connectStr
c.CursorLocation = adUseClient
c.Open
Set r.ActiveConnection = c
r.Open SqlText, , adOpenKeyset, adLockBatchOptimistic, -1
Set r.ActiveConnection = Nothing   ' This disconnects the recordset.
c.Close
Set c = Nothing
......
......   
' Recordset is now in disconnected state; do something with it.
r.Close
Set r = Nothing
......