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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة في تجميع مسحوبات كل صنف للعميل nourmandour 0 25 أمس, 03:03 PM
آخر رد: nourmandour
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 244 14-05-17, 06:03 PM
آخر رد: nourmandour
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 60 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 195 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 202 15-04-17, 04:13 AM
آخر رد: sendbad100
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 10 422 20-03-17, 10:50 PM
آخر رد: awidan76
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 147 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 268 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 407 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [سؤال] ادراج 0 بشكل افتراضي فق قاعدة البيانات أسامة حسين 2 246 18-08-16, 12:13 AM
آخر رد: استايل

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


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