设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1371|回复: 4
打印 上一主题 下一主题

[Access本身] 关于DAO.OpenRecordset 出错的问题

[复制链接]
跳转到指定楼层
1#
发表于 2008-6-28 11:25:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
' ***********************************************
Dim Db As DAO.Database
Dim Ry As DAO.Recordset

Set Db = CurrentDb
Set Ry = Db.OpenRecordset("select * from 订单明细表 where 订单id =278 order by 产品id,具体订单号")

MsgBox Ry.RecordCount

Set Ry = Db.OpenRecordset("SELECT 订单明细表.* FROM 订单明细表;")
MsgBox Ry.RecordCount
' ************************************************
结果 第一个 MsgBox 显示 105(条记录),  第二个 MsgBox 只显示 1(条记录),
而实际上应该有9000多条记录, 请达人看看我的代码哪里有问题??

多谢。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2008-6-28 13:01:07 | 只看该作者
Ry .movelast之后呢,对不对
3#
 楼主| 发表于 2008-6-28 13:58:36 | 只看该作者
1.  好象无关 Ry.Movelast!

Dim Db As DAO.Database
Dim Ry As DAO.Recordset
Set Db = CurrentDb

Set Ry = Db.OpenRecordset("select * from 订单明细表")
MsgBox Ry.RecordCount

Set Ry = Db.OpenRecordset("select * from 订单明细表 order by 产品id,具体订单号")
MsgBox Ry.RecordCount

Set Ry = Db.OpenRecordset("select * from 订单明细表 where 订单id =278 order by 产品id,具体订单号")
MsgBox Ry.RecordCount

2.  上面的MsgBox, 第一个是 1, 第二个,第三个都是实际的记录数 (9000多)
   不知道是什么原因? 达人请解惑,多谢!
4#
 楼主| 发表于 2008-6-28 14:00:32 | 只看该作者
说错一点, 第三个是记录数 105个。 搞不懂为什么 第一个记录数是1??
5#
发表于 2008-6-28 15:04:40 | 只看该作者
select * from 订单明细表 where true看看是否可以
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-9-22 13:38 , Processed in 0.097586 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表