我的rs.movenext是怎么了？

yebee 2001-08-07 12:45:37

各位朋友好，请教一个问题：我从exchange的ado搜索到一个记录集，
但是在对这个记录集操作的时候老是出现movenext和moveprevious
的privider错误，但是movefirst和movelast却是好的，而且记录集非空，
这是怎么回事，难道movenext和moveprevious的使用有什么限制吗？
请大家帮忙！

...全文

101 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

sunxiaoli 2001-08-07

打赏
举报

回复

又一位只问错，不给代码的。麻烦了

loneboy 2001-08-07

打赏
举报

回复

请把你的代码列出来让我们have a look.
这样子比较好办。

freezwy 2001-08-07

打赏
举报

回复

还是打开方式的错误。把你的代码和错误代码弄出来瞧瞧

hydnoahark 2001-08-07

打赏
举报

回复

你的代码？？？

yebee 2001-08-07

打赏
举报

回复

这个也检查了，没问题，只是提示“错误类型：Provider (0x80040E0E)”
是不是连接的时候需要什么参数？

fsb_12345 2001-08-07

打赏
举报

回复

须判断RS.EOF,记录以是最后一条movenext错,第一条moveprevious错

rs.MoveNext Loop Until rs.EOF '校验是否为普通用户 Set rs = cn.Execute("SELECT 学号 FROM 学生 WHERE 学号 =" & "'" & txtPassword.Text & "'") If rs.EOF Then MsgBox "无效密码或用户名请重试!", , ...

如 t=rs.BookMark 记录当前的标记 rs.BookMark=t 把游标移动到记录时的位置例子: <% dim d sql=select * from cs1 set rs=server.CreateObject(ADODB.RecordSet) ... rs.MoveNext wend r

模块化分页 1.查询语句块取得当前文件名 temp = Split(request.ServerVariables("URL"), "/") fy = temp(UBound(temp)) ...rs.movenext if i>=rs.PageSize then exit do loop 'www.knowsky.com %>

。。。 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") ... RS.MoveNext End If

练习用，花了100分问问题的成果。囧！菜鸟上路，代码共享QQ：846461，希望高手加我加以指导。 db_path = "x.mdb" Set conn= Server.createObject("ADODB.Connection") ... rs.movenext Wend End If End Sub

28,391

社区成员

357,060

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章