MS Access 2010：VBA 代码运行多次

Question

我遇到了一个以前从未遇到过的问题，我看不到任何错误。

表单上有一个按钮cmdCreateOrder，它运行对 SQL Server 的传递查询并执行存储过程，此查询将值返回给 Access。

按钮cmdCreateOrder：

Private Sub cmdCreateOrder_Click()
Dim strsql As String
Dim intNumberProducts As Integer

If MsgBox("Want to create an order?" & vbCrLf & vbCrLf _
        & "Click 'Yes' to create", vbQuestion + vbYesNo, "Question") = vbNo Then
        Exit Sub
End If

    strsql = "exec dbo.spCreateOrder 'CreateOrdersKd', 1, " & Me.OfferID & ", " & Me.KdID & ", " & TempVars!intUser
    Debug.Print strsql
    Call SQL_PT(strsql, "PT_LookupWerte")

    intNumberProducts = DLookup("NumberProducts", "PT_LookupWerte")

    Me.Bestelldatum = Date
end Sub

函数SQL_PT：

Function SQL_PT(ByVal SQL As String, Optional QueryName As String)  
Dim qdf As QueryDef

On Error GoTo ErrHandler

'if no query name then create temp qry
If Len(QueryName) = 0 Then 'temp Abfrage

    Set qdf = CurrentDb.CreateQueryDef("")
    With qdf
        .Connect = TempVars!ConnectionString
        .SQL = SQL
        .ReturnsRecords = False  'Wenn kein QueryName angeliefert wird, dann ergibt .ReturnsRecords = 0 und die Abfrage wird einfach ausgeführt
        .Execute
    End With

Else  'if a qry name provided, then run qry which returns values
    Set qdf = CurrentDb.QueryDefs(QueryName)
    qdf.SQL = SQL
End If

qdf.Close
Set qdf = Nothing

ExitHere:
    Exit Function

ErrHandler:
    Resume ExitHere
End Function

我在这个项目中使用了很多这样的代码，它们都可以正常工作。但是这个按钮点击至少运行了 3 次EXEC 并创建了 3 个（或更多）订单。

访问 VBA 调试测试

更奇怪的是，我在即时窗口中只得到了一行。 当我在 PT 查询 (PT_LookupWerte) 中使用 Debug.Print 结果（例如 exec dbo.spCreateOrder 'CreateOrdersKd', 1, 8, 2001, 1）时，只需 ONE 顺序即可正常工作。

SQL Server 存储过程测试

当我在 SQL Server 上运行存储过程时：exec dbo.spCreateOrder 'CreateOrdersKd', 1, 8, 2001, 1 它也只创建了一个订单并且它运行正常。

只有在 Access 中单击按钮时才会运行多次。

我对数据库进行了压缩、修复和反编译。现在我不知道问题出在哪里了。

有什么想法吗？

Answer 1

使用 DAO 执行存储过程（就像您的 SQL_PT 一样）是一个糟糕的计划。

将存储过程存储在 QueryDefs 中并使用 DLookUp 而不是 .Execute 或 .OpenRecordset 执行它们是一个糟糕的计划。

一个简单的解决方法是将intNumberProducts = DLookup("NumberProducts", "PT_LookupWerte") 替换为intNumberProducts = CurrentDb.QueryDefs("PT_LookupWerte").OpenRecordset.Fields("NumberProducts").Value

更好的解决方法是将存储过程代码移至 ADO，并使用命令对象和参数来执行存储过程。