استعلام المواد القريبة انتهاء الصلاحية في Paradox

[townuser]

السلام عليكم ورحمة الله وبركاته

ما الخطأ في هاته الكتابة
قاعدة البيانات بارادوكس
 
SELECT * FROM PRODUCTS
WHERE DATE_PROD < TODAY +6

ابحث عن تاريخ المواد القريبة انتهاء الصلاحية ولم اعرف كيف اكتب لبتعبيمة الصحيحة

[أبو معاذ]

وعليكم السلام ورحمة الله وبركاته ،
لست أدري إذا كانت التعليمة  TODAY  معروفة في ال Paradox ؟
على كل حال ، لماذا لا تستعمل الباراميتر ؟

كود :

SELECT * FROM PRODUCTS WHERE DATE_PROD < :MyDate

وبعد ذلك تقوم بإمرار قيمة الباراميتر برمجيا

كود :

MyQuery.close; MyQuery.ParamByName('MyDate').asDate := IncDay(Date, 6); MyQuery.open

;

[محمد عبد العزيز]

لست أدري إذا كانت التعليمة  TODAY

غير معرفة... يمكن ايضا كتابة التاريخ مباشرة

كود :

Query1.close; Query1.SQL.Clear; Query1.SQL.add('SELECT * FROM PRODUCTS WHERE DATE_PROD < '+Quotedstr(DateToStr(Date+6))); Query1.open;

[ramiparadox]

كود :

procedure TForm1.Button1Click(Sender: TObject); var D1,D2: TDateTime; diff: Integer; //الفرق begin Memo1.Lines.Clear; ABSTable1.First; repeat if ABSTable1.Eof=false then begin D1 :=ABSTable1.FieldValues['Date_VEN']; //تاريخ انتهاء صلاحية المادة D2 :=Date; // تاريخ اليوم diff := trunc(D1) - trunc(D2); // trunc حساب الفرق باستعمال الدالة IF D2>D1 THEN Memo1.Lines.Add(ABSTable1.FieldValues['Code_Pro']+' / '+'perime il y a'+ ' : '+ IntToStr(diff)+' '+'jour(s)' ) ; IF D2<D1 THEN Memo1.Lines.Add(ABSTable1.FieldValues['Code_Pro']+' / '+'reste'+ ' : '+ IntToStr(diff)+' '+'jour(s)' ) ; end ; ABSTable1.Next; until ABSTable1.Eof=true; end;