مشكلة البحث بين تاريخين

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

ok مشكلة البحث بين تاريخين

مُساهمة من طرف braveheart880 في السبت مايو 10, 2014 3:26 pm

السلام عليكم و رحمة الله و بركاته قمت بعمل برنامج على الفيجوال بيسك 6 يشمل قاعدة بيانات اكسس و قد قمت بإضافة ازرار للبحث و اظهار السجلات بين التاريخ الحالي الى شهر منه(لمدة شهر من التاريخ الحالي) .. المشكله انه يظهر تواريخ اكثر من شهرولا ادري سبب ذلك راجيا المساعده علما ان الكود الذي استخدمه هو :
Dim d1, d2 As String
d1 = Date
d2 = DateAdd("m", 1, Date)
Adodc1.RecordSource = "SELECT *FROM tele WHERE [ID end date] between " & d1 & " AND #" & d2 & "#"


Adodc1.CommandType = adCmdText

Adodc1.Refresh


عدل سابقا من قبل braveheart880 في الأحد مايو 11, 2014 6:42 pm عدل 1 مرات (السبب : تم حل المشكله مع كل المحبة)
avatar
braveheart880
.
.

تاريخ التسجيل : 10/05/2014
المساهمات : 2
النقاط : 4
التقيم : 0
الدولة : الاردن
الجنس : ذكر

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

ok رد: مشكلة البحث بين تاريخين

مُساهمة من طرف محمد يوسف في السبت مايو 10, 2014 7:09 pm

أستخدم الدالة Format 

الكود:
Dim edate, stdate, d2 As String

d2 = DateAdd("m", 1, Date)


  stdate = Format(Date, "mm/dd/yyyy")
  edate = Format(d2, "mm/dd/yyyy")
  
  
Adodc1.RecordSource = "SELECT *FROM tele WHERE [ID end date] between " & stdate & " AND #" & edate & "#"

بشرط ان يكون الحقل ID end date من نوع date و بنفس التنسيق المستخدم فى الكود اعلاه mm/dd/yyyy
avatar
محمد يوسف
...
...

تاريخ التسجيل : 08/12/2013
المساهمات : 38
النقاط : 66
التقيم : 12
الدولة : السودان
الجنس : ذكر

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

ok رد: مشكلة البحث بين تاريخين

مُساهمة من طرف braveheart880 في الأحد مايو 11, 2014 6:40 pm

بارك الله فيك لقد ابدعت و تم حل المشكلة ... بس للاستفسار فقط ذكرت ان يكون الحقل ID end date من نوع date و بنفس التنسيق المستخدم فى الكود اعلاه mm/dd/yyyy  هل تعني في قاعدة البيانات ام في البرنامج ... و السؤال الثاني انت تعلم اخي الحبيب اننا نعتمد التاريخ بهذا الشكل dd/mm/yyy  فهل يؤثر ذلك
avatar
braveheart880
.
.

تاريخ التسجيل : 10/05/2014
المساهمات : 2
النقاط : 4
التقيم : 0
الدولة : الاردن
الجنس : ذكر

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

ok رد: مشكلة البحث بين تاريخين

مُساهمة من طرف محمد يوسف في الأحد مايو 11, 2014 6:58 pm

جزاكم الله خيرا .....يمكنك تنسيق التاريخ سواء فى قاعدة البيانات أو في البرنامج المهم عند المقارنة من خلال جملة الاستعلام يكون التنسيق واحد ....كما يمكنك أن تجعل قيمة الحقل ID end date من نوع String لتقبل أى تنسيق من خلال شفرة البرنامج

أما من ناحية أن تنسيق التاريخ لديك dd/mm/yyy يمكنك تعديلة فى الكود ليصبح كما تريد ....على النحو التالى :

الكود:
stdate = Format(Date, "dd/mm/yyy")

المهم ان يكون قيمة الحقل فى قاعدة البيانات بنفس التنسيق فى جملة الاستعلام

avatar
محمد يوسف
...
...

تاريخ التسجيل : 08/12/2013
المساهمات : 38
النقاط : 66
التقيم : 12
الدولة : السودان
الجنس : ذكر

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

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


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