[mazentq]

السلام عليكم ورحمة الله وبركاته 
دلوقتي ان عندي جدول فيه تاريخ تقديم وتاريخ استلام
فهل في طريقة اني اعمل بحث بحيث يظهر كل تواريخ الاستلام اليوم 
يعني مثلا ان عملت تقديم يوم 20/5/2020
وتاريخ الاستلام يوم 27/5/2020
فهعملزرارلما ادوس عليه يظهر كل تواريخ الاستلام الي مواقفة انهاردة وهكذا مع باقي اليوم يعني لو جيت بكرة دوست علي نفس الزرار يجبلي انهاردة فيه حد هيستلم ولا لا 
ولو ينفع اعمل تحديد علي الصف كله بتاع العميل باي لون بحث اميزه انه ده خلاص تم الاستلام واللون يفضل ثابت لما اقفل البرنامج وافتحه تاني 
فهل ينفع اعمل حاجة زي دي ان عارف ان حكاية بحث بتاريخ اليوم دي سهلا بس ممكن الصعب معايا تحديد الصف كله بلون معين انه خلاص استلم 

[boudyonline]

أولا :
بالنسبة لإظهار بيانات الجدول التي يوافق تاريخ الاستلام (TransferDate) اليوم الحالي استخدم جملة Select  كالتالي :

PHP كود :

"SELECT * FROM اسم الجدول WHERE TransferDate= CURDATE()" 


ثانيا :
بالنسبة لتلوين السجل الذي استلم
هل تم عمل حقل أو خانة تدل على أن العميل استلم أم لا  ؟؟؟؟
اذا لم يكن كذلك ... اقترح عليك اضافة حقل للجدول من النوع المنطقي (Y/N) لتحديد الحالة أولا
بعد ذلك سيكون من السهولة عمل كل ما تريد من عمليات على قاعدة البيانات

[mazentq]

(27-05-20, 01:54 PM)boudyonline كتب : أولا :
بالنسبة لإظهار بيانات الجدول التي يوافق تاريخ الاستلام (TransferDate) اليوم الحالي استخدم جملة Select  كالتالي :

PHP كود :

"SELECT * FROM اسم الجدول WHERE TransferDate= CURDATE()" 


ثانيا :
بالنسبة لتلوين السجل الذي استلم
هل تم عمل حقل أو خانة تدل على أن العميل استلم أم لا  ؟؟؟؟
اذا لم يكن كذلك ... اقترح عليك اضافة حقل للجدول من النوع المنطقي (Y/N) لتحديد الحالة أولا
بعد ذلك سيكون من السهولة عمل كل ما تريد من عمليات على قاعدة البيانات

الف شكر اخي بس بيديني خطاء لما بنفذ مش عارف ليه

[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

[mazentq]

(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

[rochdi191]

(27-05-20, 06:02 PM)mazentq كتب :

(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

بالتوفيق لك اخي