Posted on 2006-02-22 10:25
天空蒼茫 閱讀(236)
評(píng)論(0) 編輯 收藏
大家應(yīng)該都知道 Recordset 有個(gè) GetRows 屬性，但是真正使用的不多，我也是最近才用的！汗……
其實(shí)這個(gè)屬性很簡(jiǎn)單，就是把數(shù)據(jù)集輸出到一個(gè)數(shù)組中。但是實(shí)用性可不小，在這里我舉一個(gè)例子說(shuō)明一下GetRows的使用方法，大家舉一反三能想到更多的用法！
比如一個(gè)分類的表 T_Cate，結(jié)構(gòu)和數(shù)據(jù)如下：
ID | Title | Intro
-----------------------------------------
1 | 新聞 | 這里是新聞
2 | 教程 | 這里是教程
3 | 下載 | 這里是下載
好了，表建立好了，數(shù)據(jù)也有了，下面我們就要用到GetRows咯！
Dim Rs_Cate
Dim Arr_Cate
Set Rs_Cate=Conn.ExeCute("SELECT ID,Title,Intro FROM T_Cate ORDER BY ID ASC")
Arr_Cate=Rs_Cate.GetRows
Set Rs_Cate=Nothing
好了表數(shù)據(jù)已經(jīng)導(dǎo)出到數(shù)組了！下面我們將遍歷這個(gè)數(shù)組
Dim Arr_CateNumS,Arr_CateNumI
Arr_CateNumS=Ubound(Arr_Cate,2) '得到數(shù)組中數(shù)據(jù)的下標(biāo)
For Arr_CateNumI=0 To Arr_CateNumS
Response.Write("ID："&Arr_Cate(0,Arr_CateNumI)&" | 標(biāo)題："&Arr_Cate(1,Arr_CateNumI)&" | 介紹："&Arr_Cate(2,Arr_CateNumI)&"<br>")
Next
呵呵，好了，輸出的數(shù)據(jù)為：
ID：1 | 標(biāo)題：新聞 | 介紹：這里是新聞
ID：2 | 標(biāo)題：教程 | 介紹：這里是教程
ID：3 | 標(biāo)題：下載 | 介紹：這里是下載
好了，具體就寫這么多吧！文采不行，如果大家有什么不明白的，多用用就可以了，呵呵