ضغط واصلاح قاعدة البيانات

السلام عليكم : ارجو من الاخوة في المنتدى المشاركة ، اين المشرفين والاعضاء الفعالين .. ارجو منكم الرد مع الشكـــر

السلام عليكم :

كيف الحال ... يؤسفني انه لم يجبني احد في المنتدى أين الاخ سويفت ، الاخ زكيري ، الاخ ناجي والباقون المبدعون .. السؤال واضح ومرفق مثال اتمنى ان يجاوبني احد ونناقش الموضوع الموضوع فات عليه اسابيع ... اتمنى الاجابة من اي احد والســــــــــلام .

السلام عليكم .. معقولة لا يوجد احد يرد .. الرجاء الرد واحياء المنتدى

السلام عليكم

أخي الكريم استخدم التابع التالي على القاعدة التي تريد

سأقوم بإرفاق مثال للتوضيح أكثر

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  comobj;

function compactandrepair(db: string): boolean;
var
  v : olevariant ;
begin
  result := true;
  try
    v := createoleobject('jro.jetengine');
    try
      v.compactdatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+db,
                        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+db+'x;Jet OLEDB:Engine Type=5');
      deletefile(db);
      RenameFile(db+'x',db);
    finally
      v := unassigned;
    end;
  except
    result := false;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit1.Text := opendialog1.FileName ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if CompactAndRepair(edit1.Text) then
    showmessage('Mission has been completed')
  else
    showmessage('Mission has not been completed') ;
end;

end.

أرجو الإستفادة

MDB.rar