数据库浏览的问题,郁闷,在线等!

yuds 2004-09-07 10:36:43
我有这样一段程序:就是要浏一个表中的全部记录:
Private Sub Command操作员_后一个_Click()
If Not Adodc客房管理.Recordset.AbsolutePage = adPosEOF Then
Adodc客房管理.Recordset.MoveNext
End If

End Sub

Private Sub Command操作员_前一个_Click()
If Not Adodc客房管理.Recordset.AbsolutePosition = adPosBOF Then
Adodc客房管理.Recordset.MovePrevious

End If

End Sub
问题是,前移到第一个记录后还能前移一次,出现一个空记录;后移也有同样的问题,问题出在哪里啊,怎么解决?多谢了!
...全文
146 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
longshouwo 2005-02-28
  • 打赏
  • 举报
 回复
rivate Sub Command操作员_后一个_Click()
Adodc1.Recordset.MoveNext
Form1.Command操作员_第一个.Enabled = True
Form1.Command操作员_前一个.Enabled = True
pd
If Adodc1.Recordset.EOF Then
Form1.Command操作员_第一个.Enabled = true
Form1.Command操作员_前一个.Enabled = true
　 Form1.Command操作员_后一个.Enabled = false
Form1.Command操作员_最后一个.Enabled = false
Form1.Adodc1.Recordset.MovePrevious
End If
End Sub

"前移到第一个记录后还能前移一次,出现一个空记录;后移也有同样的问题
=========
楼主我想你误会了Eof和Bof了，EOF指示当前记录位置位于Recordset对象的最后一个记录之后；BOF指示当前记录位置位于Recordset对象的第一个记录之前。即使到最后一条记录Eof仍为False，只有记录指针继续移到最后一条记录之前才为True"说得非常好，同意,代码错了，重新发一次！！
longshouwo 2005-02-28
  • 打赏
  • 举报
 回复
Private Sub Command操作员_后一个_Click()
Adodc1.Recordset.MoveNext
Form1.Command操作员_后一个.Enabled = True
Form1.Command操作员_最后一个.Enabled = True
pd
If Adodc1.Recordset.EOF Then
Form1.Command操作员_第一个.Enabled = False
Form1.Command操作员_前一个.Enabled = False
　 Form1.Command操作员_后一个.Enabled = True
Form1.Command操作员_最后一个.Enabled = True
Form1.Adodc1.Recordset.MovePrevious
End If
End Sub

"前移到第一个记录后还能前移一次,出现一个空记录;后移也有同样的问题
=========
楼主我想你误会了Eof和Bof了，EOF指示当前记录位置位于Recordset对象的最后一个记录之后；BOF指示当前记录位置位于Recordset对象的第一个记录之前。即使到最后一条记录Eof仍为False，只有记录指针继续移到最后一条记录之前才为True"说得非常好，同意
harryho 2004-09-12
  • 打赏
  • 举报
 回复
if Adodc客房管理.Recordset.eof=true then
exit sub
end if
RUKYO 2004-09-10
  • 打赏
  • 举报
 回复
前移到第一个记录后还能前移一次,出现一个空记录;后移也有同样的问题
=========
楼主我想你误会了Eof和Bof了，EOF指示当前记录位置位于Recordset对象的最后一个记录之后；BOF指示当前记录位置位于Recordset对象的第一个记录之前。即使到最后一条记录Eof仍为False，只有记录指针继续移到最后一条记录之前才为True
汪譢晾 2004-09-09
  • 打赏
  • 举报
 回复
同意 sujiang(心愿)
yuds 2004-09-09
  • 打赏
  • 举报
 回复
这样做都是不行的,都会出现空记录!
vbman2003 2004-09-07
  • 打赏
  • 举报
 回复
很久没用过Adodc控件了，不能确定，你试试：
If Not Adodc客房管理.Recordset.AbsolutePosition = adPosBOF Then
Adodc客房管理.Recordset.MovePrevious
Else
Adodc客房管理.Recordset.MoveNext
End If

