Ciao ragazzi,
ritorno nuovamente su questo argomento in quanto ho scoperto il perchè dell'errore Project xxyy.exe raised exception class EOleSysError with message 'La classe non dispone della licenza per l'utilizzo', il problema stava nel richiamare la versione 3.5 anzichè la 4.0 (che utilizzo) di DAO.DBEngine.
Adesso, ho il seguente problema, definita la procedura:
codice:
procedure CompactAccessDb(DBName, TempDBName:String; NewFile:Boolean=False; Pwd:String='';NewPwd:String=#0);
nella form principale del programma, vado a richiamarla dal menu principale con:
codice:
procedure TForm1.ComprimiDB1Click(Sender: TObject);
begin
CompactAccessDb;
end;
ottengo l'errore: Not enough actual parameters.
Se invece inserisco due variabili di tipo string:
codice:
procedure TForm1.ComprimiDB1Click(Sender: TObject);
var n, m:string;
begin
CompactAccessDb(n, m);
end;
ottengo il seguente errore:
Project Project.exe raised exception class EOleSysError with message 'Stringa dell'interfaccia non valida, ProgID: "DAO.DBEngine.40"'
Inoltre, prima di implementation, ho dichiarato DBName e TempDBName variabili di tipo string ed il relativo percorso.
e grazie per l'aiuto.
RS95
@danz67: ormai desidero capire come funziona la procedura riportata nell'articolo di G. Madafferi, quindi ho scelto di non arrendermi, comunque grazie.