مشکل در جستجوی بانک اکسس بر اساس دو فیلد

[butterfly8528]

سلام دوستان .

من می خوام بر اساس 2 فیلد بانک اکسس رو جستجو و نتیجه رو نمایش بدم .

کد زیر رو نوشتم ولی کار نمیکنه ! :ناراحت:



Dim strQuery As String
Dim blF As Boolean

If txtSearch_Name.Text <> "" Then
strQuery = "WHERE name LIKE '%" & txtSearch_Name.Text & "%'"
blF = True
End If


If txtSearch_Share.Text <> "" Then
If blF Then
strQuery = strQuery & " AND moshtarek=" & txtSearch_Share.Text
Else
strQuery = "WHERE moshtarek=" & txtSearch_Share.Text
End If
End If


بی زحمت ببینید مشکل کدی که نوشتم چیه ؟

[rd.net]

به نظر من با Data Enviroment کار کنی راحت تره.
یک Data Enviroment درست کن .
به بانک وصل کن.
یک کامند درست کن.(تو Data Enviroment)
بعد تو propertis کامند تو قسمت SQL بنویس:
select *from table1 where name=text4
name اسم فیلد مورد نظره.

[butterfly8528]

دوست عزیز خیلی ممنون اما نمی خوام Data Enviroment استفاده کنم .

لطفا هر کی میتونه بگه مشکل کد من مجاست ؟

[xxxxx_xxxxx]

سلام،
فیلد moshtarek از چه نوعی هست؟
محتوای txtSearch_Share چه چیزی هست؟
شاید مشکل در پارامترهایی که به RecordSource تون دادید باشه!

اصلاً شما چرا Select نکردید ؟؟؟ شرط رو نوشتید (where) اما عمل اصلی که باید انجام شه رو ننوشتید؟

strQuery = "SELECT * FROM TableName WHERE name LIKE '%" & txtSearch_Name.Text & "%'"