Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi 7 ile ACCDB Dosyalarına Compact İşlemi [Çözüldü]
#11
(13-12-2018, Saat: 07:08)forumcuali Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.@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.
Cevapla
#12
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

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
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Tek Seferde İlişkili Tüm Tablolarda Güncelleme Sorunu [ÇÖZÜLDÜ] SenayAkgun 15 1.204 22-02-2019, Saat: 21:14
Son Yorum: adelphiforumz
Bug Filter property cannot be used for detail tables, Delphi 7 [ÇÖZÜLDÜ] SenayAkgun 9 837 11-02-2019, Saat: 11:56
Son Yorum: SenayAkgun
  Delphi'de Veritabanı İle Kullanıcı Giriş Ekranı Halil Han Badem 3 2.352 10-10-2017, Saat: 08:19
Son Yorum: tgural



Konuyu Okuyanlar: 1 Ziyaretçi