[RISOLTO] - Compattare un DB Ms Access

[giacomarko]

Buongiorno a tutti,

Vorrei poter eseguire la compattazione di un DB Ms Acces via codice, in Delphi questo era possibile e lo avevo fatto con poche righe di codice,
essendo ora passato a Lazarus per ho cercato di replicare lo stesso procedimento in Lazarus 2.2.0 ma senza successo, certo potrei comunque tenere in vita una piccola applicazione Delphi anche se per il resto uso Lazarus...

esempio delphi:

function CompactAndRepair(DB: string): Boolean; {DB = Path to Access Database}
var
  v: OLEvariant;
begin
  Result := True;
  try
    v := CreateOLEObject('JRO.JetEngine');
    try
      V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB,
                        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+'x;Jet OLEDB:Engine Type=5');
      DeleteFile(DB);
      RenameFile(DB+'x',DB);
    finally
      V := Unassigned;
    end;
  except
    Result := False;
  end;
end;

C'è un problema con l'istruzione ... CreateOleObject('JRO.JetEngine');

Ottengo il seguente messaggio:

Il progetto ... ha sollevato una eccezione di classe "EOleSysError con messaggio: Interfaccia non registrata.

Non c'è modo di aggirare il problema?

Grazie

[DragoRosso]

Forse dico una stupidaggine: non è che stai lavorando a 64 bit ? Perchè da quello che sò, il JRO.JetEngine è istanziato solo a 32 bit (gira in WOW64).

Questo articolo ti spiega che devi lavorare con ACE (sopratutto se devi sbiancare il tuo database  ): https://stackoverflow.com/questions/14401729/difference-between-microsoft-jet-oledb-and-microsoft-ace-oledb

Edit: ho fatto qualche prova anche con Delphi, e ti confermo che a 64 bit ad un database MSAccess non ci accedi con il classico JET. Nonostante a design time tutto funzioni (ovviamente, è a 32 bit), a runtime non gira. Anche negli ODBC il driver è presente solo nella versione a 32 bit. A 64 bit c'è solo MSSQL.

Dal sito ufficiale Microsoft puoi scaricarti l'ultimo driver di accesso ACE (ACE 16.0) versione più compatibile con JET: https://www.microsoft.com/it-IT/download/details.aspx?id=54920

C'è sia la versione a 64 bit che a 32 bit.

Ciao

[giacomarko]

Ciao DragoRosso,

innanzitutto grazie per la risposta, e secondo, mi scuso per il ritardo nel risponderti a mia volta, sono stato un po in giro ;-)

dunque, illustro meglio la situazione attuale, forse può aiutare a capire meglio il problema:

- applicazione sviluppata interamente con Lazarus 2.2.0 a 64bit,
- la stessa applicazione gira su un PC windows a 64bit,
- sulla macchina non c'è MS Office, per ovviare ho installato AccessRuntime_X64.exe,
- il DB utilizzato dall'applicazione è un MSACCESS *.accdb,
- le operazioni di accesso, scrittura, lettura e cancellazione funzionano regolarmente, per inciso, ho utilizzato i componenti standard di Laxarus (niente ZeoLib... o altro)

premesso quanto sopra, volevo abbinare (come ho fatto per altre applicazioni, ma sviluppate in Delphi XE2) la funzionalità di compattazione del database,
cosa che ha sempre funzionato anche su PC a 64bit, a questo punto ho semplicemente preso il codice di Delphi e ho provato a compilarlo, tutto ok, chiaramente quando eseguo per la compattazione, ottengo l'errore riportato.

quindi, se ho capito bene quanto quanto mi hai scritto,

questa è l'istruzione che genera l'errore in quanto in ambiente 64bit, non esiste la libreria Jet.OLEDB

  V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB,
                        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+'x;Jet OLEDB:Engine Type=5');

per inciso, quando parli di 64bit, intendi il compilatore, cioè applicazione compilate a 32 o a 64bit, indipendentemente che siano eseguite su macchine a 64bit, corretto?

a questo punto le possibili soluzioni sarebbero:

a - il downgrade del database alla versione ACCESS 2000 (*.mdb)

b - installare accessdatabaseengine_X64.exe e modificare il provider in Microsoft.ACE..... ??

o non ho capito una cippa?!

grazie

[DragoRosso]

Quando parlo di 32 o 64 bit mi riferisco all'applicazione, ossia al progetto compilato.

L'eseguibile creato non può in alcuna maniera usare DLL o componenti runtime con una configurazione diversa dalla sua: un eseguibile a 64 bit può accedere solo a DLL a 64 bit, così come a ActiveX (OLE) a 64 bit. Invece un eseguibile a 32 bit può accedere solo a DLL a 32 bit e OLE a 32 bit.

