منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجو المساعدة في كود للحذف من قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : ارجو المساعدة في كود للحذف من قاعدة البيانات (/showthread.php?tid=9678)

الصفحات: 1 2 3

ارجو المساعدة في كود للحذف من قاعدة البيانات - علوش - 19-07-13

اخواني لدي قاعدة بيانات فيها اصناف كثير اريد كود مثلا .
لحذف كل السجلات من قاعدة البيانات ما عدا الحقل الذي تساوي (1)

ارجو المساعدة في كود للحذف من قاعدة البيانات - محمود اكرم - 20-07-13

السلام عليكم
اخي لو تضع مثال لنضع لك متريد من حذف ما يوجد فيه من سجلات ويجب ان توضح اكثر بخصوص الجدول المطلوب الحذف فيه قاعدة البيانات

ارجو المساعدة في كود للحذف من قاعدة البيانات - علوش - 20-07-13

اخي الفاظل
لدي قاعدة بيانات فيه الكثير من الاصناف وكل صنف ضمن مجموعة مثلا ,
لدي حقل بعنوان ItemsGro وهو رقم مجموعة الصنف مثلا (ادوات التجميل رقمها (1) والادوات الكهربائية رقمها (2)) اريد كود ان يحذف كل ما بداخل قاعدة البيانات ما عدا الحقول الذي تساوي رقم (1)
ارجو ان يكون واضح

ولك جزيل الشكر مني

ارجو المساعدة في كود للحذف من قاعدة البيانات - asto - 20-07-13

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

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

كود :
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]"

ثم نكتب كود مشابه للكود الاول في ردي اي قبل ال ثم

ارجو المساعدة في كود للحذف من قاعدة البيانات - علوش - 20-07-13

اشكرك اخي ولاكن
انا اريد ان يتم حذف كافة السجلات ما عادا السجلات الذي تساوي في الحقل (ItemsGro) رقم (1)

ارجو المساعدة في كود للحذف من قاعدة البيانات - حريف برمجة - 20-07-13

delete * from tb1 where ItemsGro<>1

ارجو المساعدة في كود للحذف من قاعدة البيانات - علوش - 20-07-13

اشكرك اخوي ولاكن ماهي طريقة استخدام الكود

ارجو المساعدة في كود للحذف من قاعدة البيانات - علوش - 20-07-13

If RS.State = 1 Then RS.Close
RS.Open "Items", DB, adOpenStatic, adLockPessimistic
RS.Delete
اين يكون موقع الكود بالظبط

ارجو المساعدة في كود للحذف من قاعدة البيانات - حريف برمجة - 20-07-13

فقط اكتب الكود هذا في الزر وفعل وشوف النتيجة

كود :
DB.Execute "delete * from Items where ItemsGro<>1"


ارجو المساعدة في كود للحذف من قاعدة البيانات - علوش - 20-07-13

لا توجد اي بيانات