Access - comando para empacotar

Top  Previous  Next

 

Function Compactmdb(mdbFileName:String): Boolean;

var 

  db : OLEVariant;

  tempFile : String;

begin

  result := true;

   try

    screen.cursor := crSQLWait ;

    db := GetDAO_Object ; // GET THE DATABASE OBJECT

    result := false;

   try

    // CREATE A TEMPORARY FILE

    tempFile := ExtractFilePath (mdbFilename) + '\msaTemp.mdb';

    // COMPACT THE FILE INTO THE TEMPORARY FILE

    db.CompactDataBase(mdbFIleName,tempFile);

    // DELETE THE OLD FILE

    DeleteFile(mdbFileName);

    // RENAME THE NEW FILE

    RenameFile (tempFile,mdbFileName);

    Result := true;

   Except on EOLEexception do

    Result := false;

   end

  finally

   db := Unassigned ;

   screen.cursor := crDefault ;

  end;

end;

 

função encontrada no endereço

http://delphidao.finalfiler.com/index1.htm