PDA

View Full Version : جستجوي حرفي با Filter



pandco
سه شنبه 14 اردیبهشت 1389, 15:59 عصر
با سلام
در سايت كلي در مورد فيلتر كردن كلي جستجو كردم ولي جستجوي كاراكتري كار نكرد.
مثلا مي خواهم حرف ع را تايپ كردم هر چي كه اولش ع داره فيلتر كنه اما وقتي با كد زير اينكار رو مي كنم ديبيگيرد خالي نشون مي ده :

AdoTable.Filter:='Name=' + QuotedStr( EdtName.Text);

و با كد زير نيز كار نميكنه :

AdoTable.DataSet.Filter:='Name=' + QuotedStr(EdtName.Text + '*');

Mahmood_M
سه شنبه 14 اردیبهشت 1389, 16:35 عصر
به جای " = " از " Like " استفاده کنید :

Filter := 'Name Like '+QuotedStr('*'+Trim(NameEdit.Text)+'*');

pandco
سه شنبه 14 اردیبهشت 1389, 16:57 عصر
من اين كد رو نوشتم اما وقتي يك حرف رو تايپ مي كنم پيغام زير رو مي ده :

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

با تشكر

pezhvakco
سه شنبه 14 اردیبهشت 1389, 19:10 عصر
درود :
کد زیر رو امتحان کن :


if Edit4.Text <> '' then
begin
Com_Tx:=' (name LIKE ' + QuotedStr('%' + Trim(Edit4.Text) + '%') + ') ';
Table1.Filter:=Com_Tx;
Table1.Filtered:=True;
end;


فکر خوش .

pandco
سه شنبه 14 اردیبهشت 1389, 19:31 عصر
مچكرم با كد بالا مشكلم حل شد.