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

xhstudio 2004-09-12 12:48:52

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

...全文

232 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

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