do while not rs.eof

最新推荐文章于 2019-06-17 16:29:00 发布
最新推荐文章于 2019-06-17 16:29:00 发布
阅读量1.5k 收藏 3
点赞数
文章标签： 数据库 asp
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/anbs01/article/details/4801304
版权

do while not rs.eof 这是ASP中用来读取数据集的时候经常用到的代码，它是用来循环读取数据集rs里面的内容用的，数据集在数据库中都是一行一行的存在的，而它一般都是从上往下读的，这样的话用rs.eof来判断是否读到了数据集的尾部，如果到达了就停止循环，如果没有到达和继续循环。类似的还有rs.bof这是用来判读是否到达第一个数据行，而且在使用中用rs.bof and rs.eof来判读数据是否为空.

 

这个是只要记录不为空就继续进行循环，要注意的是，循环体内要有

rs.movenext

loop

使记录集往下移，否则就要死循环了。

anbs01
关注
  • 0
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
FLASH考试系统
01-15
应用ASP开发的一个简单学校考试系统 <% IF Request.QueryString("delid")"" Then %> Dim MyVar MyVar=MsgBox("确定要清空该考生考试资料吗？",4) if MyVar=vbYes then alert "考生可以重新参加考试了！" end if <% response.Write "window.open('admin_main.asp?delid=&temp="&now()&"&page="&request.QueryString("page")&"','mainFrame')" End IF %> 无标题文档 <% set rs=server.createobject("adodb.recordset") sql = "SELECT * from kazl order by ksid asc" rs.open sql,conn,1,1 rs.pagesize=15 if len(request.QueryString("page"))=0 or cint(request.QueryString("page"))rs.pagecount then ipage=rs.pagecount else ipage=request.QueryString("page") end if rs.absolutepage=ipage %> 班级 学号 姓名 登录地址 分数 操作    <a onClick="window.open('admin_ksmain.asp?ksid=', '_blank','fullscreen=yes,scrollbars=auto,menu=0,toolbar=0,location=0,status=0')" >       <a href="?page=&delid=" class="p12" >重考    <a onClick="window.open('admin_hefen.asp?ksid=', '_blank','height=300,width=600,top=0,left=0,scrollbars=auto,menu=0,toolbar=0,location=0,status=0')" class="p12" >合分 第一页  <a href=?page=>上一页  <a href=?page=>下一页  <a href=?page=>最后一页
ASP实现ActiveRecord数据查询更新 v1.0
04-24
ASP实现ActiveRecord数据查询更新 引言： 用过 PHP框架 ThinkPHP 或 CI框架的 同学，都知道 这些框架自带的数据查询 Active Record 用于查询数据 和 更新数据 想到方便， 不单它们，很多PHP框架都支持 Active Record，省去了写过多繁琐的原生态SQL查询语句，项目维护更加方便。现在我们也用在 Asp 代码上进行模拟. 已经成功的应用于 “基于AspBox框架的AppCore” 的应用上。 应用核心代码是从AppCore里进行分离。 ================================================================= 【一】： 查询数据 a. 获取结果： 查看输出SQL语句： Dao.getSQL() 用法 别名 Dao.lastSQL() e.g. Response.Write Dao.T("media").Top(10).lastSQL Dao.Query() 用法 dim rs dim tb_prefix : tb_prefix = Dao.tbPrefix '数据表前缀 Set rs = Dao.Query("select top 10 id,name from @media").Result() 等同于： Set rs = Dao.Query("select top 10 id,name from "& tb_prefix &"media").Result() Dao.List() 用法 dim list list = dao.t("media").select("id, name").top(10).List() 注：list '返回一个二维数组 dim i, id, name For i = 0 To Ubound(list,2) id = list(0, i) name = list(1, i) Response.Write id & " : " & name & "" Next Dao.Result() 用法 别名 Dao.GetRs() 或 Dao.Fetch() dim Rs Set Rs = Dao.T("media").select("id, name").top(10).Result() ab.trace Rs Do While not Rs.eof Response.Write Rs("id") & " : " & Rs("name") & "" Rs.MoveNext Loop Dao.Row(n) 用法 (n表示取得第n+1行数据) Dao.Row(0) 表示取第一行数据 dim Rs Set Rs = Dao.Query("select top 10 id,name from @media").Row(4) '获取第5行数据 If Not Rs.Eof Then Response.Write Rs("id") & " : " & Rs("name") End Ifb. 查询条件： Dao.T() 用法 和 Dao.From() 用法 等同 Dao.Select() 用法 和 Dao.Field() 用法 等同 Dao.Where() 用法 与 Dao.Find() 用法： 注： Where用法 和 Find用法 基本差不多，都是条件筛选数据。 Find用法 更灵活， 可以用 Dao.Find("1,3,5") 来查询 自动编号(id) 为 1, 3, 5的数据 Dao.Find("1,3,5") 又可以用以下写法： Dao.Find( Array(1,3,5) ) Dao.Find( "id in (1,3,5)" ) Dao.Where( "id in (1,3,5)" ) Dao.Where( "id=1 or id=3 or id=5" )Dao.Limit() 用法： 模拟 mysql的 limit(offset,rows) 用法 用法： limit(0,0) 取全部数据（第1条(0+1=1)数据开始到结束的数据） limit(0,1) 取从（第1条(0+1=1)数据开始的1条数据，即：第1~1条）（共1条） limit(3,0) 取从（第4条(3+1=4)数据开始到结束的数据，即：第4~最后一条） limit(2,5) 表示 第3条(2+1=3)数据开始的5条数据，即：第3~第7条）（共5条） limit(1,2) 表示 第2条(1+1=2)数据开始的2条数据，即：第2~第3条）（共2条） limit(4,6) 可以这么算：表示 第4+1=5条 到 第4+6=10条）（
三种方法ASP读取大量数据的速度比较
lxy_abcde1190的专栏
04-18 2927
现有10W条数据，Access数据库保存　　通过正常提取: 代码：
dotnet -recordset
lemonyue的专栏
12-11 759
Recordset记录集对象常用属性见表6-20。 表6-20 Recordset记录集对象常用属性见表 属性说明Source指示记录集对象中数据的来源（命令对象名或SQL语句或表名）ActiveConnection连接对象名或包含数据库的连接信息的字符串CursorType记录集中的指针类型，可选，见表6-16L
ASP中如何退出FOR循环或DO　WHILE…
php菜鸟技术天地
06-02 4474
1、退出for循环：exit for 　例：        for i=1 to 10            if rs.eof or rs.bof then                 exit for           end if       next 2、退出do while循环： exit do 　例： 　　do while not rs.eof or rs.bof        
初学ASP时遇到的一些问题
Celestial Being
09-24 1165
1、从数据库中取出字符串显示出来，使用server.htmlencode(str)将串中的双引号等正常显示。 2、将字符串存和数据库中，应使用trim()去掉首尾空格，再使用replace(str, " ' ", " ' ' ")将一个双引号以两   个双引号代替，注解：括号内（操作串，两个双引号中间一个单引号，两个双引号中间两个单引号） 3、Asp数据库操作调试方法，可以先将原
asp的分页制作的代码
05-19
模块化分页 1.查询语句块 <% 取得当前文件名 temp = Split(request.ServerVariables("URL"), "/") fy = temp(UBound(temp)) set rs=server.createobject("adodb.recordset") if not isempty(request("page")) then　 pagecount=cint(request("page"))　 else　 pagecount=1　 end if sql="select　查询语句" rs.open sql,conn,1,1 rs.pagesize=10　分页记录数 if pagecount>rs.pagecount or pagecount<=0 then　　　　　　　 pagecount=1　　　　　　　 end if　　　　　　 if rs.eof and rs.bof then%> <div align="center" class="001"><br> 对不起，没有符合搜索条件的记录！<br> </div> 2.显示记录块 <% else rs.AbsolutePage=pagecount do while not rs.eof %> 显示的记录 <% i=i+2 rs.movenext if i>=rs.PageSize then exit do loop 'www.knowsky.com %>
家庭收支系统 vb access
05-11
。。。 Private Sub cmdOK_Click() Dim DB As Database Dim RS As Recordset Dim username As String Dim Password As String Set DB = OpenDatabase(App.Path & "\user.mdb") Set RS = DB.OpenRecordset("user") If textuser.Text <> "" Then username = textuser.Text Password = textpassword.Text Do While Not RS.EOF If username = RS!username Then If Password = RS!Password Then MsgBox "登录成功", , "提示" Form1.Hide Form2.Show Exit Sub Else MsgBox "密码错误，请重新输入！！！", vbOKOnly, "提示" textpassword.Text = "" textpassword.SetFocus Exit Sub End If Else RS.MoveNext End If
asp javascript值的互相传递方法
01-02
如果你能很好的理解我下面的一句话，那这些都不是问题了。 asp是服务器端语言，它的作用是动态生成客户端浏览器所能识别的html css javascript 等… 那么asp 怎么传值给js呢？ 动态的去生成js就好啦~~ 我们是怎么生成html的？ 不是这样吗？ 程序代码 <table> <%do while not rs.eof%> <tr><td> <a>><%=rs(“name”)%></a> </td></tr> <%rs.movenext loop%> </table> 怎么生成的name值？ <%=rs(“name”)%> 那么怎么生成js里的
自己写的本网路
11-04
一个自己写的本网路 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click() Form2.Show End Sub Private Sub Command2_Click() Dim l As String Dim sql As String l = ListView1.ListItems.Item(ListView1.SelectedItem.Index).Text conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\db.mdb" sql = "delete from VbMemo where id =" & l conn.Execute sql conn.Close ListView1.ListItems.Remove ListView1.SelectedItem.Index MsgBox "删除成功！" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim i As Long conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\db.mdb" rs.Open "select * from VbMemo", conn, 1, 3 If Not rs.EOF Then Do While Not rs.EOF i = i + 1 ListView1.ListItems.Add , , rs("id").Value ListView1.ListItems.Item(i).ListSubItems.Add , , rs("title").Value ListView1.ListItems.Item(i).ListSubItems.Add , , rs("memotime") rs.MoveNext Loop End If conn.Close End Sub Private Sub Timer1_Timer() Dim d As Date For i = 1 To ListView1.ListItems.Count d = ListView1.ListItems.Item(i).ListSubItems.Item(2).Text If (((Now + (5 / 24 / 60)) > d) And Now < d) Then MsgBox "时间到了" End If Next End Sub
ASP批量更新数据代码
r_jolpkmnvverset的专栏
06-06 1024
<br />ASP批量更新数据代码<br /><br />%>   <br />两个文件 ..cn.asp 连接数据库用的 ..cn3.asp 执行文件 .<br />cn.asp 源代码 <br /><%<br />dim conn<br />dim dbpath<br />bb="base/qqw.asp"<br />   set conn=server.createobject "adodb.connection" <br />DBPath = Server.MapPath bb <br />conn
ASP中退出FOR循环或DO WHILE循环的代码2则
wingwingdi的专栏
11-01 3102
在开发ASP程序的过程，常常需要对循环执行判断，如果不符合条件那么就需要跳出for ... next 或者 do while 循环。1、退出for循环：exit for 　例： for i=1 to 10 if rs.eof or rs.bof then exit for end if next 2、退出do while循环： exit do 　例： 　　do while not rs.eof o
asp的rs的循环语句在php的处理办法
dieqi9270的博客
06-17 180
asp中的语句rs.movenext的语句，要取20行数据，它是这样的： <% dim conn,rs, sqlset conn=getconn()set rs=getRs() sql = "select top 20 * from [table] order by id desc"n = 0rs.open sql,conn,3,3while not rs.eof n ...
帮我优化以下代码 Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strFileName As String Dim i As Long '设置导出文件路径和文件名 strFileName = "C:\Users\icd\Desktop\流水分割\" Set db = CurrentDb() strSQL = "SELECT 导出数据.* FROM 导出数据" Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot) '每10000条记录导出到一个新的文件 Do While Not rs.EOF If i Mod 10000 = 0 Then If i <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(i, "000000") & ".xlsx", True End If rs.Close Set rs = db.OpenRecordset("导出数据", dbOpenSnapshot) End If i = i + 1 rs.MoveNext Loop '导出最后一份文件 If i Mod 10000 <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "导出数据", strFileName & Format(i - (i Mod 10000), "000000") & ".xlsx", True End If rs.Close Set rs = Nothing Set db = Nothing
最新发布
06-08
可以将代码优化为避免重复打开和关闭记录集，同时使用更好的变量命名和代码注释，代码如下： ``` Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strFilePath As String Dim i As Long '设置导出文件路径 strFilePath = "C:\Users\icd\Desktop\流水分割\" Set db = CurrentDb() '获取需要导出的记录集 strSQL = "SELECT 导出数据.* FROM 导出数据" Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot) '每10000条记录导出到一个新的文件 Do While Not rs.EOF If i Mod 10000 = 0 Then '导出到Excel文件 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "导出数据", strFilePath & Format(i, "000000") & ".xlsx", True End If i = i + 1 rs.MoveNext Loop '导出最后一份文件 If i Mod 10000 <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "导出数据", strFilePath & Format(i - (i Mod 10000), "000000") & ".xlsx", True End If '关闭记录集和数据库 rs.Close Set rs = Nothing Set db = Nothing ``` 在上面的代码中，我们使用了一个名为db的DAO.Database来打开数据库，并使用一个名为rs的DAO.Recordset来存储查询结果。然后，我们使用一个Do While循环来逐步导出记录。在每次循环中，我们检查是否需要导出到一个新的文件，并将记录导出到指定的Excel文件中。最后，我们关闭记录集和数据库，以确保资源得到释放。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值