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ı: @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
Hiç arama. 
http://www.clubdelphi.com/foros/showthread.php?t=45859

procedure CompactarBaseDeDatos (BaseDeDatos,contrasena : string);
var DBEngine : OLEVariant;
Begin
try
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
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
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;
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 377 Dün, Saat: 21:14
Son Yorum: adelphiforumz
Bug Filter property cannot be used for detail tables, Delphi 7 [ÇÖZÜLDÜ] SenayAkgun 9 249 11-02-2019, Saat: 11:56
Son Yorum: SenayAkgun
  Delphi'de Veritabanı İle Kullanıcı Giriş Ekranı Halil Han Badem 3 1.811 10-10-2017, Saat: 08:19
Son Yorum: tgural



Konuyu Okuyanlar: 1 Ziyaretçi