04-08-2021, 05:45 PM
06-08-2021, 03:42 PM
قاعدة البيانات التي تستخدمها؟
06-08-2021, 07:26 PM
نوع قاعدة البيانات Ms-ACCESS
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;08-08-2021, 02:42 PM
شكرا لك الاخ Mr.DOS