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

نسخة كاملة : البحث عن جزء من التاريخ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم

اخواني واساتذتي الفضلاء ، استخدم اداة ADODC مربوطة بقاعدة بيانات Access تحتوي على حقل يسمى Date .
المطلوب : البحث عن جزء من أي تاريخ مسجل داخل الحقل Date ، وليكن ( الشهر والسنة )

فأفيضوا عليَ من علمكم وعلموني مما علمَكم الله
السلام عليكم ورحمة الله وبركاته


ارفع مثالك اخي


بالتوفيق
بسم الله الرحمن الرحيم

تفضل اخي المثال

[ATTACH=CONFIG]407[/ATTACH]

وشكرا جزيلا لتفاعلك معي
ينقل للقسم المناسب
أخي الكريم أقدم لك كود لتجزئة التاريخ وأرجو من الأخوة الأعضاء كتابة كود البحث بأي جزء من التاريخ

كود :
Text1 = Mid$(Date, 4, 2) 'الشهر
Text2 = Mid$(Date, 7, 4) 'السنة
Text3 = Mid$(Date, 1, 2) 'اليوم
السلام عليكم...

يمكنك استعمال الدالة DatePart ضمن جملة SELECT للحصول على رقم السنة و/أو رقم الشهر و/أو رقم اليوم. و كذلك الدوال Year و Month و Day.
الصيغة العامة للدالة DatePart كالتالي:
كود :
DatePart("interval", DateValue)
حيث interval يحدد نوع المدة، و يمكن أن يكون أحد القيم التالية (بالإضافة إلى قيم أخرى):
"yyyy" للحصول على السنة.
"m" للحصول على الشهر.
"d" للحصول على اليوم.
أما Datevalue فهو التاريخ الذي تريد الحصول منه على السنة أو الشهر أو اليوم.

أما استعمالها في جملة SELECT فهو كالتالي:
كود :
SELECT * FROM tablename WHERE (DatePart("yyyy", [Date]) = 2012) AND (DatePart("m", [Date]) = 2)

أو باستعمال الدالتين Year و Month كالتالي:
كود :
SELECT * FROM tablename WHERE (Year([Date]) = 2012) AND (Month([Date]) = 2)

* [Date] في المثالين السابقين هو اسم الحقل الذي ذكرته في سؤالك. و tablename هو اسم الجدول طبعاً.

* ملاحظة للأخ الكريم عبد الله: لا يمكنك الاعتماد على أن التاريخ دائماً يتكون من 10 خانات (مثل 07/02/2011) لأنه ربما يكون هكذا (7/2/2012) أي 8 خانات فقط. كما أن بعض الدول تكتب الشهر قبل اليوم. إذا أردت تقسيمه بالدالة Mid فيجب تنسيقه أولاً بالدالة Format ليكون في 10 خانات و اليوم قبل الشهر:
كود :
Dim MyDate As String

MyDate = Format$(Date, "dd/mm/yyyy")

' MyDate ثم تقوم بتقسيم

نرجو الاستفادة و السلام.