یک جستجوی ساده در دیتا بیس

[mm_ley]

دوستان ببینید من یک دیتا بیس دارم با نام exam و با فیلد های
name family code

حالا می خوام فرمی بسازم که در آن بتوان با یک دگمه جستجو
مثلا دنبال نام یا فا میل بگردم و درصورت موجود بودن هر چند تا در دیتا بیس آنها را نمایش دهد


ممکنه اسم و فامیلی تکراری باشه می خوام هرچند تا هم نوع باشه را نشان بده مثلا اگر 4 تا اسم علی باشه دونه دونه پیدا کنه

این کد هم نوشتم ولی اولین اسم را پیدا می کنه ولی اسمهای بعدی را نه

آیا کد من اشکال داره لطفا کمکم کنید خیلی حیاتی هستش

این هم کد :







Private Sub Command9_Click()
Dim intans As Integer
Data1.Recordset.FindFirst "Name = '" & txtfind & "'"
Do While Data1.Recordset.NoMatch = False
intans = MsgBox("continiue?", vbYesNo)
If intans = 7 Then
Exit Do
End If
Data1.Recordset.FindFirst "Name = '" & txtfind & "'"
Loop

End Sub

[hosein182421824218]

سلام کدی که نوشتی رو نمیدونم درسته یا نه ولی خودم یه سرچ درست کردم که با کامند کار میکنه و وقتی اسم رو پیدا کرد تو یه لیست باکس نمایش میده به مثالش نگاه کنی کمکت میکنه مشکلت حل شه یه جورایی از روی همین میتونی تقلید کنی مشکلت حل میشه

PublicClass Form1
Dim drorder As SqlClient.SqlDataReader
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
SqlCommand1.CommandText = "select * from customers where customerid like '" & Trim(TextBox1.Text) & "%'"
SqlConnection1.Open()
drorder = SqlCommand1.ExecuteReader
ListBox1.Items.Clear()
While drorder.Read
ListBox1.Items.Add(drorder.Item("customerid") & " " & drorder.Item("companyname"))
EndWhile
Catch ex As Exception
MsgBox(ex.Message)
Finally
SqlConnection1.Close()
EndTry
EndSub
EndClass