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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 9 146 23-11-16, 09:41 AM
آخر رد: amer2000
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 110 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 119 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [سؤال] ادراج 0 بشكل افتراضي فق قاعدة البيانات أسامة حسين 2 132 18-08-16, 12:13 AM
آخر رد: استايل
  [vb6.0] ارجو التعديل amer2000 2 142 08-08-16, 03:02 PM
آخر رد: amer2000
Smile ارجو المساعده العاجله منكم استايل 8 192 23-07-16, 04:53 AM
آخر رد: استايل
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 150 10-07-16, 12:26 PM
آخر رد: عمور2016
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 440 08-07-16, 07:25 PM
آخر رد: أحمد خلاف
  [vb6.0] عمل باسوور لقاعدة البيانات الاكسس عمور2016 1 127 07-07-16, 01:29 PM
آخر رد: الوادي
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 803 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy

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


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