細看RS.GetRows

2011/6/23 11:23:57  出處：本站   人氣：14次    字號：小  中  大

這篇文章提供的大家一起學習，讓我們把RS.GetRows看得更清楚，希望對大家有用。

用過Rs.GetRow的兄弟都知道Rs.GetRow可以更有效率地獲取小容量數據（不適合大容量數據，尤其涉及大對象的時候，容易暴掉，我就爆過一次），PuterJam應用得不錯的說。

但是Rs.GetRow返回的是一個二維數組，我們經常不知道哪段對哪段。這個很麻煩，于是編了一小段程序方便調試用：

    Dim ds
    Set objRS=objConn.Execute("SELECT * FROM [blog_Upload] WHERE ([ul_Quote] LIKE '%" & CStr(ID) & "%') ")
        ds=objRS.GetRows
    objRS.Close()
    Set objRS=Nothing

' 建立一個表格
Response.Write "Written By Sipo(www.dc9.cn)<table align=""center"" border=""1"">"
Response.Write vbcrlf
Response.Write "<tr><td></td>"
For j = 0 To UBound(ds, 1)
Response.Write "<td>ds("&j&",X)</td>"
Next
Response.Write "</tr>"
' 每一行
  For i = 0 To UBound(ds, 2)
    Response.Write "<tr><td>ds(X,"&i&")</td>"& vbcrlf
    ' 每一列
    For j = 0 To UBound(ds, 1)
      Response.Write "<td>"
      If IsNull(ds(j, i)) Then 
      Response.Write "Null"
      Else
      Response.Write ds(j, i)
      End If
      Response.Write "<br>"
      Response.Write "<b>ds("&j&","&i&")</b>"
      Response.Write "</td>"
    Next

    Response.Write "</tr>" & vbcrlf
  Next

  Response.end

ADO也提供更有效率方法來取得數據。GetRows 方法傳回一個二維的數組變量，每一行對應Recordset中的一筆記錄，且每一列對應到記錄中的字段。此方法的語法如下： 

varArray = rs.GetRows([Rows], [Start], [Fields]) 

Rows 是要讀取記錄的數量；如果想要取得Recordset所有記錄，可用-1或省略此參數。Start 是指出第一個被讀取記錄的書簽；也可以是下列列舉常數中的一個：0-adBookmarkCurrent（目前記錄）、1-adBookmarkFirst（第一筆記錄）、或2-adBookmarkLast（最后記錄）。 

Fields 是可選擇的字段名稱數組，其用來限制要讀取的數據量。（也可指定單一字段名稱、單一字段索引、或者一個字段索引數組）。當設定 Rows 為少于Recordset記錄筆數時，第一筆未讀取的記錄變成現行記錄。若省略 Rows 參數或設定為-1-adGetRowsRest或大于未讀取的筆數時，GetRows 方法會讀取所有記錄并讓Recordset在EOF狀態，而不會產生任何錯誤。 

當處理目的變量數組的數據時，應該記得數據儲存方式是有點相反的感覺：數組中第一維定義Recordset的字段（數據行），第二維定義Recordset的數據列。

GetRows 方法通常比一次讀一筆記錄的循環要來得快些，但使用這方法時，必須確定Recordset未包含太多記錄；否則，會很容易以一個非常大的變量數組來填滿所有內存。基于相同的原因，得小心不要包括任何BLOB（Binary Large Object）或CLOB（Character Large Object）字段；若如此做的化，應用程序一定會爆掉，特別是對于較大的Recordset而言。最后，記住此方法傳回的變量數組是以0為基底的；傳回記錄的筆數是UBound(values,2)+1，傳回字段數是UBound(value, 1)+1。