或者：
If Adodc客房管理.Recordset.Eof = False Then
Adodc客房管理.Recordset.MovePrevious
Else
Adodc客房管理.Recordset.MoveNext
End If


yuds 2004-09-07
  • 打赏
  • 举报
 回复
我那样做虽然解决了,但是用一种非正常的办法,BOF和EOF的本意不应该是这样的吧?请高手指点!
yuds 2004-09-07
  • 打赏
  • 举报
 回复
请具体说一下,怎么用向导?能帮我做一个吗?多谢,多谢!!!
zcm123 2004-09-07
  • 打赏
  • 举报
 回复
用向导做一个例子然后看代码就行了,代码绝对成熟.
yuds 2004-09-07
  • 打赏
  • 举报
 回复
我的问题这样做就解决了:
Private Sub Command操作员_后一个_Click()
If Not Adodc客房管理.Recordset.AbsolutePage = adPosEOF Then
Adodc客房管理.Recordset.MoveNext
If Adodc客房管理.Recordset.AbsolutePage = adPosEOF Then
Adodc客房管理.Recordset.MovePrevious
End If
End If

End Sub

Private Sub Command操作员_前一个_Click()
If Not Adodc客房管理.Recordset.AbsolutePosition = adPosBOF Then
Adodc客房管理.Recordset.MovePrevious
If Adodc客房管理.Recordset.AbsolutePosition = adPosBOF Then
Adodc客房管理.Recordset.MoveNext
End If

End If

End Sub

bladeinside 2004-09-07
  • 打赏
  • 举报
 回复
Private Sub Command操作员_后一个_Click()
If Not Adodc客房管理.Recordset.EOF Then
Adodc客房管理.Recordset.MoveNext
End If

End Sub

Private Sub Command操作员_前一个_Click()
If Not Adodc客房管理.Recordset.BOF Then
Adodc客房管理.Recordset.MovePrevious

End If

End Sub
yuds 2004-09-07
  • 打赏
  • 举报
 回复
不懂啊,是什么意思啊,这是不能运行的!
starsoulxp 2004-09-07
  • 打赏
  • 举报
 回复

If Not adoLogin.Recordset.BOF Then
adoLogin.Recordset.MovePrevious
End If


If Not adoLogin.Recordset.EOF Then
adoLogin.Recordset.MoveNext
End If
sujiang 2004-09-07
  • 打赏
  • 举报
 回复
Private Sub Command操作员_后一个_Click()
If Not Adodc客房管理.Recordset.EOF Then
Adodc客房管理.Recordset.MoveNext
Else
Adodc客房管理.Recordset.MoveLast
End If
End Sub

