实现“第一条”,“上一条”,“下一条”,“最后一条”

wolvesroad 2008-05-26 11:32:19
如何实现“第一条”,“上一条”,“下一条”,“最后一条”,来读去数据库表的数据
...全文
81 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
红叶哥 2008-05-30
  • 打赏
  • 举报
回复
今天我也越到這種問題,我把數據庫重建一下就OK了
查尋第一條時,發現查到其它位置,查最後一條時,卻成了第一條記錄

我懷疑是數據庫出錯
但,我做實驗,對數據庫做各種誤操作,確再沒發現這樣的情況
真是那悶

红叶哥 2008-05-26
  • 打赏
  • 举报
回复
先用查尋語句,找到你要讀出的數據."Select * From Where ??=??"
再用"第一条”,“上一条”,“下一条”,“最后一条"
if not recordset.eof then
recordset.movefirst
recordset.movepreview
recordset.movenext
recordset.movelast
endif
jinghuanzhang 2008-05-26
  • 打赏
  • 举报
回复
如果你的表里有内码ID,那 用 "select top 1 * from 表 where id>" & mainid & " order by id " 就可以实行.以此类推,“第一条”,“上一条”,“下一条”,“最后一条”都可以 做到
xtfjchrk 2008-05-26
  • 打赏
  • 举报
回复
应该不会这样吧
看清楚点!
wolvesroad 2008-05-26
  • 打赏
  • 举报
回复
为什么我用“下一条”时会从第一条开始呢,怎么处理呢?我是从数据库读出数据的
smoked 2008-05-26
  • 打赏
  • 举报
回复
recordset.movefirst
recordset.movepreview
recordset.movenext
recordset.movelast
diybl 2008-05-26
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 wolvesroad 的回复:]
为什么我用“下一条”时会从第一条开始呢,怎么处理呢?我是从数据库读出数据的
[/Quote]
你要用的是循环结构
比如
do while
loop

结构,不要在循环体里面加 rs.movefirst

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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