كيف افرغ قاعدة البيانات من نوع absolute

[medreg]

لقد وضعت هذا الكود في زر
abstable1.delete;
لكن المشكلة انه بمجرد ما اضغط على اضافة سجل جديد يعطيني الرقم ما بعد الرقم الذي كان في قاعدة البيانات قبل افراغها
يعني كانت قتعدة البيانت تحتوي على 5 سجلات وعندما افرغتها تطهر لي فارغة اي لم يبقى بها اي سجل
وعندما اردت التسجيل بها من جديد واقصد التسجيل التلقائي اعطتني رقم السجل 6
علما ان نوع الحقل الموجود هو (+)
فكيف لي ان افرغ قاعدة البيانات من هذا النوع على ان يكون نوع الحقل (+) وفي حالة اضافة سجل على انها فارغة تعطيني رقم 1وجزاكم الله عنا كل خير

[medreg]

لقد وجدت الحل من طرف احد الأصدقاء بأحد المنتديات
واردت ان اضعه هنا بالمنتدى من اجل تعميم الفائدة

كود :

with DM Do begin ABSTable1.Close; ABSTable1.EmptyTable; ABSTable1.Open; end;

والله ولي التوفيق

[AL-MOB4RM3G]

واردت ان اضعه هنا بالمنتدى من اجل تعميم الفائدة

جزاك الله خيرا على هذا,
القاعدة تقول, تعلم و علّم ما تعلمت,

والسلام عليكم

[medreg]

بفضل نصائحكم وتوجيهاتكم احببت ان ارفع على المنتدى هذا الإنجاز البسيط
وهو عبارة عن كود لإفراغ قاعدة البيانات مع إضافة شروط
وهذ للمبتدئين مثلي ولتعم الفائدة وجزاكم الله عنا كل خير

كود :

procedure TForm1.BitBtn1Click(Sender: TObject); begin if ArabMessageDlg('هل انت متأكد من انك ترغب بافراغ قاعدة البيانات',mtWarning,mbOKCancel,0)=mrOK then begin with DM Do begin ABSTable1.Close; ABSTable1.EmptyTable; ABSTable1.Open; ABSTable2.Close; ABSTable2.EmptyTable; ABSTable2.Open; end; ArabShowMessage('تمت العملية بنجاح'); end else begin ArabShowMessage('لقد تم إلغاء عملية إفراغ المعطيات'); end; end;

الله ولي التوفيق

[AL-MOB4RM3G]

السلام عليكم

اخي الكريم, جزاك الله خيرا

اسمح لي بسؤآل عن هذه,,

PHP كود :

arabshowmessage 


PHP كود :

arabmessagedlg 


وما الخآص بها بالنسبة للعرب ؟

[gigi]

اعتقد انه مكون لاظهار الرسالة وازرارها بالعربي بغض النظر عن لغة الجهاز الافتراضية

[medreg]

هذا ناتج عن مكون الديلوق العربي عليك بإضافة الوحدة باس الي يوزيس
اضف الكلمة ADialogs في Uses الأولى
ثم اضف عبارة Arab قبل كلمة Message
والمكون في المرفقات

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
بعدما انفذ عملية إفراغ قاعدة البيانات
وانتقل الى الفورم التابعة لها اجد الديبقريد المتعلق بالداتاسورس المرتبطة بالجدول فارغة
والديبقريد المتعلق بالداتاسورس المرتبطة بالكويري غير فارغة
وهذا حتى اخرج من البرنامج واعد تشغيله من جديداجد الديبيقريد المتعلق بالداتاسورس المرتبطةبالكويري فارغ
**** ما حل هذه المشكلة

[محمد عبد العزيز]

الديبقريد المتعلق بالداتاسورس المرتبطة بالكويري غير فارغة

طبيعي لان الQuery تم تنفيذه والقاعدة غير فارغة

قبل إفراغ القاعدة عليك غلق كل الجداول والQuery بالقاعدة
ثم اعد فتحها بعد الافراغ
وبالتوفيق

[medreg]

شكرًا جزيلاً
لكن كيف يتم ذلك
في أي حدث تكتب الكود
وهل كود غلق الجداول والكويري هو هذا

ABSTable1.Close;
ABSQuery1.Close;