ايران ويج

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

کد: 
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

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

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

سلام
به جای

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

از

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

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

موفق باشید

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

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

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

jaber

jaber

arashrj

jaber

Fireninja

jaber