كيف الفلترة بتاريخ الميلاد ؟

[bbensoft]

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

كود :

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

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

[لؤي]

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

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

[bbensoft]

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

[لؤي]

جرب هذه :

كود :

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]

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

[لؤي]

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

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

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

http://www.delphi4arab.net/forum/showthr...p?tid=8705

[Manarsoft]

كود :

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]

كود :

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;