تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عملية البحث بين تاريخين
#1
السلام عليكم ورحمة الله وبركاتة الاخوة الاحباب

عملت مشروع صضغير للبحث بالتاريخ  والحمد لله نجح في البحث

وايضا البحث بين تاريخين  ولكن للاسف لم يعمل

فبرجاء المساعدة في هذا الكود

المشروع موجود بالمرفقات

مع الشكر

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


الملفات المرفقة
.rar   Search between two date.rar (الحجم : 94.29 ك ب / التحميلات : 178)
الرد }}}
تم الشكر بواسطة:
#2
كود :
da = New OleDbDataAdapter("Select * from table1 where Date_of_Birth BETWEEN @dFrom AND @dTo ", con)
        da.SelectCommand.Parameters.AddWithValue("@dFrom", Date_Of_Birth_From.Value.Date)
        da.SelectCommand.Parameters.AddWithValue("@dTo", Date_Of_Birth_To.Value.Date)
        da.Fill(dt)
الرد }}}
تم الشكر بواسطة:
#3
(19-05-17, 10:20 PM)alma2السلام عليكم أستاذنا الفاضل مشكور علي الرد والمساعدة وضعت نفس الكود ولكن مع الاسف لم يعمل كتب :
كود :
       da = New OleDbDataAdapter("Select * from table1 where Date_of_Birth BETWEEN @dFrom AND @dTo ", con)
       da.SelectCommand.Parameters.AddWithValue("@dFrom", Date_Of_Birth_From.Value.Date)
       da.SelectCommand.Parameters.AddWithValue("@dTo", Date_Of_Birth_To.Value.Date)
       da.Fill(dt)
الرد }}}
تم الشكر بواسطة:
#4
تأكد التواريخ في قاعدة البيانات
الرد }}}
تم الشكر بواسطة:
#5
(19-05-17, 11:00 PM)alma2 كتب : تأكد التواريخ في قاعدة البيانات


حاضر
الرد }}}
تم الشكر بواسطة:
#6
التواريخ في قاعدة البيانات لديك شهر 2 وشهر 3
الرد }}}
تم الشكر بواسطة:
#7
(19-05-17, 11:02 PM)khaled12345 كتب :
(19-05-17, 11:00 PM)alma2 كتب : تأكد التواريخ في قاعدة البيانات


حاضر



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

راجعت التواريخ في الدات بيس ووجدتها تمام


وايضا الداتا بيس في المرفقات






الملفات المرفقة
.rar   Search between two date.rar (الحجم : 94.36 ك ب / التحميلات : 144)
الرد }}}
تم الشكر بواسطة:
#8
اعطيتك التعديلات لجزء من الكود ولكنك حذفت باقي الكود السابق الذي كان عندك سابقا
ارجع للكود السابق في بداية الموضوع وغير الجزئيو التي اعطيك مع الحفاظ على الباقي

كود :
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim dtp1 As Date = Date_Of_Birth_from.Value
        Dim dtp2 As Date = Date_Of_Birth_to.Value
        dt.Clear()
        da = New OleDbDataAdapter("Select * from table1 where Date_of_Birth BETWEEN @dFrom AND @dTo ", con)
        da.SelectCommand.Parameters.AddWithValue("@dFrom", Date_Of_Birth_From.Value.Date)
        da.SelectCommand.Parameters.AddWithValue("@dTo", Date_Of_Birth_To.Value.Date)
        da.Fill(dt)
        DataGridView1.DataSource = dt

        If dt.Rows.Count = 0 Then
            MsgBox("No match found")
            Load_Data()
        End If
    End Sub
الرد }}}
تم الشكر بواسطة:
#9
(19-05-17, 11:22 PM)alma2 كتب : اعطيتك التعديلات لجزء من الكود ولكنك حذفت باقي الكود السابق الذي كان عندك سابقا
ارجع للكود السابق في بداية الموضوع وغير الجزئيو التي اعطيك مع الحفاظ على الباقي




تمام تمام يا استاذنا

مشكوووووووووور  ويعطيك العافية



كود :
   Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
       Dim dtp1 As Date = Date_Of_Birth_from.Value
       Dim dtp2 As Date = Date_Of_Birth_to.Value
       dt.Clear()
       da = New OleDbDataAdapter("Select * from table1 where Date_of_Birth BETWEEN @dFrom AND @dTo ", con)
       da.SelectCommand.Parameters.AddWithValue("@dFrom", Date_Of_Birth_From.Value.Date)
       da.SelectCommand.Parameters.AddWithValue("@dTo", Date_Of_Birth_To.Value.Date)
       da.Fill(dt)
       DataGridView1.DataSource = dt

       If dt.Rows.Count = 0 Then
           MsgBox("No match found")
           Load_Data()
       End If
   End Sub
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم