المشاركات : 64
المواضيع 23
:
: 1
الإنتساب : Aug 2019
السلام عليكم
كيف يتم إعادة ترقيم حقل من نوع (auto number) الى 1 بعد تفريغ قاعدة البيانات؟
المشاركات : 145
المواضيع 1
:
: 41
الإنتساب : Aug 2019
قاعدة البيانات التي تستخدمها؟
المشاركات : 64
المواضيع 23
:
: 1
الإنتساب : Aug 2019
نوع قاعدة البيانات Ms-ACCESS
المشاركات : 476
المواضيع 0
:
: 217
الإنتساب : Apr 2011
سلام عليكم
بعد ما تقوم بعملية حذف البيانات
استعمل
كود :
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;
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر
المشاركات : 64
المواضيع 23
:
: 1
الإنتساب : Aug 2019
