تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة في كود للحذف من قاعدة البيانات
#1
اخواني لدي قاعدة بيانات فيها اصناف كثير اريد كود مثلا .
لحذف كل السجلات من قاعدة البيانات ما عدا الحقل الذي تساوي (1)
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم
اخي لو تضع مثال لنضع لك متريد من حذف ما يوجد فيه من سجلات ويجب ان توضح اكثر بخصوص الجدول المطلوب الحذف فيه قاعدة البيانات
الرد }}}
تم الشكر بواسطة:
#3
اخي الفاظل
لدي قاعدة بيانات فيه الكثير من الاصناف وكل صنف ضمن مجموعة مثلا ,
لدي حقل بعنوان ItemsGro وهو رقم مجموعة الصنف مثلا (ادوات التجميل رقمها (1) والادوات الكهربائية رقمها (2)) اريد كود ان يحذف كل ما بداخل قاعدة البيانات ما عدا الحقول الذي تساوي رقم (1)
ارجو ان يكون واضح

ولك جزيل الشكر مني
الرد }}}
تم الشكر بواسطة:
#4
هي الطريقة انه تنشا جدول جديد للنقل نفس الجدول السابق تماما لكنه فارغ

و تكتب التالي :

كود :
Set db = DBEngine.OpenDatabase(App.Path & "\DB1.MDB", False, False)
Set Rs2 = db.OpenRecordset("Select * From [table]", dbOpenDynaset)
Set Rs1 = db.OpenRecordset("Select * From [tablel 2]", dbOpenDynaset)

If Rs2.RecordCount > 0 Then Rs2.MoveLast
Do Until Rs1.EOF
Rs2.AddNew
الكود الذي تريد
       Rs2.Update
       Rs1.MoveNext
    Loop


حيث ال table اسم الجدول الاول و tablel2 اسم الجدول الثاني

ثم :

كود :
Set db = DBEngine.OpenDatabase(App.Path & "\DB1.mdb")
db.Execute "DELETE FROM [table]"

ثم نكتب كود مشابه للكود الاول في ردي اي قبل ال ثم
الرد }}}
تم الشكر بواسطة:
#5
اشكرك اخي ولاكن
انا اريد ان يتم حذف كافة السجلات ما عادا السجلات الذي تساوي في الحقل (ItemsGro) رقم (1)
الرد }}}
تم الشكر بواسطة:
#6
delete * from tb1 where ItemsGro<>1
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة:
#7
اشكرك اخوي ولاكن ماهي طريقة استخدام الكود
الرد }}}
تم الشكر بواسطة:
#8
If RS.State = 1 Then RS.Close
RS.Open "Items", DB, adOpenStatic, adLockPessimistic
RS.Delete
اين يكون موقع الكود بالظبط
الرد }}}
تم الشكر بواسطة:
#9
فقط اكتب الكود هذا في الزر وفعل وشوف النتيجة

كود :
DB.Execute "delete * from Items where ItemsGro<>1"
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة:
#10
لا توجد اي بيانات
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض الصور من قاعدة بيانات اكسس داخل الداتا ريبورت mohammed_atallah 0 522 04-09-22, 09:17 AM
آخر رد: mohammed_atallah
Rainbow [سؤال] كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 العولقي١١ 5 2,911 07-03-22, 04:18 AM
آخر رد: مصمم هاوي
Question سؤال عن نوع قاعدة بيانات AmR EiSa 0 902 04-01-22, 11:10 PM
آخر رد: AmR EiSa
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,404 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
Rainbow مساعدة في قاعدة بيانات VB6+ACESS tareqhabib15 2 1,507 01-12-20, 08:54 PM
آخر رد: tareqhabib15
  استفسار عن طريقة الربط بين قاعدة بيانات اكسيس 2003 عن طريق الانترنت jordaniancopy 1 1,851 29-08-20, 11:46 PM
آخر رد: diggitalk2017@gmail.com
  [vb6.0] كود استخراج البيانات من داتا جرايد الى الاكسل karmina2012 0 1,345 01-05-20, 07:08 AM
آخر رد: karmina2012
Photo كيف أضيف صورة الموظف في قاعدة البيانات وفي تقرير الكريستال amazonette 0 1,908 30-12-19, 01:25 PM
آخر رد: amazonette
  عرض البيانات في فلكس تكرار حامد محمد 5 2,515 18-08-19, 07:38 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم