我执行一个简单的UPDATE tblTable SET DataSet=3
事务内部,而是试图运行几秒钟后,我收到了3035 -系统资源超出。 有〜30K行。
Dim db As DAO.Database, wrk As DAO.Workspace, errCount As Long, stSQL As String
Set db = CurrentDb
Set wrk = DBEngine.Workspaces(0)
errCount = 0
wrk.BeginTrans
Debug.Print "There are no existing entries in the selected DataSet, preparing to proceed..."
' - -- ---
stSQL = "UPDATE tblImportCleaned SET DataSetID=" & Me.lstDataSets
db.Execute stSQL, dbSeeChanges
If db.RecordsAffected < 1 Then errCount = errCount + 1
Me.frmImport_CleanedSubform.Requery
' - -- ---
If errCount = 0 Then
If MsgBox("There were no errors, would you like to COMMIT the changes?", vbYesNo) = vbYes Then
wrk.CommitTrans
Else
wrk.Rollback
End If
Else
wrk.Rollback
End If
wrk.Close
任何想法,为什么这种情况正在发生以及我如何避免它,请。