به فرض یه کمبو باکس داریم که توش نوع سرچ رو تعین میکنیم که عناصرش به شرح زیرن: برای مثال یه فروشگاه
0- شناسه خرید
1- شناسه ی مشتری
2- شناسه ی محصول
یه تکست باکسم داریم بای کلمه ی جست و جو یه دکمه هم کنارش برای جست و جو داریم.
کد دکمه ی سرچ از این قراره:
Private Sub cmdSearch_Click()
Adodc1.CommandType = adCmdText
If txtSearch.Text = "" Then
Exit Sub
End If
If Combo1.ListIndex = 0 Then
Adodc1.RecordSource = "select * from Buy where B_ID=" & CLng(txtSearch.Text)
Adodc1.Refresh
End If
If Combo1.ListIndex = 1 Then
Adodc1.RecordSource = "select * from Buy where C_ID like '" & txtSearch.Text & "%' "
'MsgBox Adodc1.RecordSource
Adodc1.Refresh
End If
If Combo1.ListIndex = 2 Then
Adodc1.RecordSource = "select * from Buy where P_ID like '" & txtSearch.Text& "%' "
'MsgBox Adodc1.RecordSource
Adodc1.Refresh
End If
End Sub
تو این مثال موارد زیر وجود داره:
B_ID---> شناسه ی خرید
C_ID---> شناسه ی خریدار
P_ID---> شناسه ی محصول
از دستور لایک Like برای مقایسه ی دو مقدار در sql استفاه شده که مثلا آیا متن مورد جست و جو تو تکست سرچ برابر با هیچ مقاری از رکورد فلان (که براساس کمبو تعیین میشه) هست یا نه؟.
موفق باشید دوستان