Private Sub Command操作员_前一个_Click()
If Not Adodc客房管理.Recordset.BOF Then
Adodc客房管理.Recordset.MovePrevious
Else
Adodc客房管理.Recordset.MoveFirst
End If
End Sub
MySOL Administrator我晕，描述什么啊，还要20个字。不知道啊，郁闷，没有话说了。
MySOL Administrator我晕，描述什么啊，还要20个字。不知道啊，郁闷，没有话说了。
JSP+ACCESS功能全面的新闻管理系统
首先是纯JSP编写的，但是功能是全面的。刚花了两天的时间编写的新闻管理系统，里面的全部都是原创。这个也是我的毕业设计，没想一交上去就被打下来不让我做这个系统要我做选号系统，郁闷啊，苍天啊，欲哭无泪，我哪里还有那么多时间来写啊....时间都转不过来。管理员帐号密码都是admin，tomcat4下运行tomcat6的话把<%@ include="***.jsp"%>里应用的JSP文件头上加个编码，不然会乱码的。还需要改inc文件夹下的数据库连接路径，以及chang.jsp和hf.jsp的数据库连接路径。里面的视频我删除了，因为上传大小有限制。自己加。 用户：浏览带图片或者视频的新闻，新闻查询，新闻评论，新闻搜索，给管理员留言，查看管理对自己留言的回复，给管理员发E-mail，查看某条新闻所有评论，新闻访问统计，新闻分类列表。 管理员：添加\修改\查询\删除 文本新闻或者图片新闻以及视频新闻，查询修改和删除新闻，管理注册用户，管理用户对新闻发表的评论（查看、删除），查看和回复用户对管理员的留言，添加删除友情链接。 5分绝对值得...因为这是我第一次在此传代码
中国石油大学（北京）2024年春计算机应用基础第一阶段在线作业
中国石油大学（北京）2024年春计算机应用基础第一阶段在线作业
Discuz! 幻雪插件版
最近想弄个论坛，见到好多ASP论坛都有美化版，插件版等等。PHP的居然没几个，真是郁闷死了。
所以小弟在此做了个Discuz! 2.5版的插件版。
我用的是圆圆美化版做基础，所以继承圆圆版所有功能，以下是我的新加的。
因为插件比较多，所以压缩包比较，居然有13MB（瀑布汗。。。。）
安装插件列表：
仿官方D4广告（非后台控制，后台控制的不能设置颜色，郁闷。）修改信息请修改模版目录下的gg.htm
论坛推荐文章
首页热门帖（论坛会员发贴排行，最新发布贴，最多浏览贴，最多回复贴。）
滚动友情连接列表（左右滚动）
页面底部程序信息汉化（即程序执行时间和数据库查询。）
支持QQ秀做论坛头像。
帖子内会员名字做资料连接。
修正圆圆版精华贴无法正常显示，需后台统计的BUG
增加论坛年龄（10天加一岁。）
增加楼层显示（请看演示地址）
更新在线时间插件
安装鲜花鸡蛋插件
美化贴内会员信息
安装结婚插件
安装水客版宠物（1.05版）
美化签名框与漫画框
增加一个PM管理工具（pmadmin.php）可以查看，删除会员的PM
安装一个繁简转换工具
仿官方D4加入首页显示版块今日新贴数量
安装在线电视
安装科学计算器（个人感觉没多大用。。。）
安装足球彩票（可以整和到社区俱乐部里去。）
升级社区银行
安装魔兽争霸插件（不要误会，只是单纯的娱乐插件，不要和有名的魔兽争霸混一起。）
安装社区监狱
安装股票中心
安装转贴利器（好东西啊……）
安装年龄计算器（计算你出生到现在活了几年，几星期，几月，几天，几分，几秒……）
安装幸运摇奖（仔细设置）
安装BT Page（搜索论坛贴子内有无BT种子附件，有则显示出来，形成一个BT下载中心）
安装开心辞典（里面的题目好难啊~）
安装论坛留言本（反应用的吧。。。）
安装我的网址（类似与网络收藏夹的作用吧。。。）
安装社区图片（类似与上面的BT PAGE，这个搜索附件里的图片。）
安装社区法院
安装社区游乐园（喔，好象有几十个游戏吧。。。）
安装版主申请插件
万年日历（原圆圆版）
备忘记事（原圆圆版）
许愿祝福（原圆圆版）
安装一HACK，可修改论坛版块名称颜色（只能用HTML编码）
安装一HACK，点击图标即可复制贴子地址和标题，然后发送给QQ/MSN/ICQ/YAHOO/UC好友
安装广告公司（注：其中使用了绝对地址，请修改adcom.php和对应的模版）
安装社区俱乐部
还有不少小HACK，已经记不清了~
在此感谢这些插件的作者，因为他们的努力，才让我们能用上这么好的插件和HACK
————————————————————
安装方法：
因为安装了这么多插件，原来的PHP安装文件已经是不能用了。。。。
步骤1
上传所有论坛文件到空间（注意，有几个插件设置使用了绝对地址，请注意修改！）
千万别忘了设置attachments，customavatars，forumdata，templates，forumdataaccesslogs
forumdatacache，forumdata emplates 这几个文件夹的777属性（WIN环境服务器无需！）
步骤2
运行install.php进行安装
步骤3
输入正确的MYSQL服务器参数。
PS：推荐一个免费的MYSQL数据库http://free-mysql.bizhostnet.com/ 速度还不错，是用免费空间 的朋友的福音啊，这样再也不用担心空间挂了，数据也跟着丢了！不过要放个他们的广告~ 步骤4 如果没有意外，通过install.php应该已经安装完成了！ 步骤5 然后设置config.php输入正确的MYSQL信息（必须和上面导入的为同一数据库！） 当install.php导入所有数据时！ 已经建立了一个管理员帐号 用户名：快乐ABCD 论坛ID：1 密码：hx.5.cc 安全提问第一个，答案是174551775 记得删除安装文件！！！！！！ 步骤6 嘿，到现在应该已经完成了~~~~ 快点去看看吧。。。。 论坛采用ZIP压缩包模式，方便一些使用CP空间的朋友，CP空间支持ZIP在线解压缩~ 使用CP导入时，请保证public_html目录内容为空或者不于压缩包内文件重复，否则将无法正常解压
Discuz! v2.5 幻雪插件版
安装提示:

