当前位置:首页 » 网站技术 » ASP

ASP中GetRows的用法详解

...

NextRecordset 和 GetRows 大家可能用的很少!
最近使用使用,不错的好东东!
对提高批量查询,查询纪录集不是巨海量的情况很有效果
NextRecordset 和 GetRows 是Recordset的两个属性(属性还是方法我是常溷淆是非#$#$,弄不清四下五除一)

GetRows ---> 将recordset记录集提取到一个二维数组中,我们对recordset数据的行为就转移到该数组,可以早早的断开纪录集,不用再使用元数据操作,rs.movnext, while not rs.eof等可以省掉

NextRecordset ----> 就是在一次提交多个查询,形成多个reordset结果集的情况下,提供一个离开当前工作的recordset,转移到第二个recordset的方法!

主要是用在多个SELECT形成的结果集的情况

示例如下:

dim SQL,Rs,arrA,arrB,rowsA,rowsB

'======提取数据库库记录====

(adodb.connection 的连接部分省略,假定CONN.open CONNstr)
SQL=" select Ca1,Ca2,Ca3,Ca4 from TableA " '---------------SELECTa
SQL=SQL&" select Cb1,Cb2,Cb3,Cb4,Cb5 from TableB " '-------------SELECTb 

Set Rs=conn.execute(SQL)
'执行结果将有两个select 的结果集,当前第一个select的recordset处于激活状态 

arrA=rs.GetRows '----------取得SElECTa Recordset的二维数组 

set rs=rs.NextRecordset
'------------最关键的一步,使用Nextrecordset激活下一个recordset

arrB=rs.GetRows '----------再次取得第二个SElECTb Recordset的二维数组

Rs.close
set rs=nothing '---------尽早释放数据库对象,关闭记录集
CONN.close
set CONN=Nothing
这样,我们所有关于数据库的数据干干净净的提取完成,用最早的时间释放数据库资源
'-----------//

'========用取得的arrA arrB进行页面处理,显示数据结果======
'注意,arrA=GetRows 后得到的数组,第一维是代表列,第二维代表行

rowsA=ubound(arrA,2) '----提取arrA的第二维下标,相当于取得recordset 的记录行数
rowsB=ubound(arrB,2) '-----同上,提取arrB的第二维下标 

'做数据循环:

'第一个select表的循环

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的资料列。以下有个载入Recordset内所有记录某三个栏位的范例:

Dim values As Variant, fldIndex As Integer, recIndex As Integer
values = rs.GetRows(, , Array("LastName", "FirstName", "BirthDate"))
For recIndex = 0 To UBound(values, 2)
    For fldIndex = 0 To UBound(values)
        Print values(fldIndex, recIndex),
    Next
    Print
Next

GetRows 方法通常比一次读一笔记录的迴圈要来得快些,但使用这方法时,必须确定Recordset未包含太多记录;否则,会很容易以一个非常大的变数阵列来填满所有记忆体。基于相同的原因,得小心不要包括任何BLOB(Binary Large Object)或CLOB(Character Large Object)栏位;若如此做的化,应用程式一定会爆掉,特别是对于较大的Recordset而言。最后,记住此方法传回的变数阵列是以0为基底的;传回记录的笔数是UBound(values,2)+1,传回栏位数是UBound(value, 1)+1。

GetString 方法跟 GetRows 是类似的,不过其传回以单一字串形式存在的多重记录。GetString 语法如下:

GetString([Format], [NumRows], [ColDelimiter], [RowDelimiter], [NullExpr])

Format 是结果的格式。GetString 还可能支援更多格式,但是目前唯一支援的格式是2- adClipString,所以实际上没有任何选择。NumRows 是要取得的列数。(使用-1或省略此参数来读取所有剩下的记录。)ColDelimiter 是行的分隔字元(预设为Tab字元)。RowDelimiter 为记录的分隔字元(预设为换行字元)。NullExpr 是用来表示Null栏位的字串(预设为空字串)。文件中说明只有当Format= adClipString时,最后三个参数才可使用,但是这警告没有多大意义,因为(如之前所提)此格式是目前唯一支援的。以下有个例子,其透过 GetString 方法来将资料汇出成以分号分隔的文字档: 

Dim i As Long
Open "datafile.txt" For Output As #1
For i = 0 To rs.Fields.Count _ 1          ' Export field names.
    If i > 0 Then Print #1, ";";
    Print #1, rs.Fields(i).Name;
Next
Print #1, ""
rs.MoveFirst                              ' Export data.
Print #1, rs.GetString(, , ";", VBCrLf);  ' Don't add an extra CR-LF here.
Close #1

GetString 方法不允许只汇出栏位的子集合,也不允许修改汇出栏位的顺序。如果需要这些额外的功能,应该使用 GetRows 方法且自行建立结果字串。

 大家应该都知道 Recordset 有个 GetRows 属性,但是真正使用的不多,我也是最近才用的!汗……

其实这个属性很简单,就是把数据集输出到一个数组中。但是实用性可不小,在这里我举一个例子说明一下GetRows的使用方法,大家举一反三能想到更多的用法!

比如一个分类的表 T_Cate,结构和数据如下:

ID   |   Title   |  Intro
-----------------------------------------
1    |   新闻   |  这里是新闻
2    |   教程   |  这里是教程
3    |   下载   |  这里是下载

好了,表建立好了,数据也有了,下面我们就要用到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

好了表数据已经导出到数组了!下面我们将遍历这个数组 

程序代码: 

Dim Arr_CateNumS,Arr_CateNumI
Arr_CateNumS=Ubound(Arr_Cate,2)  '得到数组中数据的下标
For Arr_CateNumI=0 To Arr_CateNumS
    Response.Write("ID:"&Arr_Cate(0,Arr_CateNumI)&" | 标题:"&Arr_Cate(1,Arr_CateNumI)&" | 介绍:"&Arr_Cate(2,Arr_CateNumI)&"<br>")
Next

呵呵,好了,输出的数据为:
ID:1 | 标题:新闻 | 介绍:这里是新闻
ID:2 | 标题:教程 | 介绍:这里是教程
ID:3 | 标题:下载 | 介绍:这里是下载

好了,具体就写这么多吧!文采不行,如果大家有什么不明白的,多用用就可以了,呵呵

继续阅读
ASP.NET操作XML基类代码
ASP.NET生成静态网页代码
ASP.NET2.0中CSS失效解决方案
ASP.NET2.0隐藏GridView列的问题
ASP.NET2.0中使用存储过程
ASP.NET2.0 Windows身份验证
ASP.NET2.0操作数据库方法
ASP.NET2.0中客户端脚本使用
ASP.NET中前台javascript与后台代码调用
发表评论

昵称:
最新评论
暂时没有评论!