ايجاد جستجو براي پروژه

[azizdordone]

باسلام
خدمت دوستان ارجمند و گرامي

1.من ميخواهم كه براي برنامه خود يك جستجو ايجاد كنم كه به اين صورت كه بر روي فرمم 5تا اپشن بوتن (otion buton) قرار داده ام و طبق مارك كردن آنها جستجو انجام شود و يك جستجوي ديگر براساس تاريخ باشد يعني از تاريخ تا تاريخ باشد و بتوانم اين جستجو هارا برا ديتاريپورت چاپ كنم.

[returnx]

من هم یه همچین سوالی دارم و سوالم رو مطرح کردم اما هنوز جوابی نگرفتم .

[azizdordone]

اقا من اي كدو نوشتم ولي وقتي دكمه جستجو رو ميزنم هيچ اتفاقي نميوفته

On Error Resume Next
Dim counter As Integer
Dim StrSearch As String
Dim StrFilter As String
If Option3.Value Then
StrSearch = "shoshasi = " & TxtID.Text
ElseIf Option2.Value Then
StrSearch = "Nammalek LIKE '%" & TxtID.Text & "%'"
ElseIf Option1.Value Then
StrSearch = "shopaziresh LIKE '%" & TxtID.Text & "%'"
End If
AdoUser.Refresh
AdoUser.Recordset.Filter = StrSearch
SendKeys HiLyt
If Not AdoUser.Recordset.BOF = True And AdoUser.Recordset.EOF = True Then
Call FormatKala_lst
MsgBox ", ""
TxtID.SetFocus
SendKeys HiLyt
Exit Sub
End If
Call FormatKala_lst

اين vb من ديونه كرده

[محسن شامحمدی]

من که از کداتون سر درنیاوردم
ولی اینو بدونید که در وی بی اگر در دستور sql خود از زبان فارسی استفاده کنید هیچی پیدا نمی شه
دلیلش فارسی ساپورت نکردن اس کیو ال ویژوال بیسیک هستش