کمک درباره فشرده سازی access

[sharare]

مثل همیشه به من بگویید چطوری می شه توی جدول access رکوردهای اضافی رو حذف کرد به طوری که سایز جدول بعد از حذف رکورد واقعا کم بشه.
در ضمن یک فیلدی هم هست که از نوع autonumber هست می خواهم که اونهم بعد از حذف همه رکوردها از صفر شروع بشه.
قبلا از همتون ممنونم

[m-khorsandi]

دوست عزیز،
در Access از منوی Tool->Database Utilities->Compact and Repair Database رو انتخاب کن تا حجم DB رو
کم کنه.

[m-khorsandi]

این هم یه تابع برای اینکه تو دلفی بتونین این کار رو انجام بدین:


uses
ComObj;

function CompactAndRepair(DB: string): Boolean; {DB = Path to Access Database}
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;

[vcldeveloper]

http://www.barnamenevis.org/forum/showthread.php?t=7302

[mzjahromi]

این هم یه تابع برای اینکه تو دلفی بتونین این کار رو انجام بدین:


uses
ComObj;

function CompactAndRepair(DB: string): Boolean; {DB = Path to Access Database}
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;

حالا اگه بانکمون Pass داشته باشه اونو کجا باید بنویسیم