I am using a Delphi procedure to Compact Access Database
Code sniphet of procedure is:
procedure CompactDatabase(pFullDatabasePathName : string; pLoginName : string = ''; pPassword : string = ''; pSystemDb : string = '');
var
JE : TJetEngine;
sdbTemp : String;
sdbTempConn : String;
sdbSrcConn : String;
loginString : String;
systemDbString: String;
compactDone : Boolean;
const
SProviderAccess2007 = 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=';
SEngine = ';Jet OLEDB:Engine Type=';
Access2007EngineType = '5';
begin
loginString := '';
if (pLoginName <> '') then
loginString := ';User Id= ' + pLoginName + '; Password = ' + pPassword;
if ((pLoginName = '') and (pPassword <> '')) then
loginString := ';Jet OLEDB:Database Password = ' + pPassword;
systemDbString := '';
if (pSystemDb <> '') then
systemDbString := ';Jet OLEDB:System Database = ' + pSystemDb;
try
compactDone := False;
JE := TJetEngine.Create(Application);
sdbTemp := ExtractFileDir(pFullDatabasePathName) + '\TEMP' + ExtractFileName(pFullDatabasePathName);
if FileExists(sdbTemp) then
DeleteFile(sdbTemp);
//Access 2007
if not compactDone then
begin
try
sdbSrcConn := SProviderAccess2007 + pFullDatabasePathName + loginString + systemDbString + SEngine + Access2007EngineType;
sdbTempConn := SProviderAccess2007 + sdbTemp + SEngine + Access2007EngineType;
JE.CompactDatabase(sdbSrcConn, sdbTempConn);
compactDone := True;
except
end;
end;
if not compactDone then
Raise Exception.Create('Compacting of database: ' + pFullDatabasePathName + 'failed!');
if (not DeleteFile(pFullDatabasePathName)) then
Raise Exception.Create('Compacting failed because cannot delete database: ' + pFullDatabasePathName);
if (not RenameFile(sdbTemp, pFullDatabasePathName)) then
Raise Exception.Create('Compacting failed because cannot overwrite database: ' + pFullDatabasePathName + ' by temporary compacted database: ' + sdbTemp);
if FileExists(sdbTemp) then
DeleteFile(sdbTemp);
finally
JE.FreeOnRelease;
end;
end;
The outcome of this procedure is the Compact Access Database, but in Access 2002-2003 format.
I am unable to get the problem area. Is some dll or regsitry settings needs to be renewed? Please help...