sql - VBA Access SQL SELECT查询只返回一条记录

Question

我正在使用 Access 2010 中的 VBA，但我遇到了一个奇怪的问题。我试图从表中提取记录，但我的 SELECT 查询只返回一条记录。

表中有三条记录，但记录集只获取第一条。

这是我的代码。

Dim cc As String 
Dim DB As Database 
Dim rst As recordset 
Dim sqlstr As String 
Dim e As Integer 

cc = CmbClass.Text
If cc = "" Then Exit Sub 

sqlstr = "SELECT * FROM Students" 'WHERE CCode ='" & cc & "'"

Set DB = CurrentDb 
Set rst = DB.OpenRecordset(sqlstr) 
'Debug.Print rst.Fields(0)
e = rst.RecordCount 
Debug.Print e 
If e = 0 Then Exit Sub

e 的值一直是 1，而不是 3。如您所见，我最初有一个更复杂的 SQL 字符串，但我在尝试排除故障时已将其缩减为最基本的，但问题仍然存在。有谁知道为什么会这样？

谢谢，

谭。

Answer 1

从内存中，您需要发出 arst.MoveLast才能可靠地获得这样的记录数：

sqlstr = "SELECT * FROM Students" 'WHERE CCode ='" & cc & "'"

Set DB = CurrentDb 
Set rst = DB.OpenRecordset(sqlstr) 
rst.MoveLast
e = rst.RecordCount 

此外，您可能需要考虑使用SELECT COUNT(*) FROM Students和读取记录集中的值，而不是通过记录来获取计数。使用此查询应该更有效。

Answer 2

另一种方法是DCount。

e = DCount("*","Students","CCode ='" & cc & "'")

除非你真的需要，否则不要玩记录集