كود يقوم بعملية اصلاح قاعدة الاكسس بالدلفي

مشكوووور يأبو أحمد ...:)

الكود جميل وينهضم :D

شكراً لردك

اصبح الكود مكتملا بهذه الطريقة:

var 
  dao: OLEVariant;
begin
  dao := CreateOleObject('DAO.DBEngine.35');
  dao.CompactDatabase('C:asmm.mdb',
'C:asbaseName.mdb');
   DeleteFile('C:asmm.mdb');
   RenameFile ('C:asbaseName.mdb','C:asmm.mdb');
end;

حيث يثوم باصلاح القاعدة وحذف القديمة ثم اعادة مسمى القاعدة الجديدة الى مسمى القاعدة القديمة.

تحياتي ...... ونامل المشاركة من الاخوان.

هذا اصل الكود بدون اكواد المنتدى:

var

dao: OLEVariant;

begin

dao := CreateOleObject('DAO.DBEngine.35');

dao.CompactDatabase('C:asmm.mdb',

'C:asbaseName.mdb');

DeleteFile('C:asmm.mdb');

RenameFile ('C:asbaseName.mdb','C:asmm.mdb');

end;