استفسار حول البحث بSQL

y = InputBox("Enter name,please", "search")
SQL = "select * from table1 where like name='" & y & "'"

Data1.recordsource =sql
Data1.Refresh

If Data1.Recordset.NoMatch Then
MsgBox " not found", vbOKOnly + vbInformation, "error"
Else

Do While Data1.Recordset.EOF = False
Combo1.AddItem Data1.Recordset![Name]
Data1.Recordset.MoveNext
Loop
End If

ارجو ان يكون هذا هو الصحيح حيث انت تتكلم عن vb3 مع انه موجود في vb6

مشكور اخي على الاضافة

طيب لو انا عايز أظهر جميع الذين أسمهم محمد مثلا .كيف؟ ( ياريت بدون الsql لاني لسه ما تعلمتها) :rolleyes:

استخدم *

SQL = "select * from table1 where like name='*" & y & "*'"

اردت أن يكون البحث بالاسم الاول والاخير

فكتبت هذا الكود

 w = InputBox("enter first name")
e = InputBox("enter last name")
q = "name='" + w + "'"
e = "lastname='" + e + "'"
m = q + e
Data1.Recordset.FindFirst m

لكن لم ينفذ أي شي فما السبب؟؟؟؟؟؟؟

w = InputBox("enter first name")
e = InputBox("enter last name")

SQL = "Select * From Tbale1 Where Trim(Sname) = '"  & Trim(w) & "' And Trim(Lname) = '"  & Trim(e) & "'"


Data1.recordsource =SQL
Data1.Refresh

If Data1.Recordset.NoMatch Then

   MsgBox " not found", vbOKOnly + vbInformation, "error"

Else

   Do While Data1.Recordset.EOF = False
		Combo1.AddItem Data1.Recordset![Name]
		Data1.Recordset.MoveNext
  Loop

End If