السلام عليكم ورحمة الله وبركاته
اخوتي الأفاضل .. صباح الخير
محتاج كود لحذف سجلات الجدول فلدي تقريبا 30 جدول وأحتاج لحذف بياناتها
الذي اعرفه هو عمل استعلام حذف وبالتالي احتاج ل30 استعلام ( كثيييييييييييييير )
فقلت بالكود افضل ولكن لم اعرف كيف ابحث عن هذا الكود
فقلت استشير اساتذتي الكرام
تقبلوا فائق المودة والإحترام
السلام عليكم
اخي الفاضل
المثال المرفق ربما يكون فيه ما تريد حيث انه يقوم بقرائة الجداول و الغاء محتوياتها واحد بعد الاخر
ليعمل المثال بشكل جيد استورد فيه الجداول الذي تريد و اذا اعجبك انقله الى برنامجك
المثال عباره عن ملفين اكسس
يا عيالي كلكم .... افطنوا في حالكم
التنازع ذلكم .... والتصافي منفعه
المحتاج امشوا بحقه .... لو بدت منه المشقه
وانكثر بالقلب دقه .... طوبيتك واشعله
اخي الكريم
السلام عليكم اخي الكريم
قم بفتح الملف
اضغط حذف جميع السجلات
سيتم تفريغ كل الجداول تلقائا
شرح الطريقة
1- التاكد من الاستعلام 1 يحتوي كل اسماء الجداول
حيث انه من جدوا MSysopject وهو جدول نظام لملف قاعدة اليانات وهو مخفي
2- بالنموزج قمنا بعمل زر امر يقوم بفتح هذه الاستعلام فى الذاكرة كــ recordSet
ويينفذ ايضا الامر الخاص بتشغيل عبارة SQL وهذه العبارة Delete حذف كل السجلات من الجدول الاول فى ال RecordSet
ثم ينتقل للجدول التالي وهكذا...
الرقم 4 بالكود
For xx = 1 To 4
عبارة عن عدد الجداول .. يجب تغييره ليلائم عدد اسماء الجداول بالاستعلام Query1
اخوك فى الله
السلام عليكم اخي Human73
لم اري ردك الجميل جدا الا بعد رفع الرد بتاعي
علي العموم هي نفس الفكرة ولكن اسلوبك اجمل بكتير وممتاز جدا
بارك الله فيك والي الامام
اخوك فى الله
تم تعديل هذه المشاركة بواسطة ahamied في 20 يوليو 2008 في 13:10
Microsoft Certified DataBase Administrator MCDBA
اشكركم جميعا
الاخ احمد كنت في طلبي السابق بما يخص الاستيراد
كن ارى انه عند الستيراد يقوم بحذف البيانات الصباقة تلقائي
ولم استطع افهم الطريقه