+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عرض البيانات بشروط (/showthread.php?tid=24819)
الصفحات:
1
2
عرض البيانات بشروط - حافظ حافظ - 05-05-18
السلام عليكم.اخواني بعد اذنكم كيف يمكن عرض البينات في الداتا2 بشرط لما يوصل التاريخ و التوقيت المسجلين بالحقلين date_in و hour_in .البيان يظهر بالداتا1 لما يوصل التاريخ و التوقيت يظهر تلقائي بالداتا2
و كيف يمكن لو سمحتو اعرض التوقيت فقط بالداتا غريد .هون التوقيت ينعرض معه تاريخ ما ادري ليش
بارك الله فيكم كثيرا
RE: عرض البيانات بشروط - حافظ حافظ - 05-05-18
للرفع يرفع الله قدركم
RE: عرض البيانات بشروط - سعود - 05-05-18
هل تقصد انه تم تخزين تاريخ و وقت بالجدول وتريد انه اذا صار تاريخ اليوم بنفس التاريخ والوقت المخزن يعرض البيانات التي تقع بنفس السجلات؟؟؟؟
RE: عرض البيانات بشروط - حافظ حافظ - 06-05-18
نعم اخي سعود الله يبشرك بالخير و البركة .انا قمت بحفظ تاريخ ووقت بقاعدة البينات و لما يصير الوقت و التاريخ يعرض البينات بالداتا 2
RE: عرض البيانات بشروط - حافظ حافظ - 06-05-18
شكرا كثيرا اخي سعود و بارك الله فيك على المساعدة كتبها الله بميزان حسناتك.هل ممكن تعدلي فقط على مثالي.ما أريد هو فقط اظهار البيانات يلي فات تاريخهم ووقتهم بالداتاغريد رقم 2.
RE: عرض البيانات بشروط - سعود - 06-05-18
شوف حدث الفورم لود بعد التعديل
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
RE: عرض البيانات بشروط - حافظ حافظ - 06-05-18
اعذرني اخي سعود و الله اتعبتك بجد اسف جدا.هو صحيح الكود شغال الىن زي ما اريد بالضبط بقيت جزء صغير و كلو يبقى 100 بال 100.شوف الصورة يلي بها اطار بالاحمر التاريخ 05 مايو لكن لم يظهر الاسم بالداتا رقم 2 .من المفروض لما يحل التاريخ و التوقيت ينعرض الاسم بالداتا رقم 2 و يبقى على طول بالداتا 2 لغاية ما احذفو وهذا شيء ىخر اخي سعود.
RE: عرض البيانات بشروط - سعود - 06-05-18
اولا اناشد اي مشرف او اداري لديه صلاحية حذف المشاركات المخفية حذفا جذريا وجزاه الله كل خير.
ثانيا اخي الكريم هنا فرق بين الاستعلام عن تاريخ ووقت اللحظة وبين الاستعلام عن ما فات وقته وتاريخه
اي تاريخ يفوت نستعلم عنه بكود اصغر من التاريخ والوقت الحاليين اما = فهو نتيجة مساوية للوقت والتاريخ الحالي.
كود :
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شوف التعديل هذا ....بحدث الفورم لود بعد تعبئة القريد الاولى
RE: عرض البيانات بشروط - حافظ حافظ - 06-05-18
اخي سعود مساك الله بالخير.جربت تغيير تاريخ ووقت الاسم المسمى مهدية مثلا.شوف اخي سعود ساعة الجهاز لسة 5 و 22 دقيقة . و البيانات مسجلة بالوقت 5 و 25 دقيقة يعني لسة باقي 3 دقائق و مع ذلك الاسم ظاهر بالداتا غريد رقم2
RE: عرض البيانات بشروط - سعود - 06-05-18
اخي الكريم يبدو انني في وادي بعيد عنك
كتبت الكود ليبحث عن التاريخ القديم فقط يعني اللي تاريخه امس وما قبله يظهر اما الساعة بآخر كود لم اضفه الى الان.
اخي الكريم صممت مثال على السريع الهدف منه معرفة التاريخ الاحدث و الاقدم وكذلك الوقت هذا كل مااعرفه لعله يختصر علي الطريق وتعرف منه قصدي من كتابة الاكواد
كود :
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