Mega Code Archive
Ms access 2000 [jet engine 4] databas i nasıl sıkıştırabilirm ve onarabilirm
<![CDATA[
MS Access 2000 (Jet Engine 4) databas i nasıl sıkıştırabilirm ve onarabilirm?
Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var
oJetEng : JetEngine;
begin
sOldMDB := sProvider + 'Data Source=' + sOldMDB;
sNewMDB := sProvider + 'Data Source=' + sNewMDB;
try
oJetEng := CoJetEngine.Create;
oJetEng.CompactDatabase(sOldMDB, sNewMDB);
oJetEng := Nil;
Result := True;
except
oJetEng := Nil;
Result := False;
end;
end;
Örnek :
if CompactAndRepair('e:\Old.mdb', 'e:\New.mdb') then
ShowMessage('İşlem Başarılı.')
else
ShowMessage('İşlemde Hata Oluştu.');
Önemli Not:
1- JRO_TLB unit ini uses bölümüne ekleyin.
2- Database sıkıştırılırken kimse database i açıp kullanmamalıdır.
3- Eğer JRO_TLB unit i ile ilgili Delphi hata verirse aşağıdakileri yapın
a) Delphi menüsünde Project - Import Type Library i seçin
b) "Microsoft Jet and Replication Objects 2.1 Library" i bulun.
c) Install butonunu tıklayın.
d) Programınızı tekrar derleyin
]]>