nimarajabifam
سه شنبه 22 مرداد 1392, 13:36 عصر
سلام میدونم که تاپیک تکراریه ولی من به تاپیک های دیگه سر زدم و با کمک اونا تونستم کد زیر رو بنویسم ولی من یه مشکل دارم ... و خیلی وقته که باهاش دارم ور میرم و به نتیجه نرسیدم.
من توی یک پروژه یک کد نوشتم برای جستجوی یک کلمه در دیتابیس ولی مشکل اینجاست که فقط کلمه ای رو از دیتابیس پیدا میکنه که از بقیه بالتر باشه برای مثال اگر کلمه "علیرضا" توی دیتابیس از کلمه "علی" بالاتر باشه دیگه بیخیال علی میشه و فقط علیرضا رو پیدا میکنه. ... اگه ممکنه کمک کنین.راستش من نمیدونستم که سوالو چجوری سرچ کنم واسه همینم به خاطر تاپیک جدید معذرت میخوام...دوستان محترم اگه تاپیکی میشناسن که مفید باشه و ترجیحا از data ستفاده شده باشه اگه ممکنه ذکر کنن.
Data1.Recordset.MoveFirst
found = False
While found = False
If Left((Data1.Recordset.Fields("äÇã")), Len(txtname.Text)) = (txtname.Text) Then
found = True
End If
If found = False Then
If Data1.Recordset.EOF = False Then
On Error Resume Next
Data1.Recordset.MoveNext
On Error Resume Next
End If
End If
Wend
من توی یک پروژه یک کد نوشتم برای جستجوی یک کلمه در دیتابیس ولی مشکل اینجاست که فقط کلمه ای رو از دیتابیس پیدا میکنه که از بقیه بالتر باشه برای مثال اگر کلمه "علیرضا" توی دیتابیس از کلمه "علی" بالاتر باشه دیگه بیخیال علی میشه و فقط علیرضا رو پیدا میکنه. ... اگه ممکنه کمک کنین.راستش من نمیدونستم که سوالو چجوری سرچ کنم واسه همینم به خاطر تاپیک جدید معذرت میخوام...دوستان محترم اگه تاپیکی میشناسن که مفید باشه و ترجیحا از data ستفاده شده باشه اگه ممکنه ذکر کنن.
Data1.Recordset.MoveFirst
found = False
While found = False
If Left((Data1.Recordset.Fields("äÇã")), Len(txtname.Text)) = (txtname.Text) Then
found = True
End If
If found = False Then
If Data1.Recordset.EOF = False Then
On Error Resume Next
Data1.Recordset.MoveNext
On Error Resume Next
End If
End If
Wend