كيف الفلترة بتاريخ الميلاد ؟ - نسخة قابلة للطباعة

كيف الفلترة بتاريخ الميلاد ؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف الفلترة بتاريخ الميلاد ؟ (/showthread.php?tid=4980)

كيف الفلترة بتاريخ الميلاد ؟ - bbensoft - 05-03-2013

السلام عليكم
عملت قاعدة بيانات ب البرادوكس 7
الاسم اللقب تاريخ الميلاد و ووضعت * على الاسم للأندكس
لكن لما أردت البحث ليس بواسطة الاسم بل بتاريخ الميلاد

كود :
table1.open
table1.first
table1.filter:='Date'+edit1.text
table1.filtred:=true

تطلعلي رسالة خطأ

كيف الفلترة بتاريخ الميلاد ؟ - لؤي - 05-03-2013

bbensoft كتب :تطلعلي رسالة خطأ

وعليكم السلام
ما نوع الخطأ ؟وما نوع الحقل Date ؟

كيف الفلترة بتاريخ الميلاد ؟ - bbensoft - 05-03-2013

أهلا بالأخ لؤي
الحقل من نوع date

كيف الفلترة بتاريخ الميلاد ؟ - لؤي - 05-03-2013

جرب هذه :

كود :
table1.open
table1.first
table1.filter:='Date[color=Red] =[/color]'+edit1.text
أو
table1.filter:='Date[color=Red] like[/color]'+'%'+QuotedStr(edit1.text)
table1.filtred:=true

كيف الفلترة بتاريخ الميلاد ؟ - bbensoft - 05-03-2013

بارك الله
لم تنجح
Arithmetic in filter expressions not supported.

كيف الفلترة بتاريخ الميلاد ؟ - لؤي - 05-03-2013

bbensoft كتب :لم تنجح
طلعتلي الرسالة
Arithmetic in filter expressions not supported.

FILTER يشتغل مع حقول من نوع نصية " String"

لمعلومات أكثر:

http://www.delphi4arab.net/forum/showthread.php?tid=8705

كيف الفلترة بتاريخ الميلاد ؟ - Manarsoft - 06-03-2013

كود :
Table1.Filtered := False;
Table1.Filter      := 'Date like ' + '''' + StrToDate(edit1.text) + '%' + '''';
Table1.Filtred    := True;

كود :
Table1.Filtered := False;
Table1.Filter      := 'Date like ' + '%' + StrToDate(edit1.text) + '''';
Table1.Filtred    := True;

كيف الفلترة بتاريخ الميلاد ؟ - Zinab - 07-03-2013

كود :
procedure TForm.QueryDOBClick(Sender: TObject);
begin
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Text := 'SELECT * FROM Table WHERE DateOfBirth =:BirthDate';
  Query.Parameters.ParamByName('BirthDate').Value := DateOf(FromDateEdit.Date); // DateTimePicker
  Query.Open;
end;