تقييم الموضوع :
  • 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
لا توجد اي بيانات
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال في حفظ البيانات او رسالة عمور2016 4 130 29-07-17, 05:40 AM
آخر رد: Ahmed_Mansoor
  برجاء المساعدة في تجميع مسحوبات كل صنف للعميل nourmandour 4 236 30-05-17, 03:40 PM
آخر رد: Ahmed_Mansoor
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 519 14-05-17, 06:03 PM
آخر رد: nourmandour
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 173 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 446 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 389 15-04-17, 04:13 AM
آخر رد: sendbad100
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 10 621 20-03-17, 10:50 PM
آخر رد: awidan76
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 296 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 352 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 654 19-11-16, 04:27 AM
آخر رد: ابو ليلى

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


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