Buscar por:

Alterando driver de acesso do access no bde

Código

Procedure ChangeAccessDLL32(Dll : String); // Altera a Propriedade do BDEDriversNativeMSACCESSDll32 

var 

  Reg : TRegistry; 

begin 

  Reg := TRegistry.Create; 

  try 

  Reg.RootKey := HKEY_LOCAL_MACHINE; 

  if Reg.OpenKey('SoftwareBorlandDataBase 

EngineSettingsDriversMSACCESSINIT', True) 

  then Reg.WriteString('DLL32',Dll); 

  finally 

  Reg.CloseKey; 

  Reg.Free; 

  end; 

end;  

//Use de preferência no OnCreate do Form ou DataModule da seguinte

ChangeACCESSDll32('IDDA3532.DLL'); // Mudando a DLL de acesso ao ACCESS