***** گیری از چند تا فیلد

با سلام خدمت دوستان
من یه جدول دارم که دارای فیلدهای نام-فامیل-سن-شغل و..است
حالا می خوام در برنامه این امکان را به کاربر بدم که بتونه بر اساس همه فیلدها جدول را فیل تر کنه
مثلا بتونه بگه افرادی که نام انها x وفامیل آنها y و سن انها بیشتر از 20 باشه.
البته دو نوع کد زیر را نوشتم که هیچکدام جواب نداد

کد:

---

کد1:
s:='';
f:=False;
if edit1.Text<>'' then
    begin
      s:='name='+QuotedStr(edit1.text);
      f:=True;
    end;
if edit2.text<>'' then
    begin
      if f then
      begin
      s:=s+'and';
      s:=s+'famil='+QuotedStr(edit2.Text);
      f:= True;
      end;
    end;

IF S <> '' Then
    begin
      ADOTable1.Filtered := True;
      ADOTable1.Filter:=s;
    end;

---

کد:

---

کد2:
ADOTable1.Filtered:=True;
ADOTable1.Filter:='name='+QuotedStr(edit1.Text) AND  'age>'+QuotedStr(edit3.text

---

دوست عزیز چرا از query و دستورات SQL استفاده نمیکنی؟

سلام
عزیز جان من زیاد از کوئری سر در نمی آورم البته یه چیزایی نوشتم ولی جواب نداد اگه ممکنه شما برایم بنوسید

نقل قول:

---

نوشته شده توسط meghdad23 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
عزیز جان من زیاد از کوئری سر در نمی آورم البته یه چیزایی نوشتم ولی جواب نداد اگه ممکنه شما برایم بنوسید

---

کد:

---

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from table where field_1 =:app and field_2 =:app1');
query1.parambyname('app').Value:=edit1.Text;
query1.parambyname('app1').Value:=edit2.Text;
query1.Open;

---

اگر با کد مشکلی داشتی بگو. موفق باشی

مثل اينكه پيشنهاد فـيلتر كردن كلمه «فـيلتر» كار جالبي نبود! همه فـيلتر ها كه فـيلتر شكن نيستن!!

سلام
دوست عزیز چک میکنم
حتما جوابش را بهت میدم
به هر حال ممنون

سلام
این کوئری را نوشتم و اجرا هم کردم ولی اجرا که میشه مثلا روی باتن که کلیلک می کنی هیچ چیز نمایش نمیده مثل اینه مثلا هیچ فیلدی مطابق با شرط من وجود ندارد

سلام
من این کد را هم نوشته ام ولی برای فیلد سوم(famil) جواب نمیده و پیغام خطا میده

کد:

---

    Form1.ADOTable1.Filtered:=True;
    form1.ADOTable1.filter:='name='+QuotedStr(edit1.text)
    + ' or age'+ComboBox1.text+' '+QuotedStr(edit2.text)
    + ' or famil='+QuotedStr(edit4.Text);

---

آقا یکی نیست جواب ما را بده واقعا احتیاج دارم

نقل قول:

---

نوشته شده توسط meghdad23 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
این کوئری را نوشتم و اجرا هم کردم ولی اجرا که میشه مثلا روی باتن که کلیلک می کنی هیچ چیز نمایش نمیده مثل اینه مثلا هیچ فیلدی مطابق با شرط من وجود ندارد

---

اگر برای نمایش اطلاعات از dbgrid استفاده می کنی، دقت کن که data source به query که شما جستجو رو با اون انجام میدی، اشاره کنه

نقل قول:

---

نوشته شده توسط meghdad23 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
من این کد را هم نوشته ام ولی برای فیلد سوم(famil) جواب نمیده و پیغام خطا میده

کد:

---

    Form1.ADOTable1.Filtered:=True;
    form1.ADOTable1.filter:='name='+QuotedStr(edit1.text)
    + ' or age'+ComboBox1.text+' '+QuotedStr(edit2.text)
    + ' or famil='+QuotedStr(edit4.Text);

---

---

کد رو تست نکردم ولی قسمتهایی که با رنگ قرمز مشخص کردم رو تست کن:

کد:

---

    Form1.ADOTable1.Filtered:=True;
    form1.ADOTable1.filter:='name='+QuotedStr(edit1.text)
    + ' or age='+ComboBox1.text+' '+QuotedStr(edit2.text)
    + ' or famil='+QuotedStr(edit4.Text);

---

بعد از age ' = ' بذار
combobox به چی اشاره میکنه؟

سلام فرهاد جان دقیقا مشکل از همون بود
اون combo دارای گزینه های (>< =) است و برای اینه که کاربر بتونه بگه مثلا سن های بزرگتر از 20 را نشون بده
به نظر شما باید چه کار کنم تا کاربربزگتر یا کوچکتر یا مساوی را وارد کنه

نقل قول:

---

نوشته شده توسط meghdad23 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام فرهاد جان دقیقا مشکل از همون بود
اون combo دارای گزینه های (>< =) است و برای اینه که کاربر بتونه بگه مثلا سن های بزرگتر از 20 را نشون بده
به نظر شما باید چه کار کنم تا کاربربزگتر یا کوچکتر یا مساوی را وارد کنه

---

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
begin
a:=ComboBox1.Text;
Form1.ADOTable1.Filtered:=True;
form1.ADOTable1.filter:='name='+QuotedStr(edit1.text)
+ ' or age'+a+QuotedStr(edit2.text)
+ ' or famil='+QuotedStr(edit4.Text);
end;

---

توجه کن که combobox فقط مقادیر > ، = ، < رو برای انتخاب کاربر داشته باشه، در غیر اینصورت کامپایلر error میده.
موفق باشی

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

راستی یه سوال دیگه من می خوام یه کاری کنم که کاربر تا در یک edit حرف ب را زد تمام رکوردهایی که در آنها حرف ب هسترا بیاورد(لبته تو سایت یه چیزایی بود ولی کارم را راه ننداخت)

توی ***** کد زیر رو بنویس.
ولی برای Access و SQL هست

کد:

---

filter := 'Name like * '+edit.text+'*';

---

موفق باشی

سلام
مرد مباح عزیز اگه زحمتی نیست یک کد تست شده بزار چون من زیاد با فوت و فن filter آشنا نیستم
این کدا رفتم تستش کردم به آرگومانها گیر میده
ممنون

سلام
یعنی هیچ کس بلد نیست کار من را راه بندازه

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

کد:

---

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from main where famil like "'+edit4.text+'%"');
adoquery1.Open;

---