الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

المساعدة في حل مشكلة كود [ بحث التاريخ في القاعدة

مغلق
بدأه العالم في 1 مارس 2007 · 1 رد · 383 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

اردت ان اعرف الكود الذي يقوم بالبحث عن تاريخ معين في قاعدة البيانات واستعراض قيمة معينةمن حقل آخر وهذا الكود كلتالي :

If rc.State = adStateOpen Then rc.Close
 rc.Open "SELECT * FROM [tblrot] WHERE [fdate] = #" & Month(Now) & "/" & Day(Now) - 1 & "/" & Year(Now) & "#", cn, adOpenStatic, adLockReadOnly
 Text2.Text = rc!num

حيث tblrot اسم الجدول

fdate حقل التاريخ

num حقل الرقم في ذلك الجدول .

ولكن المطلوب هنا لو بحثت في القاعدة ولم اجد التاريخ المطلوب كما في الاستعلام اريد ان يعرض لي رسالة ولكنني لم الطريقة لها ... واما اذا وجدت ذلك التاريخ يتم استعراض قيمة الحقل num في مربع النص text2

ارجوا لمساعدة

وشكرا

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#2

الأخ الفاضل ...

جرب الكود 

If rc.State = adStateOpen Then rc.Close
rc.Open "SELECT * FROM [tblrot] WHERE [fdate] = #" & Month(Now) & "/" & Day(Now) - 1 & "/" & Year(Now) & "#", cn, adOpenStatic, adLockReadOnly
If rc.EOF Then
	MsgBox "Not found"
Else
	Text2.Text = rc!num
End If

كذلك يمكنك أستخدام

rc.Open "SELECT * FROM [tblrot] WHERE [fdate] = #" & DateValue(Now) & "#", cn, adOpenStatic, adLockReadOnly

أو

rc.Open "SELECT * FROM [tblrot] WHERE [fdate] = #" & Format(Now, "m/d/yyyy") & "#", cn, adOpenStatic, adLockReadOnly

شكراً

تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 1 مارس 2007 في 10:28

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…