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

الصفحات : 1 2 3

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

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

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

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

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

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

كود :

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]"

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

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

delete * from tb1 where ItemsGro<>1

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

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

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

كود :

DB.Execute "delete * from Items where ItemsGro<>1"

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

الصفحات : 1 2 3

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

علوش

محمود اكرم

علوش

asto

علوش

حريف برمجة

علوش

علوش

حريف برمجة

علوش