سؤال فى الفلكس جريد عن طريق الادوا

للرفع

انتظر جاري التحميل .........................

اخي العزيز حسب فهمي لموضوعك

Set rs = New ADODB.Recordset
rs.Open "select * from Mezania where date=#" & Text1.Text & "#", db, adOpenStatic, adLockPessimistic
Set MSHFlexGrid2.Recordset = rs

ضع هذا الكود في كوماند جديد وللتغيير الى خيارات التاريخ اكبر او اصغر من التاريخ المدخل في مربع النص فقط غير اشارة المساواة

الى < = > كما تريد

واي استفسار انا مستعد

اخى العزير اريد اظهار جميع التواريخ الموجودة النتشابهة فقط

مثال يوجد داخل القاعدة ثلاثة تواريخ هم (1/1/2000 - 2/1/2000 - 1/1/2000) ولنفترض ان ادخل التاريخ 1/1/2000 فى التكت بوكس وعند الضغط على الزر يظهر فى الفلكس جريد الثانى التاريخين بس ولم يظهر 2/1/2000

وشكرااا

ارجوا ان اكون وضحت ما المطلوب وشكرااا لك اخى العزيز

بليززززز وضح اكثر الكود هل هو يقضي الغرض ام لا

ارجو ا لرد وتوضيح ا لفكره

لا اخى العزيز

انا ريد نتيجة البحث فقط كل التواريخ المتشابهة التى اريدت ان ابحث عنها فى التيكت بوكس

اخي العزيز لو جربت لوجدت ان البحث الذي اعطيتك الكود

يظهر لك كل التواريخ المكتوبه في مربع النص

ولقد جربت وظهر لدي بشكل ممتاز

فى اerror run time فى كود البحث الذى ارسلتة

الفوارس كتب:

اخي العزيز حسب فهمي لموضوعك

Set rs = New ADODB.Recordset
rs.Open "select * from Mezania where date=#" & Text1.Text & "#", db, adOpenStatic, adLockPessimistic
Set MSHFlexGrid2.Recordset = rs

ضع هذا الكود في كوماند جديد  وللتغيير الى خيارات التاريخ اكبر او اصغر من التاريخ المدخل في مربع النص  فقط غير اشارة المساواة

الى  < = > كما تريد

واي استفسار انا مستعد

←

اصبح هذا الكود الصحيح ---------------> اشكرك اخى الفوارس على بداية الكود

If rs.State = adStateOpen Then rs.Close

SQL = "select * From [Mezania] Where [Date]=#" & Trim(Text1.Text) & "#"

rs.Open SQL, db, adOpenStatic, adLockPessimistic

Set MSHFlexGrid2.Recordset = rs