访问 VBA QueryDef.Execute() 错误 3420

Question

此处一段非常简单的代码引起了一个非常烦人的问题。这是一个较大子例程的一部分，但应在此处找到唯一的相关信息。

Dim db As DAO.Database
Set db = CurrentDb

' If the associated hospital is new, add it first
If newHName = True Then
    Dim qdfNewHospital As DAO.QueryDef
    Set qdfNewHospital = db.CreateQueryDef
    qdfNewHospital.SQL = "INSERT INTO tblHospital (HospitalName)" & _
        " VALUES ('" & hName & "')"
    qdfNewHospital.Execute dbFailOnError
    Dim iAffected As Integer
    iAffected = qdfNewHospital.RecordsAffected
    Debug.Print "Inserting hospital " & hName & " affected " & iAffected & " row(s)"
End If

我在这一行收到错误 3420 "Object invalid or no longer set"：

qdfNewHospital.Execute dbFailOnError

这似乎表明一个常见问题，我知道 QueryDef 是在哪里创建的：

CurrentDb.CreateQueryDef

由于 CurrentDb 的内部工作方式而被过早处置。这个问题的常见解决方案显然是我在这里所做的，将 "CurrentDb snapshot" 保存在一个变量中并从那里创建 QueryDef 以确保它不会被处理掉。一些额外的细节：

我已验证代码中其他地方没有命名冲突
本模块中的任何其他地方都没有引用 CurrentDb

我搜索了 Whosebug 和各种帮助论坛，试图为这个看似简单的问题找到解决方案，在任何类似情况下的解决方案都是 "don't call CurrentDb directly, store it in a variable instead"。但是我已经这样做了，问题仍然存在。任何对此的见解将不胜感激。

Answer 1

您收到该错误是因为您创建的 QueryDef 对象没有 .Name 属性。通常当我们创建一个临时 QueryDef 对象时，我们将 .Name 属性作为空字符串参数提供给 CreateQueryDef 方法：

Set qdfNewHospital = db.CreateQueryDef("")

或者，如果您愿意，我想您可以分两步完成...

Set qdfNewHospital = db.CreateQueryDef
qdfNewHospital.Name = ""

...但第一种方式更常见。

当您通过将其 .Name 设置为空字符串来创建临时 QueryDef 对象时，该对象不会保存在 QueryDefs 集合中，因此您无需担心"cleaning up" 使用后。

_{（感谢@MaciejLos 建议对此答案进行改进。）}

Answer 2

使用 DAO，你也可以这样做：

Dim sqltext As String
qdfNewHospital As DAO.QueryDef

'  build the create querydef sql  string
sqltext = "INSERT INTO tblHospital (HospitalName)" & _
        " VALUES ('" & hName & "')" 

'  now create a reusable stored query def
On Error Resume Next  

With CurrentDb               
    'Delete the query if it exists
    .QueryDefs.Delete ("My_Query")
    'Now set up the querydef                                
    Set qdfNewHospital = .CreateQueryDef ("My_Query", sqltext)
    .Close
End With

Answer 3

简而言之，我遇到了同样的问题。

Dim db as DAO.Database
Dim q as DAO.queryDef
...
' This failed
Set q = db.CreateQueryDef(, strSQl)
q.Execute dbFailOnError

'This worked (queryDef needs a name even if its blank)
Set q = db.CreateQueryDef("", strSQl)
q.Execute dbFailOnError

访问 VBA QueryDef.Execute() 错误 3420

Access VBA QueryDef.Execute() Error 3420

ms-access

vba