[khaled12345]

اريد البحث بالتاريخ ____وايضا ____ بين تاريخين من العمود الذي اسمه  Start  في الجدول 



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



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



اريد البحث بالتاريخ ____وايضا ____ بين تاريخين من العمود الذي اسمه  Start

 

لكن للاسف مش عاوزة تضبط معايا 



برجاء فحص المرفقات 



مع الشكر

[alma2]

هل أنت ملزم بالوقت لأنه سبب المشكلة في البحث

كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        dt.Clear()
        da = New OleDbDataAdapter("SELECT * FROM [SIR] WHERE [Start] BETWEEN @dFrom AND @dTo ", con)
        da.SelectCommand.Parameters.AddWithValue("@dFrom", Start_From.Value.Date)
        da.SelectCommand.Parameters.AddWithValue("@dTo", Start_to.Value.Date)
        If da.Fill(dt) = 0 Then
            Load_Data()
            MsgBox("No match found")
        End If
    End Sub

[khaled12345]

(24-05-17, 12:33 AM)alma2 كتب : هل أنت ملزم بالوقت لأنه سبب المشكلة في البحث

كود :

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       dt.Clear()
       da = New OleDbDataAdapter("SELECT * FROM [SIR] WHERE [Start] BETWEEN @dFrom AND @dTo ", con)
       da.SelectCommand.Parameters.AddWithValue("@dFrom", Start_From.Value.Date)
       da.SelectCommand.Parameters.AddWithValue("@dTo", Start_to.Value.Date)
       If da.Fill(dt) = 0 Then
           Load_Data()
           MsgBox("No match found")
       End If
   End Sub

تسلم ايديك يا هندسة الكود تمام بالنسبة للبحث بين تاريخين

فبعد اذنك ازاي اضبطها للبحث بالتاريخ فقط

وانا غير ملزم بالزمن

ولك كل الحب والاحترام

[alma2]

اذا كنت غير ملزم بالزمن، فقم اولا باستبدال قاعدة البيانات بالمرفقات
واحرص عند اضافة أي تاريخ أن يكون Date فقط لتفادي حدوث مشكلة البحث مستقبلا

كود :

   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
       dt.Clear()
       da = New OleDbDataAdapter("SELECT * FROM [SIR] WHERE [Start] = @start ", con)
       da.SelectCommand.Parameters.AddWithValue("@start", start.Value.Date)
       If da.Fill(dt) = 0 Then
           Load_Data()
           MsgBox("No match found")
       End If
   End Sub

[khaled12345]

(24-05-17, 02:10 AM)alma2 كتب : اذا كنت غير ملزم بالزمن، فقم اولا باستبدال قاعدة البيانات بالمرفقات
واحرص عند اضافة أي تاريخ أن يكون Date فقط لتفادي حدوث مشكلة البحث مستقبلا


=========================================================

الف الف الف  مليون شكر علي مجهوداتك الرائعة أخي الحبيب

انا فاهم حضرتك تماما لكن

انا كنت باقصد ان عامل الزمن مش مهم في البحث نفسه لاني اريد البحث باليوم  فقط  ومش مهم الزمن

ولكن العمود الذي اتعامل معه للبحث داخل الجدول لازم يكون فيه الزمن موجود

لكن في البحث فقط اريد البحث باليوم ولا يهم البحث بالزمن

مع فائق الاحترام والشكر

 

كود :

   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
       dt.Clear()
       da = New OleDbDataAdapter("SELECT * FROM [SIR] WHERE [Start] = @start ", con)
       da.SelectCommand.Parameters.AddWithValue("@start", start.Value.Date)
       If da.Fill(dt) = 0 Then
           Load_Data()
           MsgBox("No match found")
       End If
   End Sub

[alma2]

اذا كان لا يهم البحث بالزمن مع وجودة في قاعدة البيانات فلا داعي لوضع Format لأداة DateTimePicker يشمل الزمن

جرب هذه الطريقة في المرفقات ، قد تناسبك

[khaled12345]

تمام  تمام يا هندسة يعمل

 والطريق مناسبة والحمد لله


وبارك الله فيك يارب

مع جزيل الاحترام والشكر والحب

[khaled12345]

(24-05-17, 01:22 PM)khaled12345 كتب : تمام  تمام يا هندسة يعمل

 والطريق مناسبة والحمد لله


وبارك الله فيك يارب

مع جزيل الاحترام والشكر والحب