实验Recordset.Movenext,Recordset.Previous,Recorset...等移动记录_第1页
实验Recordset.Movenext,Recordset.Previous,Recorset...等移动记录_第2页
实验Recordset.Movenext,Recordset.Previous,Recorset...等移动记录_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、    我在实验Recordset.Movenext,Recordset.Previous,Recorset.等移动记录的时候遇到了困难.我用Access做后台数据库,通过一个查询条件查询得一个记录集,我想用一个表格实现记录的逐条浏览(不是一组记录分页浏览). 即"共查到*条记录,现在是第*条",单击"Next"按钮后下一条记录的内容显示在表格中.我用如下代码实现(见最后)发现若将Rst.Open "select * from 某表 where 从某个Form获取的查询条件" 改成 &

2、#160;Rst.Open "select * from 某表"(相当于不做查询动作)后, 记录的浏览功能才得以实现.否则总是出现" EOF或BOF为真 "的错误提示.可我明明可以从"某表"中 "select. where."到好几个记录的!总之如何将"记录的逐条浏览"和"select * from 某表 where 从某个Form获取的查询条件" 结合起来?望予以指点为感!杨利2000/4/13程序代码:<% LANGUAGE=VBScript %><!-

3、 #Include file="ADOVBS.INC" -><html><head><title></title></head><body BGCOLOR="#FFFFF0"><h3 align="center"><font face="隶书" color="#004080"><big>现在您可以编辑以下记录</big></font></h3>&l

4、t;!- 在服务器上创建 Connection 和 Recordset 对象 -><%'创建并打开 Connection 对象。Set cn=Server.CreateObject("ADODB.Connection")     cn.Open "DSN=数据库名" '创建并打开 Recordset 对象。Set Rst = Server.CreateObject("ADODB.Recordset")    Rst.Active

5、Connection = cn    Rst.CursorType = adOpenKeyset    Rst.LockType = adLockOptimistic   Rst.Open "select * from 某表 where 性别='"&request.form("t1")&"'"(执行这句大有问题)Rst.Open "select * from 某表 where 性别=&

6、#39;男'"(执行这句有点问题)Rst.Open "select * from hr_base"(执行这句没有问题)' 检查 Request.Form 集合以查看所记录的任何移动。If Not IsEmpty(Request.Form("MoveAmount") Then' 跟踪该会话的移动数目和方向。    Session("Moves") = Session("Moves") + Request.Form("MoveAmount&quo

7、t;)   Clicks = Session("Moves")'移动到上一个已知位置。   Rst.Move CInt(Clicks)'检查移动为 + 还是 - 并进行错误检查。      If CInt(Request.Form("MoveAmount") = 1 Then         If Rst.EOF Then 

8、;           Session("Moves") = Rst.RecordCount            Rst.MoveLast         End If       

9、60;    Rst.MoveNext      End If      If Request.Form("MoveAmount") < 1 Then         Rst.MovePrevious      End If'检查有无单击 First Re

10、cord 或 Last Record 命令按钮。      If Request.Form("MoveLast") = 3 Then         Rst.MoveLast         Session("Moves") = Rst.RecordCount     

11、 End If      If Request.Form("MoveFirst") = 2 Then         Rst.MoveFirst         Session("Moves") = 1      End IfEnd If'

12、对 Move Button 单击组合进行错误检查。      If Rst.EOF Then         Session("Moves") = Rst.RecordCount         Rst.MoveLast         Respon

13、se.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   %><!- 显示当前记录数目和记录集大小-><h3 align="center"><font f

人人文库> 全部分类> 教育资料 > 辅导培训

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论