Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kompakcija Access baze

[es] :: Pascal / Delphi / Kylix :: Kompakcija Access baze

[ Pregleda: 1682 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mzarko

Član broj: 33636
Poruke: 80
*.bisinter.net.



Profil

icon Kompakcija Access baze 07.01.2006. u 12:07 - pre 221 meseci
Kada se vrsi kompakcija Access baze pomocu dole navedene funkcije u Delphiju, a Access baza ima sifru npr. (mm) na koji nacin treba upisati sifru da bi mogla da se izvrsi kompakcija baze.

function KompakcijaBaze
(const sdbName: WideString) : boolean;
var
JE : TJetEngine;
sdbTemp : WideString;
sdbTempConn : WideString;
const
SProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=';
begin
Result:=False;
sdbTemp := ExtractFileDir(sdbName) +
'TEMP' +
ExtractFileName(sdbName);
sdbTempConn := SProvider + sdbtemp;
if FileExists(sdbTemp) then
DeleteFile(sdbTemp);
JE:= TJetEngine.Create(Application);
try
try
JE.CompactDatabase(SProvider + sdbName, sdbTempConn);
DeleteFile(sdbName);
RenameFile(sdbTemp, sdbName);
except
on E:Exception do
ShowMessage(E.Message);
end;
finally
JE.FreeOnRelease;
Result:=True;
end;
end;
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kompakcija Access baze

[ Pregleda: 1682 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.