فیلتر کردن بانک اطلاعاتی با شرایط خاص

[محسن شمس]

آقا من برای فیلتر کردن اطلاعاتم از این کد استفاده می کنم
Table1.Filtered :=true ;
Table1.Filter :='Name='+QuotedStr(Edit2.Text) ;

این کد به درد من نمی خوره

من کدی را می خواهم که وقتی در یک کادر متن نوشتم " ح " هر اسمی که در فیلد Name با " ح " شروع شده است نمایش دهد

ولی کد بالایی که براتون نوشتم میاد میلد فقط اسمی که " ح " می باشد را پیدا می کند

[oghab]

سلام
ببین من فقط کار با table های sql و از طریق adotable را بلدم. در اونجا برا همچین کاری اینطور می نویسم:


adoTable1.Filtered :=true ;
adoTable1.Filter :='name like '+chr(39)+Edit1.Text+'%'+chr(39) ;

% به جای یه رشته با طول نامشخص یا حتی تهی استفاده میشه. پس فقط کافیه در edit اول نام مورد نظر نوشته بشه.
chr(39) هم ب جای ' است که باید رشته مون بین 2 کوتیشن قرار بگیره!
موفق باشی

[sanaiy]

آقا من برای فیلتر کردن اطلاعاتم از این کد استفاده می کنم
Table1.Filtered :=true ;
Table1.Filter :='Name='+QuotedStr(Edit2.Text) ;



می‌شه لطف کنید و بگیدتابع QuotedStr چه عملی انجام میده ؟

ممنون :لبخندساده

[Kamyar.Kimiyabeigi]

شما در اون کادر مورد نظرتون بجای فیلتر کردن از locate استفاده کنین


ADOTable.Locate('field_1', Trim(Edite1.Text), [loPartialKey]);

کد بالا رو در onchange کادر بنویس

[mzjahromi]

اگه از TTable استفاده می کنی اینجوری بنویس مشکلت حل می شه


Table1.Filter := 'Name = ' + QuotedStr(Edit1.Text+'*');

[hamidehsadat]

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

[SYNDROME]

با سلام
دستور را به این شکل استفاده کن.
ADO.Filtered := False;
ADO.Filter := 'Name Like''%'a'%'' ;
ADO.Filtered := True;
ختما جواب می ده چون خودم خیلی استفاده می کن.

[hossein taghi zadeh]

قبل از فیلتر کردن از این دستور استفاده کنید.


TableName.FilterOptions := [];

[bigmag]

برای فیلتر کردن باید این کد رو وارد یک RadioButton کنی :
Table1.Filter := True
Table1.Filtered := ''
و بعد داخل یک دکمه ایم کد :
Table1.Locate := 'نام فیلد = ''' + Edit1.Text + '''';

[bigmag]

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

[bigmag]

اگر از بانک Access اسفاده میکنی فقط به جای Table نام بانک رو بذار

[مجتبی صادقپور]

در رویداد onfilterrecord مربوط به table:
if(edit1.text=copy(table1.fieldbyname('field name'),1,length(edit1.text))) then
accept:=true
else
accept:=false
در رویداد onchange مربوط به edit box می نویسی: table1.filtered:=true

[arshia_]

QuotedStr متن مورد نظر رو به صورت گیومه دار تبدیل می کنه
'متن آزمایشی'
پس دیگه لازم نیست بصورت دستی کوتیشن بذاریم