delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف الفلترة بتاريخ الميلاد ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
عملت قاعدة بيانات ب البرادوكس 7
الاسم اللقب تاريخ الميلاد و ووضعت * على الاسم للأندكس
لكن لما أردت البحث ليس بواسطة الاسم بل بتاريخ الميلاد
كود :
table1.open table1.first table1.filter:='Date'+edit1.text table1.filtred:=true
تطلعلي رسالة خطأ
bbensoft كتب :تطلعلي رسالة خطأ
وعليكم السلام
ما نوع الخطأ ؟وما نوع الحقل Date ؟
أهلا بالأخ لؤي
الحقل من نوع 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
بارك الله
لم تنجح
Arithmetic in filter expressions not supported.
bbensoft كتب :لم تنجح
طلعتلي الرسالة
Arithmetic in filter expressions not supported.
FILTER يشتغل مع حقول من نوع نصية " String"

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

http://www.delphi4arab.net/forum/showthr...p?tid=8705
كود :
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;
كود :
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;

Wink