把RS.GetRows看得更清楚

2024-05-04 10:58:03

字體：大中小

供稿：網(wǎng)友

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

但是Rs.GetRow返回的是一個(gè)二維數(shù)組，我們經(jīng)常不知道哪段對哪段。這個(gè)很麻煩，于是編了一小段程序方便調(diào)試用：

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

' 建立一個(gè)表格
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

--------------------------------------------------------------------------------

獻(xiàn)給菜鳥們：
關(guān)于GetRows的小資料：

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

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

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

上一篇：ASP中實(shí)現(xiàn)限制IP的函數(shù)詳解

下一篇：刪除A表中在B表中不存在的數(shù)據(jù)