如何访问记录集中的值

Question

以这段代码为例：

sSQL = "select CtyMarket from Market where Country = '" & Country.Value & "'"
Set rec = CurrentDb.OpenRecordset(sSQL)

该语句可以返回多个值。我如何访问这些值？

Answer 1

好吧，为了获取所有值，您可以浏览记录集中的字段和记录。它可能看起来像这样：

'You'll need to declare a new variable
Dim i as long

If rec.EOF and rec.BOF then
Else
    do while not rec.EOF
        for i = 0 to rec.fields.count - 1
            debug.print rec.fields(i).value
        next i
        rec.movenext
    loop
endif

获取数据的其他方法是使用记录集对象的 getrows 和/或 getstring 方法，但我不记得这些方法是否可用于 DAO 记录集。您还可以为特定字段上的特定值设置过滤器等

Answer 2

我使用此函数在读取记录集时不关心 NULL 值：

Public Function toStr(pVar_In As Variant) As String
    On Error Resume Next
    toStr = CStr(pVar_In)
End Function

永远不要相信 rec.recordcount 的确切数量，但 rec.RecordCount>0 是安全的。这就是为什么在使用记录集时绝不使用for循环。如果您想知道记录计数，您首先必须做的是 rec.movelast 然后是 rec.movefirst

我知道有两种不同的方法：

While not rec.eof
    msgbox toStr(rec!CtyMarket)
    rec.moveNext
Wend

或

While not rec.eof
    msgbox toStr(rec.fields("CtyMarket").value)
    rec.moveNext
Wend