[حافظ حافظ]

السلام عليكم.اخواني بعد اذنكم كيف يمكن عرض البينات في الداتا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