do while not rs.eof

最新推荐文章于 2022-10-19 10:07:42 发布
最新推荐文章于 2022-10-19 10:07:42 发布
阅读量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
    评论
STORE_PROC.rar
08-07
Do While Not rs.EOF Debug.Print rs("字段名") rs.MoveNext Loop rs.Close conn.Close Set rs = Nothing Set cmd = Nothing Set conn = Nothing ``` 7. **最佳实践**： 在实际应用中，确保正确处理...
完整版记录集读写操作.rar
04-03
Do While Not rs.EOF WScript.Echo "Employee ID: " & rs("EmployeeID") & ", Name: " & rs("Name") rs.MoveNext Loop ``` 3. **写入记录**：记录集也支持写操作。如果记录集在打开时设置为可更新（例如，`...
初学ASP时遇到的一些问题
Celestial Being
09-24 1181
1、从数据库中取出字符串显示出来，使用server.htmlencode(str)将串中的双引号等正常显示。 2、将字符串存和数据库中，应使用trim()去掉首尾空格，再使用replace(str, " ' ", " ' ' ")将一个双引号以两   个双引号代替，注解：括号内（操作串，两个双引号中间一个单引号，两个双引号中间两个单引号） 3、Asp数据库操作调试方法，可以先将原
do while not rs_b.eof...rs_b.movenext...loop
weixin_30791095的博客
10-09 249
<style type="text/css"><!--body {margin-left: 0px;margin-top: 0px;margin-right: 0px;margin-bottom: 0px;}--></style> <style type="text/css"><!--a {font-size: 12px;c...
ASP中如何退出FOR循环或DO　WHILE…
php菜鸟技术天地
06-02 4552
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        
循环语句-while，for，do while-使用方法及注意事项
forwkard__的博客
10-19 443
循环语句的初识
RESPONSE.WRITE和&lt;%=%的区别
10-30
同时，使用`for`循环代替`do while not rs.eof`可以避免在每次迭代时检查是否达到记录末尾，进一步提高了效率。 总结来说，`Response.Write`和`<%=%>`在ASP编程中都有其适用的场合。`<%=%>`适合于在HTML中输出简单...
RS实例（源码）
08-23
Do While Not rs.EOF Debug.Print rs("ColumnName") rs.MoveNext Loop End If ``` 4. **关闭连接**：使用完数据库后，记得关闭Recordset和Connection以释放资源。 ```vb rs.Close conn.Close Set rs = ...
asp数据库(access)详解.doc
06-03
`do while not rs.EOF`循环遍历Recordset中的每一项，`rs("field_name")`用于获取字段值。 数据库的基本操作还包括写入记录。以下是一个向guestbook表中插入新记录的例子： ```asp set conn = Server....
ASP批量更新数据代码
r_jolpkmnvverset的专栏
06-06 1034
<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 3157
在开发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]无记录时需使用if(rs.bof and rs.eof)判断
柯兄技术博客
05-21 7899
如果表orders里没有任何一条符合记录。那么如果只用if(rs.eof) then判断会导致错误。正确做法是头指针尾指针都要判断：if(rs.bof and check.eof) then正确代码如下：set check=server.CreateObject("adodb.recordset")   check.open "select username from orders where
帮我优化以下代码 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、付费专栏及课程。

余额充值