Delphi 7 ile ACCDB Dosyalarına Compact İşlemi [Çözüldü]

[SenayAkgun]

(13-12-2018, Saat: 07:08)forumcuali Adlı Kullanıcıdan Alıntı: @SenayAkgun  Kardeşim başlığın başına [ÇÖZÜLDÜ] yazarsan bu konudan muzdarip olanlarada bi yol gösterilmiş olur. @Invasion  kardeşim sanada teşekkür ediyorum bişey daha öğrendik.
@SimaWB  dediği gibi jet adında oluşturduğun jetengine nesnesini hiç bi yerde kullanmamışsın orası fazladan yazılmış...

Çözüldü ibaresini yazmayı düşünemedim; ama sağolsun birileri düzeltmiş.

Fazla olan bölümleri kendim çıkardım, gayet de güzel çalışıyor, herkese teşekkürler.

[muratcelik64]

http://www.clubdelphi.com/foros/showthread.php?t=45859

procedure CompactarBaseDeDatos (BaseDeDatos,contrasena : string);
var DBEngine : OLEVariant;
Begin
 try
// bu kısım access in daha önceki versiyonları için olabilir.
   DeleteFile(BaseDeDatos + '2');
   DbEngine := CreateOleObject('Dao.DbEngine.35');
   DbEngine.CompactDataBase(BaseDeDatos, BaseDeDatos + '2', NULL, 0, ';pwd='+contrasena);
   DeleteFile(BaseDeDatos);
   RenameFile(BaseDeDatos + '2', BaseDeDatos);
 except
   try
// Bu kısım *.mdb veritabanını compact ediyor.
     DeleteFile(BaseDeDatos + '2');
     DbEngine := CreateOleObject('Dao.DbEngine.36');
     DbEngine.CompactDataBase(BaseDeDatos, BaseDeDatos + '2', NULL, 0, ';pwd='+contrasena);
     DeleteFile(BaseDeDatos);
     RenameFile(BaseDeDatos + '2', BaseDeDatos);
   except
     try
// Bu kısım *.accdb veritabanını compact ediyor. 
       DeleteFile(BaseDeDatos + '2');
       DbEngine := CreateOleObject('Dao.DbEngine.120');
       DbEngine.CompactDataBase(BaseDeDatos, BaseDeDatos + '2', NULL, 0, ';pwd='+contrasena);
       DeleteFile(BaseDeDatos);
       RenameFile(BaseDeDatos + '2', BaseDeDatos);
     finally
     end;
   end
 end;
end;

*.accdb ile bağlantı kuramıyorsanız
https://www.microsoft.com/en-us/download/details.aspx?id=13255