几种打开记录集方式的比较

新客网 XKER.COM 2005-10-17 来源： 收藏本文

几种打开记录集方式的比较

先定义conn.asp
<%
 dim objConn
 dim strConn
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & chr(34) & Server.MapPath("data.mdb") & chr(34)
 set objConn = server.createobject("adodb.connection")
 objConn.open strConn
%>

再来看一看几种不同打开记录集(recordset)的方式

方式1、
 dim sql
 dim objRs

 sql = "select * from table1"
 set objRs = objConn.execute( sql )

这种方式通过执行sql，返回后得到记录集，比较简单地得到经过筛选过的记录集，
但是通过这种方式得到的记录集，不能进行分页显示。

文件text1.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->

<%
 dim sql
 dim objRs
 
 sql = "select * from table1"
 set objRs = objConn.execute( sql )
 
 objRs.pagesize = 5
 objRs.absolutepage = 1
%>

请求该页面得到的结果是:

------------------------------------------------------------
错误类型：
ADODB.Recordset (0x800A0CB3)
当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。
/msg/test1.asp, 第 12 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

网页：
GET /msg/test1.asp

时间：
2005年9月21日, 19:58:01
------------------------------------------------------------

方式2、
 dim objRs
 set objRs = Server.CreateObject( "ADODB.Recordset" )
 objRs.open "table1" , objConn , 1 , 2

用这种方式打开的记录可以进行分页显示。

<%
 dim objRs
 
 set objRs = Server.CreateObject( "ADODB.Recordset" )
 objRs.open "table1" , objConn , 1 , 2
 
 objRs.pagesize = 5
 objRs.absolutepage = 1
%> 

用这个试试，哈哈，顺利运行。

但这种方式打开的记录集不能排序

文件test2.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
 dim objRs
 
 set objRs = Server.CreateObject( "ADODB.Recordset" )
 objRs.open "table1" , objConn , 1 , 2
  
 objRs.sort = "field1"
%>

请求该页面得到的结果是:

------------------------------------------------------------
错误类型：
ADODB.Recordset (0x800A0CB3)
当前提供程序不支持排序或过滤所必需的界面。
/msg/test2.asp, 第 17 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

网页：
GET /msg/test2.asp

时间：
2005年9月21日, 20:17:32
------------------------------------------------------------

怎办呢？

哈，这样就行啦。
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
 dim objRs

 set objRs = Server.CreateObject( "ADODB.Recordset" )
 objRs.CursorLocation = 3
 objRs.open "table1" , objConn , 1 , 2
 
 objRs.sort = "field1 desc"
%>

总结一下：
 1、方式1，可以通过sql语句，方便地筛选你想要的记录。
 2、方式2，功能比较强大，但比较复杂。
  这种方式还有更有用的用法。详见其它参考资料。
 

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件