[علي كعبي]

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

---

هذا هو المثال

[سعود]

(27-05-16, 10:01 PM)علي كعبي كتب : اخي سعود هذا مثالي ارجو منك التعديل علية من نحية البحث في تاريخ المعاملة والبحث بين تاريخين

الاهم هل الفكرة وصلت؟؟
هل نجحت الفكرة بمثال مستقل؟
لان المشروع الكبير لا اضمن حل مشاكله انتظر احد الاخوة.

[علي كعبي]

طبقة الفكرة ولكن عندالبحث لاتطلع نتائج البحث
ولو ممكن تعدل على مثالي حتى لو تم الاستغناء عن بعض الحقول

[الوادي]

يا علي،

أولا: اجعل أسماء الأعمدة من البداية لها معنى ولا تسمي الأعمدة بأحرف مرقمة مثل b1,b2,b3,b4,b5 وغيرها (أعرف أن السبب الكسل).

ثانيا: دائما حقل التاريخ لا تخليه نصي أبدا حتى لو كنت تريد تتعامل مع التاريخ الهجري.

الآن فلتقم بتعديل حقل تاريخ المعاملة في قاعدة البيانات إلى نوع (تاريخ)
وبعدها اسمح جميع التواريخ الموجودة في قاعدة البيانات لأنها ميلادية ولكن شكلها هجري (هذا سبب عدم ظهور نتائج) وقم بتعيينها من جديد.

وهذا كود الزر Button8 الخاص بالبحث بين تاريخين

PHP كود :

Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
    Dim sql As String = "SELECT * FROM [tbl1] WHERE [b4] BETWEEN @d1 AND @d2"
    Dim da As New OleDb.OleDbDataAdapter(sql, con)
    da.SelectCommand.Parameters.AddWithValue("@d1", Me.DateTimePicker2.Value.Date)
    da.SelectCommand.Parameters.AddWithValue("@d2", Me.DateTimePicker3.Value.Date)
    Dim ta As New DataTable
    da.Fill(ta)
    DataGridView1.DataSource = ta
End Sub 


عندما تكون البداية صحيحة فالبرمجة سوف تكون سهلة.

إذا كنت تريد إظهار التاريخ الهجري في داخل الأكسس إذهب إلى [ملف] ثم [خيارات] ثم [إعدادات العميل] وسوف تجد في مجموعة [تحرير] سطر "استخدام التاريخ الهجري" قم بتفعيله.

[علي كعبي]

اخي الوادي
اين اجد اعدادات العميل

---

كود البحث لايظهر النتائج ياخي الوادي

---

حولة الحقل الى وقت وتاريخ لكن لم تطلع نتائج البحث

[علي كعبي]

تم حل المسالة ولكن عند تحديد مثل من بداية تاريخ 12/08/1437 الى تاريخ 21/08/1437
تظهر جميع التواريخ من بعد تاريخ 12/08/1437 اي ان المعاملة التي بهذا التاريخ لاتظهر الى اذ وضعت من تاريخ يوم قبله

---

وهذه الاكواد للفائدة

البحث بين تاريخين في حقل نصي
dt.Clear()
Dim sql As String = "select * from tbl1 where b4 BETWEEN '" & DateTimePicker2.Value & "' and '" & DateTimePicker3.Value & "'"
Dim da As New OleDb.OleDbDataAdapter(sql, con)
da.Fill(dt)
DataGridView1.DataSource = dt



البحث في تاريخ في حقل نصي

dt.Clear()
Dim sql As String = "select * from tbl1 where b4='" & DateTimePicker1.Value & "'"
Dim da As New OleDb.OleDbDataAdapter(sql, con)
da.Fill(dt)
DataGridView1.DataSource = dt

---

طيب كيف اضع رسالة عند عدم وجود معاملة بهذا التاريخ

---

هل من حل لعمل رسالة

[علي كعبي]

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