从 MS Access 调用存储过程会导致错误 3146

Question

当我使用下面显示的代码从 MS Access 前端调用 SQL Server 存储过程时，它停止运行并抛出运行时错误“3146”。

这个存储过程在 SQL Server 中运行正常，但是当我从 MS Access 运行时，它一开始可以运行，但突然停止并抛出运行时错误“3146”。

为了更清楚，这个存储过程用于在我从 MS Access 中插入空表中的记录时，它应该插入 1000 条记录，但它会插入 970 条记录然后停止。

我的存储过程有一个用于插入记录的选择查询，现在我已将这个简单的选择查询更改为联合查询，因为我在存储过程的设计中对此进行了更改，它在 SQL Server 中运行良好

Public Sub Command0_Click()
    Dim qdef As DAO.QueryDef
    Set qdef = CurrentDb.CreateQueryDef("")

    qdef.Connect = CurrentDb.TableDefs("[ASBUILT_LIST]").Connect
    qdef.SQL = "EXEC Update_Asbuilt2"
    qdef.ReturnsRecords = False  ''avoid 3065 error
    qdef.Execute
    qdef.Close

    Set qdef = Nothing
End Sub

Answer 1

如果运行了，但没有到最后，那么很可能不是权限问题，而是超时问题

你可以做一个：

debug.print qdef.ODBCTimeout 

了解您当前的超时值是多少。

然后只需增加足够的秒数即可完成存储过程：

Public Sub Command0_Click()
    Dim qdef As DAO.QueryDef
    Set qdef = CurrentDb.CreateQueryDef("")

    qdef.Connect = CurrentDb.TableDefs("[ASBUILT_LIST]").Connect
    ' --------------- Define TimeOut in Seconds ----------------
    qdef.ODBCTimeout = 2000 
    ' ----------------------------------------------------------        
    qdef.SQL = "EXEC Update_Asbuilt2"
    qdef.ReturnsRecords = False  ''avoid 3065 error
    qdef.Execute
    qdef.Close

    Set qdef = Nothing
End Sub