جستجو در adodc طوری که

[kaveh.norozi]

من یه برنامه نوشتم که میخام یه جستجو هم داشته باشه طوری که حرف اول زدیم تمام فیلند هایی که با اون شروع میشه رو بیاره لطفا کمکم کنید

[ARData]

()Private Sub TxtSearcher_Change
On Error Resume Next
Dim ARdata As String
این سه سطر در یک حط نوشته شود

ARdata = "select * from TBLX where FildX like '%' & " & "'" & TxtSearcher.Text
'%'" & " & "'" &


Adodc1.RecordSource = ARdata
Me.Adodc1.Refresh
End sub
TxtSearcher یک تکست باکس بدون دیتا سورس می باشد .
TBLX نام جدول دیتابیس مانند اکسس می باشد و FildX هم نام فیلد مورد جستجو در جدول TBLX میباشد ...

[kaveh.norozi]

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

Private Sub Text2_Change()
On Error Resume Next
sqls = "SELECT * FROM asly_khoroj where name_r like '%" & Text2.Text & "'"
Adodc1.RecordSource = sqls
Adodc1.Refresh
End Sub

[xxxxx_xxxxx]

سلام
جای علامت % رو به انتهای رشته تغییر بدید:


sqls = "SELECT * FROM asly_khoroj where name_r like '" & Text2.Text & "%'"

[ARData]

4 مدل جستجو رو در این فایل تکست قرار داده ام امیدوارم کارتونو راه بندازه !!!

[jusef_vb_g]

سلام دوست عزیز اگر جوابتو نگرفتی به وبلاگ زیر یه سر بزن
Www.vb-access.blogfa.com
امید وارم که بتونم کمکتان کنم