| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2116 人关注过本帖
标题:[求助]菜鸟求教分页中出现问题“当前提供程序不支持从单一执行返回多个记录 ...
只看楼主 加入收藏
friedfox
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-12-21
收藏
 问题点数:0 回复次数:12 
[求助]菜鸟求教分页中出现问题“当前提供程序不支持从单一执行返回多个记录集。”问
ADODB.Recordset 错误 '800a0cb3'
当前提供程序不支持从单一执行返回多个记录集。

源码如下:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("szlyb.mdb")
exec="select * from guestbook order by ID DESC"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
PgSz=20
If RS.RecordCount=0 then
response.write "<P><center>对不起,数据库中没有相关信息!</center></P>"
else
RS.PageSize = Cint(PgSz)

Total=INT(RS.recordcount / PgSz * -1)*-1
PageNo=Request("pageno")

if PageNo="" Then
PageNo = 1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if

ScrollAction = Request("ScrollAction")

if ScrollAction = " 上一页 " Then
PageNo=PageNo-1
end if

if ScrollAction = " 下一页 " Then
PageNo=PageNo+1
end if

if PageNo <1 Then
PageNo = 1
end if

n=1
RS.AbsolutePage = PageNo
Response.Write "<CENTER>"
position=RS.PageSize*PageNo
pagebegin=position-RS.PageSize+1

if position <RS.RecordCount then
pagend=position
else
pagend= RS.RecordCount
end if

Response.Write "<P><font color='Navy'><B>数据库查询结果:</B>"
Response.Write "(共有"&RS.RecordCount&"条符合条件的信息,显示"&pagebegin&"-"&pagend&")</font></p>"
Response.Write "<TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF>"
Response.Write "<TR BGCOLOR=#5FB5E2><FONT SIZE=2><TD><B>主题</B></TD><TD><B>用户</B></TD><TD><B>Email</B></TD><TD><B>发布日期</B></TD></FONT><TR BGCOLOR=#FFFFFF>"

Do while not (RS is nothing)
RowCount = RS.PageSize
Do While Not RS.EOF and rowcount > 0
If n=1 then
Response.Write "<TR BGCOLOR=#FFFFFF>"
else
Response.Write "<TR BGCOLOR=#EEEEEE>"
end if
n=1-n
%>
<td><%=rs("user")%></td>
<td><%=rs("title")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr>
<%
RowCount = RowCount - 1
RS.MoveNext
Loop
set RS = RS.NextRecordSet
loop
Conn.Close
set rs = nothing
set Conn = nothing
%>

说到“set RS = RS.NextRecordSet ”就有上面的问题,小生初学,请高手详解阿,下辈子作牛做马报答。

[此贴子已经被作者于2005-12-27 18:27:56编辑过]

搜索更多相关主题的帖子: 记录 
2005-12-27 17:18
friedfox
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-12-21
收藏
得分:0 
救命啊~~~没人啊~~~5555下辈子作牛做马都没人搭理阿~~~什么世道阿~~~惨啊~~~不会的,会的不削回答的,只要看过请帮忙顶下阿~~在下拜过啦

[此贴子已经被作者于2005-12-27 17:25:51编辑过]



在一个太阳晒得屁股发烫的日子,总能有些感悟:今天的勤奋是为了明天的懒惰!!
2005-12-27 17:25
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

这次回复收回.

[此贴子已经被作者于2005-12-27 18:10:45编辑过]


天津网站建设 http://www./
2005-12-27 17:53
friedfox
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-12-21
收藏
得分:0 
总算还是版主仗义阿~~~我马上试去~~~有消息第一时间回复,版主,我下辈子跟定你啦

在一个太阳晒得屁股发烫的日子,总能有些感悟:今天的勤奋是为了明天的懒惰!!
2005-12-27 18:01
friedfox
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-12-21
收藏
得分:0 
失败
第一种方法:老样子
第二种方法:
出现
ADODB.Recordset 错误 '800a0cb3'

当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。

指向的是RS.AbsolutePage = PageNo
版主,你要负责到底阿,不然白枉我要下辈子跟你一辈子阿


在一个太阳晒得屁股发烫的日子,总能有些感悟:今天的勤奋是为了明天的懒惰!!
2005-12-27 18:06
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
set RS = RS.NextRecordSet
你这句话干什么?

你没有多个记录集吧

天津网站建设 http://www./
2005-12-27 18:11
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
你的代码实在是不想看,没有格式,没有缩进的。。。

天津网站建设 http://www./
2005-12-27 18:12
friedfox
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-12-21
收藏
得分:0 
5555我改了下,虽然也不是很漂亮,吃饭先

在一个太阳晒得屁股发烫的日子,总能有些感悟:今天的勤奋是为了明天的懒惰!!
2005-12-27 18:29
冰镇柠檬汁儿
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:北京
等 级:版主
威 望:120
帖 子:8078
专家分:6657
注 册:2005-11-7
收藏
得分:0 

能说说你代码哪行出错了吗?程序运行后没报出来吗?


本来无一物,何处惹尘埃
It is empty at all here, Why pm 2.5 is so TMD high!
2005-12-27 18:32
friedfox
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-12-21
收藏
得分:0 
回复:(friedfox)[求助]菜鸟求教分页中出现问题“当...
说到“set RS = RS.NextRecordSet ”就有上面的问题,小生初学,请高手详解阿,下辈子作牛做马报答。

就是到这里咯,上面写了的


在一个太阳晒得屁股发烫的日子,总能有些感悟:今天的勤奋是为了明天的懒惰!!
2005-12-27 18:43
快速回复:[求助]菜鸟求教分页中出现问题“当前提供程序不支持从单一执行返回多个 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017964 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved