المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : ادخال تاريخ بدل الرقم


hamam2008
28-08-2010, 11:35 AM
السلام عليكم
استعمل التعليمة التالية في sql في حالة الطباعة حيث أقوم بإدخال الرقم في edit
FORM3.Query1.SQL.Clear ;
FORM3.Query1.SQL.Add('select *');
FORM3.Query1.SQL.Add('from CLIENT ' );
FORM3.Query1.SQL.Add('where n= '+edit3.Text+'');
FORM3.Query1.Active:=true ;
FORM3.QuickRep1.PrEVIEW ;

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

Lam.Abdeldjalil
28-08-2010, 01:09 PM
و عليكم السلام و رحمة الله

بإعتبار أن n حقل من نوع تاريخ صحح السطر بالنسبة للأكسس

FORM3.Query1.SQL.Add('where n= #'+(edit1.Text )+'#');قاعدة أخرى

FORM3.Query1.SQL.Add('where n= '+#39+(edit1.Text )+#39);التاريخ يكتب بالصيغة : dd/mm/yyyy أو dd-mm-yyyy

بالتوفيق

maosalah
28-08-2010, 07:33 PM
السلام عليكم ورحمة الله وبركاته

يمكن استعمال هده الدالة


function DateTimeForSQL(const dateTime : TDateTime) : string;
begin
result := FormatDateTime('#yyyy-mm-dd hh.nn.ss#', dateTime) ;
end;


SQL Query

FORM3.Query1.SQL.Add('where n= '+DateTimeForSQL(edit3.Text)+'');


بالتوفيق

hamam2008
30-08-2010, 07:21 PM
بارك الله فيكم الحل 100\100