اخواني الكرام انا اتعامل مع قاعدة بيانات اكسس واستخدمت ADOTable1 للربط.
والسؤال هل هذا الكود صحيح لتفريغ القاعدة من البيانات.
If ADOTable1.RecordCount <> 0 Then
Begin
For I:=0 To ADOTable1.RecordCount -1 do
ADOTable1.Delete;
End;
شاكرا حسن تعاونكم
السلام عليكم
استخدام DisableControls سوف يسرع من العملية، كما يمكنك عمل ذلك دون الحاجة لتعريف متغيرات
ADOTable1.DisableControls;
while not ADOTable1.Eof do
ADOTable1.Delete;
ADOTable1.EnableControls;مع تحياتي
والسلام
لا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
جزاك الله الف خير اخوي محمد.
وجمائلك كثيرة علينا
العفو أخي، واجب علينا مساعدة الناس الطيبة :)
اذا بتضيف Table1.First بعد DisableControls بيكون افضل على شان يتم التأكيد على انو الجدول في اولو
والسلام
لا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
هذا الموضوع مغلق.