Tekil Mesaj gösterimi
Alt 18 Mart 2015, 14:06   #1
Çevrimiçi
Kaf_Dağı Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
mdb dosyası onarma




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Öncelikle ImportTypeLibrary den Microsoft Jet and Replication Objects 2.6 Library, Version 2.6, kütüphanesini projenize dahil etmeniz yada install yaparak component palete yerleştirmeniz gerekir.Varsayılan ayarlarla kurulursa ActiveX sekmesine gelir. procedure Tfrmana.Button1Click(Sender: TObject); var dbSrc: WideString; //kaynak yolu dbDest: WideString; //hedef yolu dbyol: WideString; //exe yolu Je: TJetEngine; const //bu da dizi cümlesi SProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=Passwordunuzuyazin;Data Source='; begin datmodul.connection1.Connected := False; dbyol := extractfilepath(application.ExeName); //exe yolu dbSrc := SProvider + dbyol + 'Data.mdb'; //sıkışacak dosya dbDest := SProvider + dbyol + 'compData.mdb'; //sıkıştırılmış dosyanın alacağı ad ve yer if FileExists(dbyol + 'compData.mdb') then //eğer aynısı varsa begin DeleteFile(dbyol + 'compData.mdb'); //önce sil end; Je := TJetEngine.Create(Self); try JE.CompactDatabase(dbSrc, dbDest); //sonrada sıkıştır //önce eski şişmiş dosyaları sil DeleteFile(dbyol + 'Data.mdb'); //önce sil //şimdide adlarını değiştir. RenameFile(dbyol + 'compData.mdb', dbyol + 'Data.mdb'); datmodul.connection1.Connected := true; finally JE.Free; end; end Bu kütüphane C:Program FilesCommon FilesSystemadomsjro.dll dosyasındadır.Listeden silinmiş olması önemli değil.Tekrar aşağıdaki adımları tekrar ederek ekleyebilirsiniz. ---Project-Import Type Lİbrary ---Add Butonuna Tıklayıp açılan pencereden yukarıda yolunu yazdığım msjro.dll dosyasını ekleyiniz.Listeye eklenecektir. ---Sonra bu kütüphane seçili iken Install butonunu tıklayınız. ---Açılan pencerede IntoNewPackage sekmesini tıklayın. ---Sonra Browse düğmesini tıklayarak oluşacak componentin dpk dosyasınıda bir isim vererek kaydedelim.Bir daha kurmak istediğimizde direk bu package dosyasından kurabiliriz. ---Description kısmı opsiyoneldir.İsterseniz paketinizle ilgili bir açıklama yazabilirsiniz. ---Sonra açılan Confirm başlıklı pencerede BPL dosyasının oluşturularak komponentin install edilip edilmeyeceği sorusuna Yes dedikten sonra gidip ActiveX sekmesinde ilgili komponentlerin geldiğini görebilirsiniz.


__________________
SusKun ve Sessiz Mürekkep...


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan sohbet odaları