فیلتر کردن یک فیلد بانک اکسس در بیسیک

[majjjj]

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

[danyansari]

با نوشتن یک دستور sql می تونی فیلد های دلخواه با محتوای دلخواه را در یک datagrid نمایش بدی
Adocd1.RecordSourse = "select fieldnmae from tablemame where fieldname='majid'"

[CodeMasterX]

یه روش دیگه هم اینه که آسون تره و نیازی به باز کردن رکوردست جدید نداره:



RS.CursorLocation = adUseClient
Set DataGrid1.DataSource =RS

RS.Filter = "Name ='Armin'"

[feridoon]

آقای codemaster من با استفاده از این خط کد Set DataGrid1.DataSource =RS
دیتاگرید رو به recordser ، ست می کردم ولی جواب نمی داد . ولی با جستجوی این مطلب در این انجمن و نوشتن این خط RS.CursorLocation = adUseClient
مشکل من حل شد که سه روز بود واقعا منو تو فکر انداخته بود.
خواستم اینجوری ازتون تشکر کنم. خیلی ممنون . کارت درسته:تشویق:

[sahebm2]

str = txtyearmonth.Text

Adodc2.CursorLocation = adUseClient
Set DataGrid1.DataSource = Adodc2
Adodc2.Recordset.Filter = "yearmonth = str"
من میخوام برای فیلتر از متن داخل تکست باکس استفاده کنم اما پیغام خطا میده روی خط آخر
لطفا کمک کنید ممنون

[moghadam1372]

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

& " ' "'Adodc1.Recordset.Filter = "cod =' " & Text1.Text

[vbhamed]

str = txtyearmonth.Text

Adodc2.CursorLocation = adUseClient
Set DataGrid1.DataSource = Adodc2
Adodc2.Recordset.Filter = "yearmonth = str"
من میخوام برای فیلتر از متن داخل تکست باکس استفاده کنم اما پیغام خطا میده روی خط آخر
لطفا کمک کنید ممنون

سلام
كدتون به شكل زير اصلاح شد، البته اگر فيلدتون متني نيست هر دو تا Chr$(34) و & هاي مربوطه رو برداريد
Str = txtyearmonth.Text
Adodc2.CursorLocation = adUseClient
Set DataGrid1.DataSource = Adodc2
Adodc2.Recordset.Filter = "yearmonth = " & Chr$(34) & Str & Chr$(34)