الفلترة في ال adoTable

[waelalkharraz]

السلام عليكم جميعا وطاب يومكم بالقرب الى الله أكثر


كنت أستخدم المكون table  (للربط مع بارادوكس) وكان ينفع معي الكود التالي في عملية الفلترة

كود :

procedure TForm3.edt1Change(Sender: TObject);
Var x: string;
begin
begin
If edt1.Text='' then
ds1.DataSet.Filtered:=false
Else Begin
 if  rb1.Checked = True then begin
X:=edt1.Text+'*';
ds1.DataSet.Filter:='material='+QuotedStr(x);
ds1.DataSet.Filtered:=true;
end;
 if  rb2.Checked = True then begin
X:=edt1.Text+'*';
tbl1.Filter:='type='+QuotedStr(x);
tbl1.Filtered:=true;
end;
if  rb3.Checked = True then begin
x:=datetostr(strtodate(edt1.Text+'*'));
tbl1.Filter:='date='+QuotedStr(x);
tbl1.Filtered:=true;
end;
end;
end;
end;

واما الان وبعد ان استخدمت adotable لم يفلح معي الكود السابق في الفلترة في قاعدة بيانات اكسس


أفيدونا جزاكم الله خيرا

[Delphi4Us]

نفس الشئ ونفس الخصائص عن طريق الخاصيتين

PHP كود :

DataSet.Filtered:=False
DataSet.Filter:=value
DataSet.Filtered:=true 


[Med-01]

adotable  ابسط مع الاكسس

انشئ حقل edit1.text وفي الحدث onchange ضع هذا الكود

كود :

begin
if edit1.Text='' then ADOTable1.Filtered:=false
else
begin
ADOTable1.Filtered:=false;
ADOTable1.Filter:='الحقل المراد البحث فيه' + ' LIKE ' + QuotedStr('*' + Edit1.Text + '*');
ADOTable1.Filtered:=true;
end;

باتوفيق داعواتك

[ABDESLAM]

adotable  ابسط مع الاكسس

انشئ حقل edit1.text وفي الحدث onchange ضع هذا الكود

كود :

begin
if edit1.Text='' then ADOTable1.Filtered:=false
else
begin
ADOTable1.Filtered:=false;
ADOTable1.Filter:='الحقل المراد البحث فيه' + ' LIKE ' + QuotedStr('*' + Edit1.Text + '*');
ADOTable1.Filtered:=true;
end;

باتوفيق داعواتك

طبقت كل شيئ و لم ينجح معي تأتي رسالة
LES ARGUMENTS SONT DE TYPE INCORRECT EN DEHORS DES LIMITES AUTORISEES OU EN CONFLIT LES UNS AVEC LES AUTRES

[Delphi4Us]

ملاحظة 
اذا كانت الاداة EditBox فارغة يتم تنفيذ

PHP كود :

  ADOTable1.Filtered:=false 


واذا لم تكن فارغة يتم تنفيذ

PHP كود :

ADOTable1.Filtered:=false; 


اعتقد بحاجة الى مراجعة
تظهر الرسالة التالية

[size=small]LES ARGUMENTS SONT DE TYPE INCORRECT EN DEHORS DES LIMITES AUTORISEES OU EN CONFLIT LES UNS AVEC LES AUTRES[/size]

لا افهم الفرنسية