جستجو در بانك اطلاعاتي دلفي ؟؟؟؟؟

[re_elhami_27]

سلام
لطفا كمك كنيد:
من وقتي جدول بانكم را ----- مي كنم مثلا براي شماره تلفن جواب ميده با كد زير
adotable1.filter := 'telnumber='edit1.text'' : example
ولي براي نام جواب نميده و خطا ميده مثل اينكه ميگه محدوده ات بيشتر از حد دسترسي است
چه جوري ----- كنم
تمامي فيلدهاي من از نوع تكست است
ممنون

[NoneForce]

سلام
پيغام خطا رو بصورت كامل بنويسيد
اين رو هم تست كنيد(مثال است)

ADOTable1.Filtered := True;
ADOTable1.Filter := 'fldIndex = '+ Index;

[re_elhami_27]

..., arguments are of the wrong type , are out of acceptable rang
مشكل كجاست

[مرد مباح]

دوست عزيز.
اين پيغام براي اينه كه بايد نوشته به صورت ديگهاي نوشته بشه.
چون علامت ' در دلفي براي نمايش كاراكتر استفاده ميشه و قتي دوبار اين علامت باشه به معني شروع و خاتمه كاراكتره.

براي اسلاح بايد كد به صورت زير نوشته بشه.
بايد براي هر گيومه دوتا گيومه وارد كني.

adotable1.filter := 'telnumber=''edit1.text''' :example

[FGIT]

اينطوري بنويس
adotable1.filter := 'telnumber='+QuotedStr(edit1.text) :example

[Elyar]

بهترین کار اینکه از دستورات sql استفاده کنی. کلی است و روی هر دیتابیس و زبان برنامه نویسی جواب میده.

[delphianddotnet]

اينطوري بنويس
adotable1.filter := 'telnumber='+QuotedStr(edit1.text) :example

تابع Quotedstr معادل علامت نقل قول يا همون موتنشن است
اينطوري بنويس
adotable1.filter := 'telnumber='+''+edit1.text+'' :example

[hatam200]

سلام
من یک کد جستجو دارم واسه string جواب میده ولی واه integer جواب نمیده چیکار کنم؟؟؟
اینم کد
procedure TForm11.BitBtn1Click(Sender: TObject);
var b:string;
begin
if edit2.Text<>'' then

begin
if combobox1.ItemIndex=0 then b:='Number Company='''+edit2.Text+'''';
if combobox1.ItemIndex=0 then b:='machin='''+edit2.Text+'''';

Adotable1.Filter:=b;
adotable1.Filtered:=true;
if adotable1.IsEmpty=true then

begin
showmessage(' ÇØáÇÚÇÊ ãæÌæÏ äíÓÊ');
activecontrol:=edit2;
end;
end
else
begin
showmessage(' äÇã ÔÎÕ ãæÑÏ äÙÑ ÑÇ æÇÑÏ ßäíÏ');
activecontrol:=edit2;
end;
end;

[Seveen7]

form2.ADOTable1.Locate('Name',Edit1.text, [loPartialKey]);