منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكلة في البحث بالتاريخ ____وايضا ___

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

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

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

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

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

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

مع الشكر

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

كود :

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

(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

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

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

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

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

اذا كنت غير ملزم بالزمن، فقم اولا باستبدال قاعدة البيانات بالمرفقات
واحرص عند اضافة أي تاريخ أن يكون 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

(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

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

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

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

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

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

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

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

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

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

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