2个办法解决文件共享锁定数溢出3052错误的问题

• • 请教：局域网共享access

引用 haemon 2005-5-16 20:34

最好是附上数据库

引用 tmtony 2005-5-19 06:55

有两个方法解决:

1.修改注册表 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\Jet 3.5 (如果是4.0版本改为4.0) 将MaxLocksPerFile改到足够大 (但注意也不要太贪心

2.在运行你的程序之前运行下面的函数:
Sub LargeUpdate()
      On Error GoTo LargeUpdate_Error
      Dim db As Database, ws As Workspace

      ' Set MaxLocksPerFile.
      DBEngine.SetOption dbMaxLocksPerFile, 200000

      Set db = CurrentDb
      Set ws = Workspaces(0)

      ' Perform the update.
      ws.BeginTrans
      db.Execute "UPDATE LargeTable SET Field1 = 'Updated Field'", _
         dbFailOnError
      ws.CommitTrans

      db.Close
      MsgBox "Done!"
      Exit Sub

   LargeUpdate_Error:

      MsgBox Err & " " & Error
      ws.Rollback
      MsgBox "Operation Failed - Update Canceled"
      Exit Sub

   End Sub

查看全部评论(2)