[محمد اسماعيل]

استخدمت الكود التالي للبحث عن تاريخ بقاعدة البيانات وحذف كل الحقول
ولا يعمل معي

كود :

 ElseIf IsDate(TextBox1.Text.Trim) = True Then
               Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM TB1 WHERE DATENOW_TB  LIKE '%" & Trim$(Format(TextBox1.Text, "dd/MM/yyyy")) & "%'", con)
               con.Open()
               DataSet1.Clear()
               DataAdapter.Fill(DataSet1, "TB1")
               
               con.Close()

[طالب برمجة]

PHP كود :

Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM TB1 WHERE (DATENOW_TB=@d) ", con)
DataAdapter.SelectCommand.Parameters.AddWithValue("@d", CDate(TextBox1.Text)) 


[محمد اسماعيل]

(23-02-18, 10:05 PM)طالب برمجة كتب :

PHP كود :

Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM TB1 WHERE (DATENOW_TB=@d) ", con)
DataAdapter.SelectCommand.Parameters.AddWithValue("@d", CDate(TextBox1.Text)) 


الف شكر علي ردك وشفي اللّة وعفي عن ابنتك وافرح قلبك بشفاؤها

- الطريقة دية بتتوجب وضع التاريخ كامل مش جزء منة
08/06/2017

- وانا عايز بحث لو بجزء من التاريخ 8 مثلا  6 مثلا يظهر شهر او ايام  عشان كدة استخدمت trim للبحث باي جزء او التاريخ كامل

[طالب برمجة]

أشكرك أخي محمد على مشاعرك الجميلة.

ضع عدة أمثلة لكل الاحتمالات للجزء الذي تقصدة فقد تكون طريقة Between هي الحل

[محمد اسماعيل]

(23-02-18, 10:18 PM)طالب برمجة كتب : أشكرك أخي محمد على مشاعرك الجميلة.

ضع عدة أمثلة لكل الاحتمالات للجزء الذي تقصدة فقد تكون طريقة Between هي الحل

ادام اللة المحبة بيننا

التاريخ بيكون بالشكل دة

08/04/2015 03:36:01 م

15/08/2017 03:36:01 م

01/12/2017 03:36:01 م


يبقي لو 2017 يفلتر للسنوات 2017  , ولو  مقطعين 08  ,  يبقي يشهر ييوم او الاثنين معا

[طالب برمجة]

هل الوقت غير ضروري؟

السنة لأنها 4 أرقام واضحة،
لكن وضح "ولو  مقطعين 08  ,  يبقي يشهر ييوم او الاثنين معا"!
فكيف ستفرق بأن المقصود شهروليس يوم خصوصا لو كان الرقم من 1 الى 12 فهي موجود في الشهر واليوم؟

[محمد اسماعيل]

(23-02-18, 10:31 PM)طالب برمجة كتب : هل الوقت غير ضروري؟

السنة لأنها 4 أرقام واضحة،
لكن وضح "ولو  مقطعين 08  ,  يبقي يشهر ييوم او الاثنين معا"!
فكيف ستفرق بأن المقصود شهروليس يوم خصوصا لو كان الرقم من 1 الى 12 فهي موجود في الشهر واليوم؟

لا الوقت غير ضروري الايام او الشهر او السنة

اة  الشهر كدة مقطعين اسف  08/04

الايام مقطع واحد 08

[طالب برمجة]

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

طبعا كثرة الاسئلة مفيدة للتوضيح قبل البدأ في التفكير في الكود

[محمد اسماعيل]

(23-02-18, 10:43 PM)طالب برمجة كتب : لكن عند استخدام اليو والشهر سيحضر لك من جميع السنوات أم تريد ان تكون السنة في حالة عدم كتابة ان تكون السنة الحالية؟

طبعا كثرة الاسئلة مفيدة للتوضيح قبل البدأ في التفكير في الكود

وصلنا لمرجلة Between

خليها بطريقة Between افضل

الكود هيبقي مجهد بالشكل الي طلبتة ولا اريد اكثر عليك

[طالب برمجة]

اعتذر اليك للظرف السابق ذكره

لكن Between تأخذ تاريخين،
في النهاية يمكن بالبرمجة تحقيق ما تريد،

هذا الكود يعطيك ثلاث احتمالات

الاول
لو كتبت التاريخ كامل في مربع النص مثلا 23/2/2018
فسيصبح التاريخ الأول 23/2/2018 والتاريخ الثاني 23/2/2018 متطابقان
أي كانها ليست عملية بين تاريخين

الثاني
لو كتبت 2017 فيتم التعرف عليه على انه سنة
فسيصبح التاريخ الأول بداية السنة 1/1/2017 والتاريخ الثاني نهاية السنة 31/12/2017
هنا العملية بين تاريخين

الثالث
لو كتبت 29/5 وكانت السنة الحالية (2018) بدون كتابتها
فسيصبح التاريخ الأول 29/5/2018 والتاريخ الثاني 29/5/2018
أي انها نفس اليوم المحدد للسنة الحالية وكان العملية ليست بين تاريخين

PHP كود :

Dim d1 As Date = Today, d2 As Date = Today, txt As String = TextBox1.Text.Trim

If IsDate(txt) Then
    d1 = CDate(txt)
    d2 = CDate(txt)

ElseIf IsNumeric(txt) AndAlso Val(txt) > 1900 Then
    d1 = New Date(Val(txt), 1, 1)
    d2 = New Date(Val(txt), 12, 31)

ElseIf txt.Split("/").Count = 2 Then
    Dim s() = txt.Split("/")
    d1 = New Date(Year(Today), Val(s(1)), Val(s(0)))
    d2 = New Date(Year(Today), Val(s(1)), Val(s(0)))

End If

Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM TB1 WHERE DATENOW_TB BETWEEN @d1 AND @d2 ", con)
DataAdapter.SelectCommand.Parameters.AddWithValue("@d1", d1)
DataAdapter.SelectCommand.Parameters.AddWithValue("@d2", d2)

DataSet1.Clear()
DataAdapter.Fill(DataSet1, "TB1")