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

Question

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

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

为了获得更多的权限，此存储过程用于在空表中插入记录，当我从MS Access中插入记录时，它应该插入1000条记录，但它插入970条记录，然后停止。

我的存储过程有一个用于插入记录的select查询，现在我已经将这个简单的select查询更改为一个联合查询，因为我在存储过程的设计中更改了这个查询，它在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