实验Recordset.Movenext,Recordset.Previous,Recorset...等移动记录

2016-01-29 17:54 42 1 收藏

实验Recordset.Movenext,Recordset.Previous,Recorset...等移动记录,实验Recordset.Movenext,Recordset.Previous,Recorset...等移动记录

【 tulaoshi.com - ASP 】

  我在实验Recordset.Movenext,Recordset.Previous,Recorset.......等移动记录的时候遇到了困难.
我用Access做后台数据库,通过一个查询条件查询得一个记录集,我想用一个表格实现记录的逐条浏览(不是一组记录分页浏览). 即"共查到**条记录,现在是第*条",单击"Next"按钮后下一条记录的内容显示在表格中.....

我用如下代码实现(见最后)

发现若将Rst.Open "select * from 某表 where 从某个Form获取的查询条件"
改成  Rst.Open "select * from 某表"(相当于不做查询动作)后, 记录的浏览功能才得以实现.
否则总是出现" EOF或BOF为真 "的错误提示.可我明明可以从"某表"中 "select... where..."到好几个记录的!

总之如何将"记录的逐条浏览"和"select * from 某表 where 从某个Form获取的查询条件" 结合起来?

望予以指点为感!

杨利
2000/4/13

程序代码:

<%@ LANGUAGE=VBScript %
<!-- #Include file="ADOVBS.INC" --
<html
<head
<title</title
</head
<body BGCOLOR="#FFFFF0"
<h3 align="center"<font face="隶书" color="#004080"<big现在您可以编辑以下记录</big</font</h3
<!-- 在服务器上创建 Connection 和 Recordset 对象 --
<%
'创建并打开 Connection 对象。
Set cn=Server.CreateObject("ADODB.Connection")
    cn.Open "DSN=数据库名"
'创建并打开 Recordset 对象。
Set Rst = Server.CreateObject("ADODB.Recordset")
    Rst.ActiveConnection = cn
    Rst.CursorType = adOpenKeyset
    Rst.LockType = adLockOptimistic   
Rst.Open "select * from 某表 where 性别='"&request.form("t1")&"'"(执行这句大有问题)
Rst.Open "select * from 某表 where 性别='男'"(执行这句有点问题)
Rst.Open "select * from hr_base"(执行这句没有问题)
' 检查 Request.Form 集合以查看所记录的任何移动。
If Not IsEmpty(Request.Form("MoveAmount")) Then
' 跟踪该会话的移动数目和方向。
   Session("Moves") = Session("Moves") + Request.Form("MoveAmount")
   Clicks = Session("Moves")
'移动到上一个已知位置。
   Rst.Move CInt(Clicks)
'检查移动为 + 还是 - 并进行错误检查。
      If CInt(Request.Form("MoveAmount")) = 1 Then
         If Rst.EOF Then
            Session("Moves") = Rst.RecordCount
            Rst.MoveLast
         End If   
         Rst.MoveNext
      End If
      If Request.Form("MoveAmount") < 1 Then
         Rst.MovePrevious
      End If
'检查有无单击 First Record 或 Last Record 命令按钮。
      If Request.Form("MoveLast") = 3 Then
         Rst.MoveLast
         Session("Moves") = Rst.RecordCount
      End If
      If Request.Form("MoveFirst") = 2 Then
         Rst.MoveFirst
         Session("Moves") = 1
      End If
End If
' 对 Move Button 单击组合进行错误检查。
      If Rst.EOF Then
         Session("Moves") = Rst.RecordCount
&nbs

来源:http://www.tulaoshi.com/n/20160129/1503494.html

延伸阅读
标签: Web开发
用Command对象和RecordSet对象向数据库增加记录哪一个更好? 请问应该选择哪一个? Command是用来做参数传递的,尤其是批量参数传递。Command对象主要是向SQL语句、StoredProcude传递参数, 依靠SQL的强大功能来完成数据库的操作;而RecordSet对象,我们可以看作是封装了数据对象,并提供了一系列 的方法和属性来简化数据库的编程。 我们通过...
将集合中的当前项移动到下一项。 enumObj . moveNext( ) 必选项 myEnum 参数是任意 Enumerator 对象。 说明 假如枚举算子位于集合的最后,或者集合为空,那么当前项将被设置为 undefined 。 在下面的例子中,使用了 moveNext 方法在 Drives 集合中向下一个驱动器移动: function ShowDriveList(){ &...
本课主题: 实验二 循环链表实验 教学目的: 把握单向链表的实现方法 教学重点: 单向链表的存储表示及操作 教学难点: 单向链表的操作实现 授课内容: 一、单向链表的存储表示 C源程序 二、单向链表的基本操作 C源程序
移动手机营业厅充值记录在哪看   1)下载并打开你的移动手机营业厅手机APP,登陆你的手机号码;     2)然后点击交费历史,进入后就可以看到近5个月的话费充值具体时间和充值金额;     
梅毒抗体阳性 梅毒抗体的实验分类 什么是梅毒抗体阳性呢,在我们生活中,想必大家对于梅毒抗体阳性还是有所了解的吧,那么大家知道梅毒抗体阳性会传染吗,梅毒抗体阳性抗原阴性怎么回事呢,下面就让我们一起来了解一下吧。 实验分类 梅毒抗体试验将梅毒病原菌和细菌成分作为抗原实验方法,特别是梅毒螺旋体抗...

经验教程

417

收藏

63
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部