ADO 光標基礎 (1)  

2019-11-18 22:13:58

字體：大中小

來源：轉載

供稿：網友

1. 什幺是光標？

光標，也有人稱為游標。概括的講，它是基于記錄的。

過去，關系型數據庫沒有象現在這樣被廣泛的應用。那時候，人們大多使用 dBase 這樣的小型數據庫軟件。這類數據庫確切的說應為數據文件管理軟件。他們是面向記錄的。

不過，這種方式也許更符合人們的習慣。比如，我們在電話本中查找號碼，在學生檔案中查找檔案，最終都要歸結于其中的一個號碼，一個檔案，那就是一條記錄?，F實生活中，我們在一張表格中尋找某一項時，可能會用手一條一條逐行的掃過，以幫助我們找到所需的那條記錄。對應于數據庫來說，這就是光標的模型。所以，你可以這樣想象：表格是數據庫中的表，而我們的手好比是光標。

所以，當你使用類似 .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
......

上一篇：ADO 光標基礎 (2)  

下一篇：用RecordSet實現分頁(by Daniel Adrian)