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;