+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكله في الفلتر في جدول الاكسس ado (/showthread.php?tid=1793)
مشكله في الفلتر في جدول الاكسس ado - SOFIANE09 - 16-03-2010
السلام اخواني لدي مشكله وهي عدم الفلتر في الاكسس بحيث عندما اكتب الحرف الاول للاسم فان dbgrid يمحا مباشرة و لا يضهر اي اسم رغم هناك الاسامي لا تضهر و انا اود ان تضهر الاسامي بمجرد كتابه الاحرف الاول من الاسم حتى تضهر كل الاسامي التي تبدا بهدا الحرف **** ال****** بسرعة انا محتاج اليه
مشكله في الفلتر في جدول الاكسس ado - kachwahed - 16-03-2010
[COLOR="black"]السلام عليكم
هناك خطأ في صيغة الـ Filter :
كود :
0:adotable1.Filter:='[Nom]='''+Edit1.Text+'*''';http://www.delphi4arab.net/forum/showthread.php?tid=2163
http://www.delphi4arab.net/forum/showthread.php?tid=2470
http://www.delphi4arab.net/forum/showthread.php?tid=553
http://www.delphi4arab.net/forum/showthread.php?tid=2470
استخدم البحث...[/COLOR]
مشكله في الفلتر في جدول الاكسس ado - shagrouni - 16-03-2010
الإجرائية، حسب الكود الذي أرفقته بعد التعديل:
PHP كود :
procedure TForm2.Edit1Change(Sender: TObject);
var
sFilter: string;
begin
if ComboBox1.ItemIndex = -1 then
Showmessage('Selectione Le Type De Recharche S.V.P')
else
begin
if Edit1.GetTextLen <> 0 then
begin
case ComboBox1.ItemIndex Of
0: sFilter := '[Nom] Like ' + #39 + Edit1.Text + '*' + #39;
1: sFilter := '[Prenom] Like ' + #39 + Edit1.Text + '*' + #39;
end;
ADOTable1.Filter := sFilter;
ADOTable1.Filtered := true;
end
else
ADOTable1.Filtered := false;
end;
end;
مشكله في الفلتر في جدول الاكسس ado - SOFIANE09 - 17-03-2010
شكرا لكم يااخواني على ال****** والاهتمام بالموضوع