الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد هذا الكود ب ado

مغلق
بدأه yasserstars في 15 مارس 2007 · 2 رد · 460 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هذا الكود اريد تحويله من DAO الي ADO

وهو يستخدم لحذف سجل من جدول الاصناف والاصناف الفرعية والاصناف الرئيسية و هو ناجح معي باستخدام DAO ولكني اريد تحويله الي ADO

وهل يمكن تحويله بدون استخدام جمل اس كيو ال

واودايضا معرفة هل يمكن استخدام الخاصية No Match مع ADO 

e = MsgBox("هل تريد حذف السجل من البرنامج؟", vbYesNo, "تحذير ")

  If e = vbYes Then  
	 itemstype.Index = "name"
	 itemstype.Seek "=", Text2.Text

	   If Not itemstype.NoMatch Then
		 itemstype.Delete
		Else
		 End If

	 items.Delete
	 items.Index = "aname"
	 items.Seek "=", Combo1.Text
			 If items.NoMatch Then
				prin.Index = "name"
				prin.Seek "=", Combo1.Text
				prin.Delete
			   Else
				 End If
#2

السلام عليكم ورحمة الله وبركاته ...........

أخي ممكن هذا الكود ينفعك 

Private Sub Command3_Click()
If RS.State = 1 Then RS.Close
				   RS.Open "select * from ven_Raw where No_inv = '" & Trim(Text1.Text) & "'", CN, adOpenStatic, adLockOptimistic
				   If RS.RecordCount > 0 Then
					 msg = MsgBox("يوجد خدمات ملحقة لهذا الحجز , هل انت متأكد من الحذف", vbYesNo)
						If msg = vbYes Then
							CN.Execute "Delete * from ven_Raw where No_inv = '" & Text1.Text & "'"
							CN.Execute "Delete * from Det_ven_Raw where No_inv = '" & Text1.Text & "'"
							MsgBox "تم الحذف بنجاح", vbInformation, "حذف"
							Text1_KeyPress (13)
						End If
						End If
End Sub

لكن يجب أن تعرف كائن أسمة RS في موديول علشان تستخدمة دائما ,

Public RS As ADODB.Recordset

إدخل على هذا الرابط راح تلقى فيه دروس جيدة عن Ado

/index.php?showtopic=54488

لاتنسانا من صالح دعائك

سبحان الله وبحمده سبحان الله العظيم ..أستغفر الله

samp8a5b2fc47732a301.jpg

#3

على فكرة لاتنسى ان تعرف المتغير msg في بداية البرنامج

أما بالنسبة لـNo match ماتقدر تستخدمها مع ADO للاني مره حاولت أستخدمها Adodc وماستطعت

هذا والله أعلم

والسلام عليكم ورحمة الله وبركاته

سبحان الله وبحمده سبحان الله العظيم ..أستغفر الله

samp8a5b2fc47732a301.jpg

هذا الموضوع مغلق.

مواضيع مشابهة