-
مدیر بازنشسته
مشکل در سرچ ویژوال بیسیک
سلام دوستان
من این کد سرچ رو در ویژوال بیسیک نوشتم
کد:
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
اما این کد برای جستجوی دقیق همون کلمه هست من یک کد سرچی می خوام که مثلا بخوای جابر رو سرچ کنیم جا رو بنویسیسم هر کلمه ای که جا توش باشه واسم سرچ کنه ممنون می شم یک همچین کدی واسم بنویسین
با تشکر
مجوز های ارسال و ویرایش
- شما نمیتوانید موضوع جدیدی ارسال کنید
- شما امکان ارسال پاسخ را ندارید
- شما نمیتوانید فایل پیوست کنید.
- شما نمیتوانید پست های خود را ویرایش کنید
-
مشاهده قوانین
انجمن
پاسخ با نقل قول