从 VBA 运行查询的意外结果

Question

以下代码有问题：

Set con = Application.CurrentProject.Connection
    Set rs = CreateObject("ADODB.Recordset")
    stSql = "SELECT * FROM [SB Items] "
    stSql = stSql & "WHERE [SBID]=" & Me![SBID] & " AND [ItemNumber]=" & intBtn
    rs.Open stSql, con, 1    ' 1 = adOpenKeyset

    ' If no item matches, report the error and exit the function.
    If (rs.EOF) Then
        MsgBox "There was an error reading the SB Items table."
        rs.Close
        Set rs = Nothing
        Set con = Nothing
        Exit Function
    End If

自从我在 stSql 中执行上述 sql 命令后，结果只有一行

控件将进入错误块

并弹出消息框“读取 SB 项目表时出错”

Answer 1

使用此代码查看您返回了多少条记录。

if rs.Supports(adApproxPosition)=true then
  i=rs.RecordCount
  MsgBox "The number of records is: " & i
end if
'
' If no item matches, report the error and exit the function.
If (rs.EOF) Then
'and on as you have it

另外，如果有任何信息，请返回 err.desc 以获取更多信息。

最后，检查 Con 是否已附加到您认为正在使用的数据库中！

Answer 2

您没有错误块，您可以检查 rs.eof。

我倾向于使用

检查零行

if (rs.eof) and (rs.bof)..

因为这个条件只有在记录集为空的情况下才成立，而不仅仅是当指针不在您期望的位置或胖游标仍在填充时。

您确定代码没有完全按照设计的方式执行并在没有行时显示消息吗？

尝试使用 debug.print stSQL 以获取正在运行的实际查询，并尝试直接针对数据库运行该查询。这将确认两件事：

1. 查询的形成方式如您所愿，包括您从表单中提取的值
2. 表中的数据实际上包含了应该被捕获的行。

Answer 3

两件事：

1. 我注意到您设置了两次 stSQL，我猜是因为换行的原因。更简单的方法是使用“_”（空格后跟下划线）。这使您可以将命令转移到下一行。

2. 从以下位置更改您的 Msgbox 错误：
   MsgBox "读取 SB Items 表时出错。"
   到：
   Msgbox "错误：" & err.desc

编辑：err.desc 为您提供生成的确切错误代码。它并不总是有帮助，但它是你能得到的最好的。