+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إعادة ترقيم (/showthread.php?tid=11459)
إعادة ترقيم - appakar - 04-08-2021
السلام عليكم
كيف يتم إعادة ترقيم حقل من نوع (auto number) الى 1 بعد تفريغ قاعدة البيانات؟
RE: إعادة ترقيم - sofiane201 - 06-08-2021
قاعدة البيانات التي تستخدمها؟
RE: إعادة ترقيم - appakar - 06-08-2021
نوع قاعدة البيانات Ms-ACCESS
RE: إعادة ترقيم - Mr.DOS - 06-08-2021
سلام عليكم
بعد ما تقوم بعملية حذف البيانات
استعمل
كود :
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;RE: إعادة ترقيم - appakar - 08-08-2021
شكرا لك الاخ Mr.DOS