(一)完整安装

安装插件列表：
仿官方D4广告（非后台控制，后台控制的不能设置颜色，郁闷。）修改信息请修改模版目录下的gg.htm
论坛推荐文章
首页热门帖（论坛会员发贴排行，最新发布贴，最多浏览贴，最多回复贴。）
滚动友情连接列表（左右滚动）
页面底部程序信息汉化（即程序执行时间和数据库查询。）
支持QQ秀做论坛头像。
帖子内会员名字做资料连接。
修正圆圆版精华贴无法正常显示，需后台统计的BUG
增加论坛年龄（10天加一岁。）
增加楼层显示（请看演示地址）
更新在线时间插件
安装鲜花鸡蛋插件
美化贴内会员信息
安装结婚插件
安装水客版宠物（1.05版）
美化签名框与漫画框
增加一个PM管理工具（pmadmin.php）可以查看，删除会员的PM
安装一个繁简转换工具
仿官方D4加入首页显示版块今日新贴数量
安装在线电视
安装科学计算器（个人感觉没多大用。。。）
安装足球彩票（可以整和到社区俱乐部里去。）
升级社区银行
安装魔兽争霸插件（不要误会，只是单纯的娱乐插件，不要和有名的魔兽争霸混一起。）
安装社区监狱
安装股票中心
安装转贴利器（好东西啊……）
安装年龄计算器（计算你出生到现在活了几年，几星期，几月，几天，几分，几秒……）
安装幸运摇奖（仔细设置）
安装BT Page（搜索论坛贴子内有无BT种子附件，有则显示出来，形成一个BT下载中心）
安装开心辞典（里面的题目好难啊~）
安装论坛留言本（反应用的吧。。。）
安装我的网址（类似与网络收藏夹的作用吧。。。）
安装社区图片（类似与上面的BT PAGE，这个搜索附件里的图片。） 安装社区法院 安装社区游乐园（喔，好象有几十个游戏吧。。。） 安装版主申请插件 万年日历（原圆圆版） 备忘记事（原圆圆版） 许愿祝福（原圆圆版） 安装一HACK，可修改论坛版块名称颜色（只能用HTML编码） 安装一HACK，点击图标即可复制贴子地址和标题，然后发送给QQ/MSN/ICQ/YAHOO/UC好友 安装广告公司（注：其中使用了绝对地址，请修改adcom.php和对应的模版） 安装社区俱乐部
数据库(包含打印，安装，报表)

1,217

社区成员

55,952

社区内容

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印，安装，报表)
社区管理员
  • 数据库(包含打印，安装，报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章