DAO+ACCESS 如何取得当前记录数？

2004-09-12 12:48:52 265 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

xhstudio 墨衍会员 · AI 创作全网分发关注 + 加入社区

利用ArcGIS创建渔网计算渔网内土地利用占比划分中国北方农牧交错带依据土地利用数据，根据参考文献划分要求，利用ArcGIS创建渔网对地物进行重分类，划分农业带、牧业带以及农牧交错带。阅读详情

用什么方法能取得当前记录的记录数？

...全文

智能座舱架构与芯片- (9) 音频篇上从A2B收发器衍生出来的简化产品具备各种级别的功能，例如端点从节点（不支持TDM）、简化型主节点（支持较短的电缆和更少的从节点数量），以及简化型端点从节点（支持较短电缆和更少的PDM输入）。例如，AVB中的talker和listener是不同的设备，它们的参考时钟源可能并不相同。传统的车载收音机通过天线接收无线电信号，然后由调谐模块(Tuner)进行信号调谐，信道过滤，信道均衡，多路改善，信号解调等，转为数字信号后再交给DSP进行立体声解码，噪声抑制，弱信号处理，最后从车载音响系统进行播放。阅读详情

xhstudio

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

tztz520 2004-09-12

打赏
举报

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("C:\AA\dev.mdb")
Set rs = db.OpenRecordset("select* from tablename")

if rs.RecordCount>0 then rs.MoveLast
msgbox "当前记录总数: " & str(rs.RecordCount)

xxfeiyu 2004-09-12

打赏
举报

rs是记录集
rs.movelast
N=rs.recordcount

RUKYO 2004-09-12

打赏
举报

那可以用SQL语句来实现啊，举个例子说：
SELECT TOP 105 * FROM 表1 WHERE 房屋类型 = '大' ORDER BY 地址,房屋类型 DESC

xhstudio 2004-09-12

打赏
举报

我所用的那个表是一个相关住房信息的，里面用到地址
我正常是按地址+房屋类型排序打开表，
表打开以后，地址按序列排下去的，但不是每次都用到全部的，可能只用其中100~105条
所以想按记录号来取数据（相关打印，要不每次得取全部数据）
如果按记录号操作的话，相对的方便一些

RUKYO 2004-09-12

打赏
举报

我不明白楼主为何非要用根据一个号来表识一个记录，其实你完全可以用SQL语句结合你字段某值来查询出你所需要的记录

xhstudio 2004-09-12

打赏
举报

要是在记录里加入自动编号字段的话，那我删除记录以后，号就不连续，我想这不是取当前记录的办法，我记着自动编号字段不会把你删除记录的号重新加入，还有就是打开表的时候是按一个字段排序的，而不能用自动编号字段打开表，这样编号字段的数据也就不对了

星魂.net说的是个办法
可是还有没有别的办法啊？？？？？

starsoulxp 2004-09-12

打赏
举报

你的记录是怎么移动的？把代码贴出来看看。
记录移动时记录序号，例如
rs.movenext
i=i+1

RUKYO 2004-09-12

打赏
举报

你可以在表中建立一个名为“ID”的自动编号字段，范例如下：

'工程->引用 Microsoft DAO3.x Object Library
Option Explicit
Public mDbs As Database
Public mWrk As Workspace
Dim mRst As Recordset

Private Sub Form_Load()
Set mWrk = CreateWorkspace("", "admin", "", dbUseJet)
Set mDbs = mWrk.OpenDatabase(App.Path & "\db1.mdb")
Set mRst = mDbs.OpenRecordset("Select * From Table1", dbOpenDynaset, dbDenyWrite)
If mRst.RecordCount > 0 Then
mRst.MoveLast '也是RecordCount属性
Debug.Print "记录总数是：" & mRst.RecordCount
mRst.MoveFirst
Do While Not mRst.EOF
Debug.Print mRst.Fields("ID") 'ID字段是你Access表中自动编号字段
mRst.MoveNext
Loop
Else
Debug.Print "记录总数是：0"
End If
mRst.Close
Set mRst = Nothing
End Sub

xhstudio 2004-09-12

打赏
举报

不好意思，是我没说明白，不是取得表的总记录数
是当前正在操作的记录是第几条
比如
当前打开的表有1000条记录
我怎么知道我正在操作的是哪条呢

DAO+ACCESS 如何取得当前记录数？

相关推荐