06-08-2021, 10:58 PM
سلام عليكم
بعد ما تقوم بعملية حذف البيانات
استعمل
بعد ما تقوم بعملية حذف البيانات
استعمل
كود :
function CompactAndRepair(myDB: string): Boolean; {my DB : مسار قاعدة البيانات}
var
v: OLEvariant;
begin
Result := True;
try
v := CreateOLEObject('JRO.JetEngine');
try
V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+myDB,
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+myDB+'x;Jet OLEDB:Engine Type=5');
DeleteFile(myDB);
RenameFile(myDB+'x',myDB);
finally
V := Unassigned;
end;
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CompactAndRepair('C:\project\databas.mdb');
end;
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر