COMPACTER UNE BASE DE DONNÉE ACCESS

Commentaire de intik le 27/11/2007 16:38:25

Coucou

Merci pour ton code sa m'as évité une aprem de recherche...

J'ai rencontrer des problemes en utilisant ton code a savoir : la fonction qui renvoie False a chaque fois alors que le compactage se fait...

j'ai relu ton code et j'ai changé la fin comme sa  

  try
    JetEngine.CompactDatabase(tmpProvider + DB_PATH,tmpProvider + TEMP_DB_PATH);
    DeleteFile(DB_PATH);
    RenameFile(TEMP_DB_PATH,DB_PATH);
    JetEngine.Free;
    Result := True;
  except
    Result:= False;
    exit;
  end;

au lieu de

  try
    JetEngine.CompactDatabase(tmpProvider + DB_PATH,tmpProvider + TEMP_DB_PATH);
    DeleteFile(DB_PATH);
    RenameFile(TEMP_DB_PATH,DB_PATH);
  except
  begin
    Result:= False;
    exit;
  end;
    Result := True;
    JetEngine.Free;
  end;


sa me semble plus correct de le faire comme j'ai fait... enfin a vous de me dire...

je suis sous "Delphi 2007 Entrep Update 2" le dernier quoi