Aşağıdaki kodu formda buldum. Access de yaptığım program ikide bir database bozuluyor bende istedimki çıkarken veya programa girerken kulandığım db onarırsam. olayı kurtarırım diye düşünüyorum. yanlız kod konusunda eksiklik var nasıl yapacağımı bilmiyorum. aşağıdaki kodu eklediğim zaman program
JetEngine undeclared hatası veriyor.
Kod: Tümünü seç
Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;Jet OLEDB:Database Password=123456;';
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; 