السلام عليكم ورحمة الله وبركاته
دلوقتي ان عندي جدول فيه تاريخ تقديم وتاريخ استلام
فهل في طريقة اني اعمل بحث بحيث يظهر كل تواريخ الاستلام اليوم
يعني مثلا ان عملت تقديم يوم 20/5/2020
وتاريخ الاستلام يوم 27/5/2020
فهعملزرارلما ادوس عليه يظهر كل تواريخ الاستلام الي مواقفة انهاردة وهكذا مع باقي اليوم يعني لو جيت بكرة دوست علي نفس الزرار يجبلي انهاردة فيه حد هيستلم ولا لا
ولو ينفع اعمل تحديد علي الصف كله بتاع العميل باي لون بحث اميزه انه ده خلاص تم الاستلام واللون يفضل ثابت لما اقفل البرنامج وافتحه تاني
فهل ينفع اعمل حاجة زي دي ان عارف ان حكاية بحث بتاريخ اليوم دي سهلا بس ممكن الصعب معايا تحديد الصف كله بلون معين انه خلاص استلم
أولا :
بالنسبة لإظهار بيانات الجدول التي يوافق تاريخ الاستلام (TransferDate) اليوم الحالي استخدم جملة Select كالتالي :
PHP كود :
"SELECT * FROM اسم الجدول WHERE TransferDate= CURDATE()"
ثانيا :
بالنسبة لتلوين السجل الذي استلم
هل تم عمل حقل أو خانة تدل على أن العميل استلم أم لا ؟؟؟؟
اذا لم يكن كذلك ... اقترح عليك اضافة حقل للجدول من النوع المنطقي (Y/N) لتحديد الحالة أولا
بعد ذلك سيكون من السهولة عمل كل ما تريد من عمليات على قاعدة البيانات
(27-05-20, 01:54 PM)boudyonline كتب : [ -> ]أولا :
بالنسبة لإظهار بيانات الجدول التي يوافق تاريخ الاستلام (TransferDate) اليوم الحالي استخدم جملة Select كالتالي :
PHP كود :
"SELECT * FROM اسم الجدول WHERE TransferDate= CURDATE()"
ثانيا :
بالنسبة لتلوين السجل الذي استلم
هل تم عمل حقل أو خانة تدل على أن العميل استلم أم لا ؟؟؟؟
اذا لم يكن كذلك ... اقترح عليك اضافة حقل للجدول من النوع المنطقي (Y/N) لتحديد الحالة أولا
بعد ذلك سيكون من السهولة عمل كل ما تريد من عمليات على قاعدة البيانات
الف شكر اخي بس بيديني خطاء لما بنفذ مش عارف ليه
السلام عليكم اخي
ضع زر للبحث على التاريخ
وقم بوضع الكود التالي
Cv_Birthday هو اسم الحقل الموجود في قاعدة البيانات الاكسس خاص بالتاريخ قم بتغيره في الكود لفي الاسفل و ان شاء الله تضبط معك
DateTimePicker2
DateTimePicker3
هوما اسماء التاريخ ايضا غيرهما بما انت مسمي التاريخ عندك
Dim dt1 As Date = DateTimePicker2.Value
Dim dt2 As Date = DateTimePicker3.Value
dt.Clear()
da = New OleDbDataAdapter("Select * from table1 where Cv_Birthday >= #" & dt1.Year & "/" & dt1.Month & "/" & dt1.Day & "# and Cv_Birthday <= #" & dt2.Year & "/" & dt2.Month & "/" & dt2.Day & "# order by Cv_Birthday ", con)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("No match found")
Cleardata_table1()
End If
(27-05-20, 03:59 PM)rochdi191 كتب : [ -> ]السلام عليكم اخي
ضع زر للبحث على التاريخ
وقم بوضع الكود التالي
Cv_Birthday هو اسم الحقل الموجود في قاعدة البيانات الاكسس خاص بالتاريخ قم بتغيره في الكود لفي الاسفل و ان شاء الله تضبط معك
DateTimePicker2
DateTimePicker3
هوما اسماء التاريخ ايضا غيرهما بما انت مسمي التاريخ عندك
Dim dt1 As Date = DateTimePicker2.Value
Dim dt2 As Date = DateTimePicker3.Value
dt.Clear()
da = New OleDbDataAdapter("Select * from table1 where Cv_Birthday >= #" & dt1.Year & "/" & dt1.Month & "/" & dt1.Day & "# and Cv_Birthday <= #" & dt2.Year & "/" & dt2.Month & "/" & dt2.Day & "# order by Cv_Birthday ", con)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("No match found")
Cleardata_table1()
End If
شكرا اخي بس ان عاوز اعرض بيانات الصف الي فيه حقل TransferDate موافق لتاريخ اليوم
يعني لما ادوس عليه يظهر كل تواريخ الاستلام الي مواقفة انهاردة وهكذا مع باقي اليوم يعني لو جيت بكرة دوست علي نفس الزرار يجبلي انهاردة فيه حد هيستلم ولا لا
تمام الف شكر ليكم كلكم قدرت الاقي طريقة باستخدام الكود ده فضلت اجرب لحد ما اشتغلت تمام
كود الاخ الفاضل
[b]rochdi191 بس عدلت فيه حد مشتغل بنفس الطريقة الي كنت عاوزها [/b]
كود :
Dim dt As New DataTable()
Dim dt1 As Date = date1.Value
dt.Clear()
Dim da As New OleDbDataAdapter("Select * from Convertcar where TransferDate = #" & Date.Today & "# order by TransferDate ", con)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("No match found")
End If