الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

حذف جميع السجلات دفعة واحدة

مغلق
بدأه فاطمة7 في 20 يوليو 2005 · 5 رد · 712 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله و بركاته و بعد ...

عند تحميل الفورم نريد أن تحذف جميع السجلات الموجودة في قاعدة البيانات فكتبنا الكود التالي :

Y: If t.EOF Then Exit Sub

t.Delete

t.MoveNext

GoTo Y

لقد حذفت السجلات و لكن هناك مشكلة فقد ظهر السجل الأول مع أنه محذوف (تأكدت من حذفه و حذف جميع السجلات بالدخول لقاعدة البيانات) و عندما أنهي البرنامج و أعيد تشغيله لا يظهر السجل الأول .

سؤالي هو :

كيف أجعل السجل الأول لا يظهر بدون أن أنهي البرنامج و أعيد تشغيله ؟

أي : كيف أحذف جميع السجلات دون مشاكل ؟ و لكم جزيل الشكر .

#2

عليك ان تغلق الريكورد سيت وتفتحها مرة اخري كي تحس بالتعديل

يعني تعمل

Close لها ثم

open

#3

شكرا لك أخ بلال على الإجابة ...

لقد أضفت إلى الكود السابق السطرين التاليين :

Data1.Recordset.Close

Data1.Recordset.OpenRecordset

و لكن لم يؤثر أي بقيت المشكلة قائمة .

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

#4

الحل هو أن تكتبي 

data1.refresh

بعد الكود السابق و ان شاء الله يعمل

و لكن طريقتك في حذف السجلات ليست جيدة حتي باستخدامك البرمجة ال recursion programming

تخيلي لو عندك 5 مليون سجل سوف ينتهي حذف السجلات بعد أن يدخل أولادك الجامعة

الأفضل في التعامل مع كم كبير من البيانات استعمال ال SQL و هي الخيار الأفضل و الأسرع بلا شك.

و انا أفضل الطريقة التالية

dim db as database
set db = opendatabase("Test.mdb")
db.execute "delete * from fatma"

طبعا لابد من اضافة مكتبة ال DAO ك Reference

و اعذروني للتقصير لمرض والدتي .... أحمد

تم تعديل هذه المشاركة بواسطة romantic_boy في 20 يوليو 2005 في 21:56

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#5

ممتاز اخى احمد

اتمنى ان تكون قد وصلتك رسالتى :rolleyes:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#6

أشكرك أخ أحمد و شفى الله والدتك و ألبسها ثوب العافية ...

لقد حللت لي مشكلة كبيرة أرجو أن تكون في ميزان حسناتك و آمل أن تبقى على تواصل معنا حتى نستفيد من خبرتك.

وفقك الله و سدد خطاك

تم تعديل هذه المشاركة بواسطة فاطمة7 في 21 يوليو 2005 في 12:32

هذا الموضوع مغلق.

مواضيع مشابهة