[Delphi] Database

[nic_sirio]

C'è un modo per sapere se un database è di Access 2000 o di Access 97.

Sto usando ADO per compattare un database e so che JRO li differenzia con Engine Type 5 e 4 rispettivamente, il problema è appunto sapere quando mettere uno e quando mettere l'altro.

[alka]

Originariamente inviato da nic_sirio

Sto usando ADO per compattare un database e so che JRO li differenzia con Engine Type 5 e 4 rispettivamente, il problema è appunto sapere quando mettere uno e quando mettere l'altro.

JRO?

[nic_sirio]

in pratica ho seguito il consiglio che mi hai dato tu l'altra volta, in cui si importa la libreria JRO e poi su usa Jet Engine.

ti copio la parte:

procedure TfrmCRMMain.miCompattaClick(Sender: TObject);

var
Motore:IJetEngine;
stError: String;
VecchioNome, NuovoNome, Vecchio, Nuovo: WideString;
n: Integer;

begin
n:=-1;
stError:='';
if Access 97 then QUI HO IL PROBLEMA!!
n:=4;
else if Access 2000 then
n:=5;
VecchioNome:=ExtractFileName(stDBcur);
NuovoNome:='temp.'+ExtractFileName(stDBcur);
Vecchio:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+VecchioNome+';'{+
'Persist Security Info=False'};
Nuovo:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+NuovoNome+';'{+
'Persist Security Info=False';}+
'Jet OLEDB:Engine Type='+n;

try
try
CopyFile(PChar(stDBcur),PChar(stDBcur+'.prov'),Fal se);
miChiudiClick(Self);
Motore:=CoJetEngine.Create;
Motore.CompactDatabase(Vecchio, Nuovo);
Motore:=Nil;
DeleteFile(VecchioNome);
RenameFile(NuovoNome,VecchioNome);
if InizializzaDb(VecchioNome, stError) then
begin
iStatoDb:=STATOLETTO;
AbilitaSalvaChiudi(True);
end
except
on E:Exception do
begin
Motore:=Nil;
CopyFile(PChar(stDBcur+'.prov'),PChar(stDBcur),Fal se);
stError:='Impossibile compattare il database: '+VecchioNome;
end;
end;
finally
if Assigned(Motore) then
FreeAndNil(Motore);
if FileExists(stDBcur+'.prov') then
DeleteFile(stDBcur+'.prov');
end;
end;

[alka]

Purtroppo non so, lavoro molto poco con Access perchè prediligo altri gestori di database in ambito professionale.