Siccome non esiste la versione JET a 64 bit devi passare a ACE che esiste sia in versione 32 e 64 bit.

La versione di cui ti ho postato il link è la versione dichiarata da Microsoft più compatibile a JET.

Ciao

P.S:

a questo punto le possibili soluzioni sarebbero:
a - il downgrade del database alla versione ACCESS 2000 (*.mdb)
b - installare accessdatabaseengine_X64.exe e modificare il provider in Microsoft.ACE..... ??

La scelta dipende dalle funzionalità richieste dalla tua applicazione. Ad esempio tu richiedi di eseguire una compattazione del DB: in Access 2000 è possibile farlo con standard "SQL" o devi usare sempre un comando OLE ? Perchè non penso esista a oggi un OLE a 64 bit che acceda a un database .mdb (a parte lo stesso ACE indicato).
Rimarresti con la stessa problematica.

Il consiglio è quello di usare le tecnologie più "moderne".

[giacomarko]

Dopo che ti ho risposto (e prima di leggere il tuo ultimo post) mi sono messo a fare qualche prova, e tutto combacia.

- l'applicazione Delphi che avevo compilato a 32 bit, compatta correttamente i DB Access versione 2000 ma va in errore con la versione 2016, da qui la prima idea di pensare ad un downgrade del DB...

ma ...

- l'applicazione Lazarus compilata a 64bit, va in errore su entrambi.


Quindi... non c'è downgrade che tenga

francamente non mi pare il caso di tornare a compilare a 32 bit, la compattazione ha anche la funzione di sistemare eventuali errori di accesso (molto rari, ma accadono), di conseguenza se non si può accedere... non si possone eseguire SQL..

proverò a dare un occhio a questo ACE... spero che sul come utilizzarlo in Lazarus, ci sia qualche cosa nelle wiki o in rete.

Grazie infinite !!

M

[giacomarko]

Riprendo questo post dopo un po di tempo, avendo trovato la soluzione la condivido, anche se poco utilizzato MS Access potrebbe venire utile a qualcuno.

@DragoRosso,
ho seguito le tue indicazioni ma senza riuscire a risolvere (probabilmente per colpa mia), devo dire però che il driver Microsoft.ACE.OLEDB.12.0 mi ha permesso poi di collegarmi e lavorare anche su Access .accdb, alla fine il problema della compattazione dei DB Access l'ho risolta utilizzando DAO.DBEngine.120.
Ovviamente l'ho testato sia su DB 2000-2003 (.mdb) che su DB 2007-2013 (.accdb),
sia DB protetti da password che senza e inclusa versione cifrata,
verificato dimensioni iniziali e finali dopo la compattazione, confrontando i risultati ottenuti sia eseguendo il comando all'interno di Access, che con questo codice,

stesso risultato   

ecco il codice sorgente (relativo solo alla chiamata OLE, la parte mancante del programma è una banalità:

Codice: [Seleziona]

procedure TForm1.BitBtnCompactClick(Sender: TObject);
const
  ServerName = 'DAO.DBEngine.120';
var
  Server: Variant;
  Duration : TDateTime;
begin
  // DB da compattare...
  if ( OldDBName = '' ) then begin
    ShowMessage('Selezionare i DB da compattare.');
    Exit;
  end;
  if MessageDlg( 'Prosegui con la compattazione del DB ?.', mtInformation, [mbOk, mbCancel],0) = mrCancel then exit;

  Password := Edit1.Text;
  if Password = 'none' then Password := '';

  Screen.Cursor := crHourglass;
  try
    Duration := Now();

    try
      Server := CreateOleObject(ServerName);
      // l'ultimo parametro è la password per accedere al DB (se impostata) ho testato che se il DB non ha password la si può lasciare vuota e funziona lo stesso
      Server.CompactDatabase( OldDBName, NewDBName, , , ';pwd=dago');

      Label2.Caption := 'Operazione completata con successo in : ' +TimeToStr(Now() - Duration) ;
      ShowMessage('Il database è stato compattato regolarmente.');

    except
      Label2.Caption := 'Errore nell''esecuzione del comando !';
      ShowMessage('Si è verificato un errore durante la compattazione, ' + #13 + #13 +
                  'verificare se la password è stata impostata correttamente');
    end;
  finally
    Screen.Cursor := crDefault;
  end;
  // questo l'ho messo perchè mi era utile per vedere il prima e dopo il processo, 
  if CheckBoxDeleteOldFile.Checked then begin
    DeleteFile( OldDBName);
    RenameFile( NewDBName, OldDBName);
  end;
end;