مشکل در سرچ ویژوال بیسیک

[jaber]

سلام دوستان
من این کد سرچ رو در ویژوال بیسیک نوشتم

کد:

Private Sub Command1_Click()
  On Error Resume Next
  If Trim(Text2) = "" Then
    MsgBox "hich meqdaari vaared nakardin !", vbExclamation, "Search"
    Text2.SetFocus
  End If
If Text2 = "" Then GoTo 2
If Adodc1.Recordset.EOF = True Then
GoTo 2
Else
Adodc1.Recordset.MoveFirst
3 If Adodc1.Recordset.EOF = True Then
GoTo 2
Else
If Adodc1.Recordset.Fields(1).Value = Text2 Then
Text1 = Adodc1.Recordset.Fields(0).Value
Text2 = Adodc1.Recordset.Fields(1).Value
Else
Adodc1.Recordset.MoveNext
GoTo 3
End If
End If
End If
2 End Sub

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

[jaber]

ممنون می شم اگه زود تر کمک ام کنید خیلی ضروری لازم دارم

[arashrj]

سلام
به جای

کد:

If Adodc1.Recordset.Fields(1).Value = Text2 Then

از

کد:

If Adodc1.Recordset.Fields(1).Value Like  "*" + Text2.Text + "*" Then

استفاده کنید.

موفق باشید

[jaber]

سلام آرش جان دست شما درد نکنه کد کار می کنه
اما یک مشکل دیگه هم دارم اینه که اطلاعات من داخل text نشون میده و داخل text هم بیشتر از 1 فیلد نمی تونه نشون بده
مثلا من تو دیتابیس ام دو اسم دارم به نام آرش و آرمین حالا کلمه آر رو سرچ می کنم باید هر دو اسم رو نشون ام بده تو این قسمتش که هر دو اسم رو نشون ام بده مشکل دارم

[Fireninja]

می تونید از ابزار های گزارشگیری بهمراه لیست باکس استفاده کنید!! کنترل DataGrid هم شاید!

[jaber]

تو برنامه نویسی از همه چی استفاده می شه دوست من همه میان اینجا نظر میدن که م یتونین فلان کار بکنید
اما وقتی یک برنامه نویسی که 20 ماه اصلا ویژوال بیسیک رو ندیده !!!! چی می دونه چی به چیه !!!
واسه همین نیاز به درخواست پرژه دارم به روشی که آرش جان گداشتند و پست شماره 4 من