منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
منتدى مصر التقني

تعلم لغات البرمجة (الفجوال بيسك 6 و الجافا و دلفى )و الشبكات ونظم المعلومات

سيتم تنشيط حسابات الاعضاء بعد 24 ساعة من التسجيل فى حالة عدم ارسال رابط التنشيط فور انتهاء من عملية التسجيل

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

منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء

اذهب الى الأسفل

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 مرات (السبب : تم حل المشكله مع كل المحبة)
braveheart880
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
محمد يوسف
محمد يوسف
...
...

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

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

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

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

بارك الله فيك لقد ابدعت و تم حل المشكلة ... بس للاستفسار فقط ذكرت ان يكون الحقل ID end date من نوع date و بنفس التنسيق المستخدم فى الكود اعلاه mm/dd/yyyy  هل تعني في قاعدة البيانات ام في البرنامج ... و السؤال الثاني انت تعلم اخي الحبيب اننا نعتمد التاريخ بهذا الشكل dd/mm/yyy  فهل يؤثر ذلك
braveheart880
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")

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

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

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

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

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

مُساهمة من طرف محمد ابو ايمن الأربعاء يونيو 14, 2023 10:42 am

محمد يوسف كتب:السلام عليكم
كيف يمكن تعديل الكود بحيث يصبح كمايلي :

البحث في عمود (الاسم) بين التاريخين في نفس الجدول


أستخدم الدالة 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
محمد ابو ايمن
محمد ابو ايمن
.
.

تاريخ التسجيل : 08/06/2023
المساهمات : 3
النقاط : 7
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

ok [VB6]

مُساهمة من طرف grig الخميس يوليو 13, 2023 4:38 pm

Adodc1.Recordset.Filter = "data >= #" & Format(DTP1.Value, "yyyy-mm-dd") & "# And data <= #" & Format(DTP2.Value, "yyyy-mm-dd") & "#"
Adodc1.RecordSource = Adodc1.Recordset.Filter
 data الحقل الذي تريد البحث فيه
dtp1 dtp2 الاداة DTPicker1 التي يتم البحث منها
grig
grig
.
.

تاريخ التسجيل : 30/03/2019
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة

منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء

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