delphi4arab منتديات دلفي للعرب
كيف افرغ قاعدة البيانات من نوع absolute - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف افرغ قاعدة البيانات من نوع absolute (/showthread.php?tid=1422)

الصفحات: 1 2


كيف افرغ قاعدة البيانات من نوع absolute - medreg - 21-12-2009

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


كيف افرغ قاعدة البيانات من نوع absolute - medreg - 21-12-2009

لقد وجدت الحل من طرف احد الأصدقاء بأحد المنتديات
واردت ان اضعه هنا بالمنتدى من اجل تعميم الفائدة
كود :
with DM Do begin ABSTable1.Close; ABSTable1.EmptyTable; ABSTable1.Open; end;
والله ولي التوفيق


كيف افرغ قاعدة البيانات من نوع absolute - AL-MOB4RM3G - 21-12-2009

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

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

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


كيف افرغ قاعدة البيانات من نوع absolute - medreg - 22-12-2009

بفضل نصائحكم وتوجيهاتكم احببت ان ارفع على المنتدى هذا الإنجاز البسيط
وهو عبارة عن كود لإفراغ قاعدة البيانات مع إضافة شروط
وهذ للمبتدئين مثلي ولتعم الفائدة وجزاكم الله عنا كل خير
كود :
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;
الله ولي التوفيق


كيف افرغ قاعدة البيانات من نوع absolute - AL-MOB4RM3G - 22-12-2009

السلام عليكم

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

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

PHP كود :
arabshowmessage 

PHP كود :
arabmessagedlg 

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


كيف افرغ قاعدة البيانات من نوع absolute - gigi - 25-12-2009

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


كيف افرغ قاعدة البيانات من نوع absolute - medreg - 25-12-2009

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


كيف افرغ قاعدة البيانات من نوع absolute - medreg - 25-12-2009

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


كيف افرغ قاعدة البيانات من نوع absolute - محمد عبد العزيز - 25-12-2009

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

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



كيف افرغ قاعدة البيانات من نوع absolute - medreg - 25-12-2009

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

ABSTable1.Close;
ABSQuery1.Close;