استعلام عن طريق التاريخ

أخي الكريم

لم افهم المشكلة بالضبط و لكن سأحاول أن أرد بالطريقة التالية

-اذا المشكلة التي تواجهك أن الكود يعرض رسالة خطأ و لا ينفذ عند ذلك من الأفضل تمرير التاريخ كباراميتر إلى الإستعلام و إن شاء الله سينفذ

=====================
iQuery:=TADOQuery.create(nil);
iQuery.Connection:=iConnection;
iQuery.SQL.Text:='SELECT * FROM mytable where UserName=(:Param1) AND MyDate=(:Param2)’;
iQuery.ParamByName(‘Param1’).Value:=Trim(Self.Edit.Text);
iQuery.ParamByName(‘Param2’).Value:=Trim(Self.Edit2.Text);
iQuery.Open;

- إذا المشكلة التي تواجهك هي أن الإستعلام ينفذ و لكن لا يعرض نتائج رغم تأكدك من ظهور نتائج إذن عليك بالتأكد من صيغة التاريخ DateFormat

DateSeparator:=’/’;
ShortDateFormat:=’mm/dd/yyyy’;

أرجو ان المشكلة تحل معك و اذا كانت إجابتك لا فارجو توضيح المشكلة أكثر...

المهندس/خالد

مش فاهمه ولا شيء يا بشمهندس

ياليت توضح لي

فأنا استخدم SQL Server كقاعدة بيانات

وايضا ,.. استخدم الConnection بقاعدة البيانات عن طريق الADo Code

اخي خالد العبدالله تذكر انننا في منتدى فيجوال بيسك واكوادك ليست اكواد فيجوال بيسك

أخي السلام عليكم

عليك عمل التالي

 rs.Open "select * from tb_EmpDays where ID_Employee='" & Trim(Text1.Text) & "' and EDate='" & Trim(Date) & "'", DB, adOpenStatic, adLockOptimistic
rs.Refresh
rs.Close

لا بد من عملية التحديث واغلاق الاتصال

أرجو ان اكون فد افدتك وشكرا

أخوك .::. AzzD .::.

يعني الجملة صحيحه

طريقة الاستعلام عن تاريخ صحيح

؟؟

بارك الله فيكم

عند استخدام التاريخ يكتب قبله وبعده علامة #

مثلا

 rs.Open "select * from tb_EmpDays where ID_Employee='" & Trim(Text1.Text) & "' and EDate='#" & Trim(Date) & "'#", DB, adOpenStatic, adLockOptimistic

بس هذا الشي ما بضبط على قاعدة بيانات من نوع SQL Server

؟؟

زي ما قلتلك اختي رزان

لا بد من اضافة التحديث واغلاق الاتصال بعد جملة الاستعلام لضمان عملية استمرار الاستعلام