Acess錯誤：”檔案分享權限設定鎖定數溢出”

如果大家在操作大量資料時，特別是在年終結算統計時，發現這種錯誤：
－－－－－－－－－－－－－
"檔案分享權限設定鎖定數溢出"
－－－－－－－－－－－－－
原因如下：
Access資料庫，同時操作大量記錄(9500條以上)時報錯。
Microsoft JET Database Engine 錯誤 '80040e21'
解決辦法：
修改註冊表
[HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Jet/4.0/Engines/Jet 4.0]
"MaxLocksPerFile"=dword:05f5e0ff
將MaxLocksPerFile預設的十進位值9500改大即可。呵呵，我改成了十進位的99999999
－－－－－－－－－
解決辦法：
－－－－－－－－－－－－－－－－－
     Reg :=TRegistry.Create;
     try
       Reg.RootKey := HKEY_LOCAL_MACHINE;      //尋找註冊表，
       If Reg.OpenKey('/SOFTWARE/Microsoft/Jet/4.0/Engines/Jet 4.0', False) then
         Reg.WriteInteger('MaxLocksPerFile',99999999);
     except
       Reg.Free;
     end;

或：

try
          Reg := TRegistry.Create;
          Reg.RootKey := HKEY_LOCAL_MACHINE;
          keyname := '/SOFTWARE/Microsoft/Jet/4.0/Engines/Jet 4.0';
          if Reg.OpenKey(KeyName,false) then
          begin
            if reg.ValueExists('MaxLocksPerFile') then
              Reg.WriteInteger('MaxLocksPerFile',99999999); 
          end;
        finally
          Reg.Free;
        end;