[دهشوش1]

السلام عليكم

اخواني ممكن المساعدة في تصحيح او تعديل كود  ( الحذف )


في المشروع الاول

لكي يعمل بنفس طريقة

المشروع الثاني

الموجودة في المرفقات


الكود هو

If rs.State = 1 Then rs.Close
sql = "Delete * from Tabel1 where Num =" & Text1.Text & ""
rs.Open sql, db, adOpenKeyset, adLockOptimistic
MsgBox " تمت عملية الحذف بنجاح", vbInformation

[Amir_Alzubidy]

السلام عليكم و رحمة الله و بركاته 
انا سعيد جداً لانتقالك الى ADO 
تعديل الكود : 

PHP كود :

If rs.State = 1 Then rs.Close
sql = "Delete * from TEST4 where TEST ='" & combo1.Text & "'"
rs.Open sql, db, adOpenKeyset, adLockOptimistic
MsgBox "تمت العملية بنجاح", vbInformation
Call ClearAll
Call Filldata 


لكن لا أنصح بهذه الطريقة على أي حال 
يفترض ان يكون هناك حقل ID  و هو عبارة عن رقم السجل 
و بناءً عليه يتم حذف وتعديل السجل .

[دهشوش1]

رااااائع ااخى وشكرااا عالمتابعة وعلى سعة صدرررك

منكم نستفيد يعطييك الف عافيه اخي

وتعليقك في مكانه فهمت مغزاك

واشكركم على جهووودكم في هذا المنتدى الرائع

[Amir_Alzubidy]

حياك الله اخي الحبيب 
اتمنى لك التوفيق 

  المشروع الاول.rar (الحجم : 49.35 ك ب / التحميلات : 59)

[دهشوش1]

(13-11-17, 12:18 AM)Amir_alzubidy كتب : حياك الله اخي الحبيب 
اتمنى لك التوفيق 

حياك الله اخي
الشكر لا يعبر عن امتناني لك والله
ماشاء الله تبارك الله


فعلا هذا ما احتاجة
الان اصبح  المشروع جاااهز تقريبا ولن استغني عن لمساتك وعن هذا المنتدى الراااائع

جزيت خيراااا  وفق الله اخي