27-05-16, 10:01 PM
الصفحات : 1 2
27-05-16, 10:03 PM
(27-05-16, 10:01 PM)علي كعبي كتب : [ -> ]اخي سعود هذا مثالي ارجو منك التعديل علية من نحية البحث في تاريخ المعاملة والبحث بين تاريخين
الاهم هل الفكرة وصلت؟؟
هل نجحت الفكرة بمثال مستقل؟
لان المشروع الكبير لا اضمن حل مشاكله انتظر احد الاخوة.
27-05-16, 10:10 PM
طبقة الفكرة ولكن عندالبحث لاتطلع نتائج البحث
ولو ممكن تعدل على مثالي حتى لو تم الاستغناء عن بعض الحقول
ولو ممكن تعدل على مثالي حتى لو تم الاستغناء عن بعض الحقول
27-05-16, 10:53 PM
يا علي،
أولا: اجعل أسماء الأعمدة من البداية لها معنى ولا تسمي الأعمدة بأحرف مرقمة مثل b1,b2,b3,b4,b5 وغيرها (أعرف أن السبب الكسل).
ثانيا: دائما حقل التاريخ لا تخليه نصي أبدا حتى لو كنت تريد تتعامل مع التاريخ الهجري.
الآن فلتقم بتعديل حقل تاريخ المعاملة في قاعدة البيانات إلى نوع (تاريخ)
وبعدها اسمح جميع التواريخ الموجودة في قاعدة البيانات لأنها ميلادية ولكن شكلها هجري (هذا سبب عدم ظهور نتائج) وقم بتعيينها من جديد.
وهذا كود الزر Button8 الخاص بالبحث بين تاريخين
عندما تكون البداية صحيحة فالبرمجة سوف تكون سهلة.
إذا كنت تريد إظهار التاريخ الهجري في داخل الأكسس إذهب إلى [ملف] ثم [خيارات] ثم [إعدادات العميل] وسوف تجد في مجموعة [تحرير] سطر "استخدام التاريخ الهجري" قم بتفعيله.
أولا: اجعل أسماء الأعمدة من البداية لها معنى ولا تسمي الأعمدة بأحرف مرقمة مثل 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
عندما تكون البداية صحيحة فالبرمجة سوف تكون سهلة.
إذا كنت تريد إظهار التاريخ الهجري في داخل الأكسس إذهب إلى [ملف] ثم [خيارات] ثم [إعدادات العميل] وسوف تجد في مجموعة [تحرير] سطر "استخدام التاريخ الهجري" قم بتفعيله.
28-05-16, 01:20 AM
اخي الوادي
اين اجد اعدادات العميل
كود البحث لايظهر النتائج ياخي الوادي
حولة الحقل الى وقت وتاريخ لكن لم تطلع نتائج البحث
اين اجد اعدادات العميل
كود البحث لايظهر النتائج ياخي الوادي
حولة الحقل الى وقت وتاريخ لكن لم تطلع نتائج البحث
28-05-16, 02:00 AM
تم حل المسالة ولكن عند تحديد مثل من بداية تاريخ 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
طيب كيف اضع رسالة عند عدم وجود معاملة بهذا التاريخ
هل من حل لعمل رسالة
تظهر جميع التواريخ من بعد تاريخ 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
طيب كيف اضع رسالة عند عدم وجود معاملة بهذا التاريخ
هل من حل لعمل رسالة
28-05-16, 01:22 PM
هل من مجيب عن كود التحقق من وجود التاريخ في قاعدة البيانات
الصفحات : 1 2