Problema em compactar o banco de dados Access 2007, após compactar o banco de dados de acesso 2007, é convertido para acessar o formato 2002-2003
-
27-09-2019 - |
Pergunta
Estou usando um procedimento Delphi para compactar o banco de dados de acesso
O Sniphet de Procedimento de Código é:
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;
O resultado deste procedimento é o banco de dados de acesso compacto, mas no formato Access 2002-2003.
Não consigo obter a área problemática. Algumas configurações de DLL ou Regsitry são necessárias para ser renovada? Por favor ajude...
Solução
Obrigado 4 seu apoio, encontrei uma solução de trabalho para esse problema e descobri que vale a pena compartilhar com você.
Agora, em vez de usar o Jet 4, agora estou usando 'Dao.dbengine.120'.
//Access 2007
if not compactDone then
begin
try
// DaoAccess2007 is OleVariant Type
DaoAccess2007 := CreateOleObject('DAO.DBEngine.120');
DaoAccess2007.CompactDatabase(pFullDatabasePathName,sdbTemp);
compactDone := True;
except
end;
end;
O resultado são os bancos de dados compactados no formato Access 2007. Felicidades!
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow