实验Recordset.Movenext,Recordset.Previous,Recorset..

我在 实验 Recordset.Movenext,Recordset.PRevious,Recorset.......等 移动 记录 的时候遇到了困难. 我用access做后台数据库,通过一个查询条件查询得一个 记录 集,我想用一个表格实现 记录 的逐条浏览(不是一组 记录 分页浏览). 即共查到**条 记录 ,现在是第

我在 实验 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 程序代码:

现在您可以编辑以下 记录

'创建并打开 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") 　　　　 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 　　　　 Rst.MoveLast 　　　　 Response.Write "This is the Last Record" 　　　　 End If　 　　　　 If Rst.BOF Then 　　　　 Session("Moves") = 1 　　　　 Rst.MoveFirst 　　　　 Response.Write "This is the First Record" 　　　End If 　 %> 记录 数目和 记录 集大小-->

共查到 条 记录 ，当前为第 If IsEmpty(Session("Moves"))　Then 　　　　　 Session("Moves") =1 End If %> 条 记录

　 > Type="button" Name="cmdUp" Value="下一条"> Value="末一条">

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

查询结果：

　　　　　　　　　　　　　　　　　　　　 　　　　　　　　　　　　　　　　　　　　 (用于逐条显示 记录 的表格)　　　　　　　　　　　　　　　　　　　 　 　　　　　　　　　　　　　　　　　　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　　　　　　　　　　　　　　　　　　 　　　　　　　　　　　　　　　　　　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Sub cmdDown_OnClick　　　　　　　　　　　　　　　　　　 '在 Input Boxes 窗体和 Submit 窗体中设置值。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 Document.Form.MoveAmount.Value = -1　　　　　　　　　　　　　　　　　　 　 Document.Form.Submit　　　　　　　　　　　　　　　　　　 End Sub　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Sub cmdUp_OnClick　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 Document.Form.MoveAmount.Value = 1　　　　　　　　　　　　　　　　　　 　 Document.Form.Submit　　　　　　　　　　　　　　　　　　 End Sub　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Sub cmdFirst_OnClick　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 Document.Form.MoveFirst.Value = 2　 Document.Form.Submit　　　　　　　　　　　　　　　　　　　 End Sub　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 Sub cmdLast_OnClick　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 Document.Form.MoveLast.Value =3　　　　　　　　　　　　　　　　　　 　 Document.Form.Submit　　　　　　　　　　　　　　　　　　 End Sub

查看更多关于实验Recordset.Movenext,Recordset.Previous,Recorset..的详细内容...