امكانية وجود اكثر من شرط مع الاداة ADO

استخدم كلمة AND

حاولت ولم تنجح

ممكن الشرح احتمال اكون غلطت في الصيغة

وجزاك الله كل خير

عذرا منك بكلمة البحث لا تقبل الا شرط واحد

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

Public Sub FindRec(rsFind As Recordset, Filter As String, Optional SearchDirection As SearchDirectionEnum = adSearchForward)

	Dim ST2 As ADODB.Recordset

	Set ST2 = New ADODB.Recordset
	Set ST2 = rsFind.Clone
	ST2.Filter = Filter

	If (ST2.RecordCount > 0) Then

		If SearchDirection = adSearchForward Then

			ST2.MoveFirst

		Else

			ST2.MoveLast

		End If

		rsFind.Bookmark = ST2.Bookmark

	Else

		If (rsFind.RecordCount > 0) Then

			rsFind.MoveLast ': rsFind.MoveNext
			rsFind.MoveNext '--> To set (EOF = True)

		End If

	End If

End Sub

للبحث استخدم مايلي

FindRec Adodc1.Recordset, "(name like '%a%') and ( name like '%b%') "

طريقة Filter ايضا عليها شروط وخاصة اذا وجد And OR في نفس الجملة

شكرا علي الرد ولو انها متاخرة شوية لاني كنت علي سفر

جزاك الله كل خير

ولكن ممكن مذيد من التوضيح

اخي بصراحة افضل حل استعمل اوامر ال

sql

في البحث وريح بالك هيه الحل النهائي واذا حابب اي مثال انا بالخدمة

عرف findRec في موديول وبعد ذلك في الفورم استخدم مايلي اي استخدم and بين الشروط

 
Dim R
Adodc4.Refresh
dim x as string
x=text1.text
R = DataCombo1.Text
findrec   Adodc4.Recordset	"alasnaf='" & r &"' and '" alasnaf='" &x"  &"'"

tareqvb جزاك الله كل خير علي الافادة

virues_maker

في انتظار مساعدتك التي وعدت في مثال