جستجو بر اساس هر كلمه

[amiralex]

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

سوالم اينه

من يه تكست باكس و يك ديتا گيرد دارم كه به بانك اكسس وصله و ميخوام متني رو در اون تكس باكس سرچ كنم ديتا گيرد فيلتر بشه

از اين كد استفاده ميكنم و مشكلي نيست

adoPrimaryRS.Filter = "famil = '" & Me.txtsrch.Text & " '"

حالا سوالم اينجاست اين كد در صورتي عمل ميكنه من كلمه مورد نظرمو كامل بنويسم تا بياد





ميدونم بايد از Like استفاده كنم اما هر شكلي تو اين كد از Like ميخوام استفاده كنم ارور ميده
در ضمن ميخوام وقتي متن تكست باكس خالي كردم دوباره ديتاگيرد به حالت اول برگرده
دوستان لطفا راهنمايي كنن

ممنونم از همتون

[محسن واژدی]

سلام علیکم
قبلا در مورد جستجو تاپیک های بسیاری در انجمن مطرح شده
کد زیر را بررسی کنید:
Private Sub Command1_Click()
With adoPrimaryRS
If txtsrch.Text = "" Then
.RecordSource = "SELECT * FROM Table1 WHERE famil LIKE '%" & txtsrch.Text & "'%"
Else
.RecordSource = "SELECT * FROM Table1"
End If
.Refresh
End With
End Sub


http://barnamenevis.org/showthread.php?356957-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88-%D8%AF%D8%B1-%D8%A8%D8%A7%D9%86%DA%A9-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%D8%AD%D8%B1%D9%81-%D8%A8%D9%87-%D8%AD%D8%B1%D9%81-(%D8%AE%DB%8C%D9%84%DB%8C-%D8%A8%D8%B1%D8%A7%D9%85-%D9%85%D9%87%D9%85%D9%87)-%DA%A9%D9%85%DA%A9-%DA%A9%D9%86%DB%8C%D8%AF&p=1574421&viewfull=1#post1574421
http://barnamenevis.org/showthread.php?356957-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88-%D8%AF%D8%B1-%D8%A8%D8%A7%D9%86%DA%A9-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%D8%AD%D8%B1%D9%81-%D8%A8%D9%87-%D8%AD%D8%B1%D9%81-(%D8%AE%DB%8C%D9%84%DB%8C-%D8%A8%D8%B1%D8%A7%D9%85-%D9%85%D9%87%D9%85%D9%87)-%DA%A9%D9%85%DA%A9-%DA%A9%D9%86%DB%8C%D8%AF&p=1587863&viewfull=1#post1587863
http://barnamenevis.org/showthread.php?357258-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88-%D8%AF%D8%B1-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%A8%DB%8C%D8%B3&p=1587857&viewfull=1#post1587857
http://barnamenevis.org/showthread.php?342589
http://barnamenevis.org/showthread.php?356079-جستجوی-اطلاعات
http://barnamenevis.org/showthread.php?340439-سوال-در-مورد-جستوجو-کردن
http://barnamenevis.org/showthread.php?333487-جستجو-بر-اساس-4-شماره-آخر-یک-رکورد-در-اکسس
http://barnamenevis.org/showthread.php?323823-درخواست-نمونه-کد-جستجو-با-SQL
http://barnamenevis.org/showthread.php?323797-%D9%85%D8%B4%DA%A9%D9%84-%D8%AF%D8%B1-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88-%D8%AF%D8%B1-SQL&p=1421933&viewfull=1#post1421933
http://barnamenevis.org/showthread.php?321607-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88-%D8%AF%D8%B1-%D8%AF%DB%8C%D8%AA%D8%A7-%DA%AF%D8%B1%DB%8C%D8%AF-(%DA%A9%D9%85%DA%A9-%DA%A9%D9%86%DB%8C%D8%AF)&p=1410876&viewfull=1#post1410876

موفق باشید

[amiralex]

آقا محسن ممنونم ازتون
من كد اصلاح كردم و درست بود اما DataGird بعد از اينكه تكست باكس و خالي كردم به حالت اول برنميگرده
كدي كه نوشتم اينه

Private Sub txtsrch_Change()
If Me.txtsrch > "*" Then

adoPrimaryRS.Filter = "famil like '" & Me.txtsrch.Text & "*'"
Else
DataGrid.Refresh
End If
End Sub

چي كار بايد بكنم؟

در ضمن متد
.rfresh

ميزنم بعد از Else ارور ميده حتي Requery رو هم زدم با زهم ارور ميده

كدي كه شما نوشتيد در قسمت
.RecordSource
ارور Method Or data member not Found رو ميده

مشكلش چيه؟

ممنونم ازتون

[amiralex]

لطفا يكي جواب سوال ما رو بده

[محسن واژدی]

سلام علیکم
adoPrimaryRS به کنترل ADO اشاره داره سورستون رو بررسی کنین شاید adoPrimaryRS به شی دیگری منتسب باشه همینطور در متد Filter نمیتوانیم queryهای sql بنویسیم