السلام عليكم.اخواني بعد اذنكم كيف يمكن عرض البينات في الداتا2 بشرط لما يوصل التاريخ و التوقيت المسجلين بالحقلين date_in و hour_in .البيان يظهر بالداتا1 لما يوصل التاريخ و التوقيت يظهر تلقائي بالداتا2
و كيف يمكن لو سمحتو اعرض التوقيت فقط بالداتا غريد .هون التوقيت ينعرض معه تاريخ ما ادري ليش
بارك الله فيكم كثيرا
هل تقصد انه تم تخزين تاريخ و وقت بالجدول وتريد انه اذا صار تاريخ اليوم بنفس التاريخ والوقت المخزن يعرض البيانات التي تقع بنفس السجلات؟؟؟؟
نعم اخي سعود الله يبشرك بالخير و البركة .انا قمت بحفظ تاريخ ووقت بقاعدة البينات و لما يصير الوقت و التاريخ يعرض البينات بالداتا 2
شكرا كثيرا اخي سعود و بارك الله فيك على المساعدة كتبها الله بميزان حسناتك.هل ممكن تعدلي فقط على مثالي.ما أريد هو فقط اظهار البيانات يلي فات تاريخهم ووقتهم بالداتاغريد رقم 2.
شوف حدث الفورم لود بعد التعديل
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
conn2018.open()
Dim DepCom As New OleDbCommand("Select * From Factory", conn2018)
Dim DepAdap As New OleDbDataAdapter(DepCom)
Dim DepDT As New DataTable
DepAdap.Fill(DepDT)
DataGridView1.DataSource = DepDT
'=========
Dim DepCom2 As New OleDbCommand("Select * From Factory where [date_in]<#" & Now.ToShortDateString & "# and [hour_in]<#" & Format(Now, "HH:mm") & "#", conn2018)
Dim DepAdap2 As New OleDbDataAdapter(DepCom2)
Dim DepDT2 As New DataTable
DepAdap2.Fill(DepDT2)
DataGridView2.DataSource = DepDT2
End Sub
اعذرني اخي سعود و الله اتعبتك بجد اسف جدا.هو صحيح الكود شغال الىن زي ما اريد بالضبط بقيت جزء صغير و كلو يبقى 100 بال 100.شوف الصورة يلي بها اطار بالاحمر التاريخ 05 مايو لكن لم يظهر الاسم بالداتا رقم 2 .من المفروض لما يحل التاريخ و التوقيت ينعرض الاسم بالداتا رقم 2 و يبقى على طول بالداتا 2 لغاية ما احذفو وهذا شيء ىخر اخي سعود.
اولا اناشد اي مشرف او اداري لديه صلاحية حذف المشاركات المخفية حذفا جذريا وجزاه الله كل خير.
ثانيا اخي الكريم هنا فرق بين الاستعلام عن تاريخ ووقت اللحظة وبين الاستعلام عن ما فات وقته وتاريخه
اي تاريخ يفوت نستعلم عنه بكود اصغر من التاريخ والوقت الحاليين اما = فهو نتيجة مساوية للوقت والتاريخ الحالي.
كود :
For r As Integer = 0 To DepDT.Rows.Count - 1
Dim dm As DateTime = DepDT.Rows(r).Item(6)
Dim tm As DateTime = DepDT.Rows(r).Item(7)
If dm < Now Then
DataGridView2.ColumnCount = 3
DataGridView2.Columns(0).HeaderText = "First Name"
DataGridView2.Columns(1).HeaderText = "Date_in"
DataGridView2.Columns(2).HeaderText = "Hour_in"
DataGridView2.Rows.Add(DepDT.Rows(r).Item(1), dm.ToShortDateString, tm.ToShortTimeString)
End If
Next
شوف التعديل هذا ....بحدث الفورم لود بعد تعبئة القريد الاولى
اخي سعود مساك الله بالخير.جربت تغيير تاريخ ووقت الاسم المسمى مهدية مثلا.شوف اخي سعود ساعة الجهاز لسة 5 و 22 دقيقة . و البيانات مسجلة بالوقت 5 و 25 دقيقة يعني لسة باقي 3 دقائق و مع ذلك الاسم ظاهر بالداتا غريد رقم2
اخي الكريم يبدو انني في وادي بعيد عنك
كتبت الكود ليبحث عن التاريخ القديم فقط يعني اللي تاريخه امس وما قبله يظهر اما الساعة بآخر كود لم اضفه الى الان.
اخي الكريم صممت مثال على السريع الهدف منه معرفة التاريخ الاحدث و الاقدم وكذلك الوقت هذا كل مااعرفه لعله يختصر علي الطريق وتعرف منه قصدي من كتابة الاكواد
كود :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim m1 As DateTime = CDate(t1.Text)
Dim m2 As DateTime = CDate(t2.Text)
If Format(m1, "HH:mm") > Format(m2, "HH:mm") Then
Label1.Text = t1.Text
Label2.Text = t2.Text
Else
Label1.Text = t2.Text
Label2.Text = t1.Text
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim m1 As DateTime = CDate(d1.Text).ToShortDateString
Dim m2 As DateTime = CDate(d2.Text).ToShortDateString
If m1 > m2 Then
La.Text = d1.Text
Ol.Text = d2.Text
Else
La.Text = d2.Text
Ol.Text = d1.Text
End If
End Sub
End Class
