- Katılım
- 3 Şubat 2014
- Mesajlar
- 1,744
- Tepkime puanı
- 0
- Puanları
- 0
Bir Access database'i nasıl sıkıştırılır?
Function Compactmdb(mdbFileName:String): Boolean;
var db : OLEVariant;
tempFile : String;
begin
result := true;
try
screen.cursor := crSQLWait ;
db := GetDAO_Object ;
result := false;
try
tempFile := ExtractFilePath (mdbFilename) + 'msaTemp.mdb';
db.CompactDataBase(mdbFIleName,tempFile);
DeleteFile(mdbFileName);
RenameFile (tempFile,mdbFileName);
Result := true;
Except on EOLEexception do
Result := false;
end
finally
db := Unassigned ;
screen.cursor := crDefault ;
end;
end;
Function Compactmdb(mdbFileName:String): Boolean;
var db : OLEVariant;
tempFile : String;
begin
result := true;
try
screen.cursor := crSQLWait ;
db := GetDAO_Object ;
result := false;
try
tempFile := ExtractFilePath (mdbFilename) + 'msaTemp.mdb';
db.CompactDataBase(mdbFIleName,tempFile);
DeleteFile(mdbFileName);
RenameFile (tempFile,mdbFileName);
Result := true;
Except on EOLEexception do
Result := false;
end
finally
db := Unassigned ;
screen.cursor := crDefault ;
end;
end;
