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 ;D ;D ;D): 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
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:
--- Citazione da: giacomarko - Ottobre 07, 2022, 02:24:23 pm ---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..... ??
--- Termina citazione ---
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.