اظهار البيانات حسب التاريخ باستخدام الكلندر

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default اظهار البيانات حسب التاريخ باستخدام الكلندر

مُساهمة من طرف نصر اسماعيل في السبت نوفمبر 25, 2006 12:51 pm

السلام عليكم
اخوتي الكرام نتكلم اليوم عن اظهار بيانات حسب تاريخ محدد بالاعتماد
على الاداة (Calendar) وهي طريقة سهلة الاستخدام وممتعة في نفس الوقت
العناصر الطلوبة
1 قاعدة بيانات تحتوي على جدول اسمه مواعيد وفيه حقل التاريخ
طبعاً يمكنكم اضافة حقول اخرى حسب رغبتكم
املئ بعض الحقول بعدة بيانات وذلك لاظهارها اثناء تنفيذ البرنامج
ملاحظة طريقة كتابة التاريخ في حقل التاريخ يكون على النسق التالي
(18/01/06)
2 افتح مشروع فيجول جديد وضع فيه العناصر التالية
- اضف الاداة (data) الى المشروع واربطها بقاعدة البيانات
- اضف الاداة(Calendar) الى صندوق الادوات ثم ضعها في الفورم
- اضف الاداة (DBGrid1) الى صندوق الادوات ثم ضعها في الفورم واربطها بـ (data1)
- اضف تكست (text1) واجعله مخفي
- اكتب الكود التالي
Private Sub Calendar1_Click()
Text1.Text = Calendar1
Data1.RecordSource = "المواعيد"
Data1.Refresh
Dim A
A = Text1.Text
Data1.RecordSource = "select * from المواعيد where التاريخ ='" & A & "'"
Data1.Refresh
End Sub

Private Sub Form_Load()
Calendar1 = Date
End Sub
طريقة عمل البرنامج
لنفترض انك قد ادخلت بيانات مسبقة في حقل التاريخ ولتكن على النحو التالي
والتي سوف تظهر لك في (DBGrid1)
08/11/06
09/11/06
11/11/06
11/11/06
05/01/06
06/01/06
11/11/06
لاحظ اخي الكرم ان البيانات ليست متسلسلة تماماً وقد قصدت ذلك حتى
ابين لك بان ترتيب البيانات غير مهم في موضوعنا هذا
لنفترض اننا نريد اظهار البيانات الموجودة ضمن تاريخ 11/11/06 حدد في
الكالندر السنة والشهر المطلوب ثم اضغط على اليوم المطلوب لتجد بان الجدول
لا تظهر فيه سوى البيانات التي توافق التاريخ الذي اردته
بهذا يكون العمل جاهز
اي استفسار انا جاهز
تحياتي لكم

_________________
نصر اسماعيل
naser-70@scs-net.org
avatar
نصر اسماعيل
مشرف منتدى قواعد البيانات
مشرف  منتدى قواعد البيانات

عدد الرسائل : 70
العمر : 45
تاريخ التسجيل : 21/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: اظهار البيانات حسب التاريخ باستخدام الكلندر

مُساهمة من طرف دغيلب في الخميس فبراير 22, 2007 12:34 pm

أخي الحبيب عند التنفيذ تظهر رسالة خطأ عند Data1.refresh أرجو حل المشكلة وجزاك الله خير

دغيلب
عضو
عضو

عدد الرسائل : 3
تاريخ التسجيل : 21/02/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى