+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : فورم تنبيه باقتراب التاريخ (/showthread.php?tid=36481)
فورم تنبيه باقتراب التاريخ - khaled Mohammed - 21-09-20
السلام عليكم ورحمة الله و بركاته
عندي طلب
عايز اظهر فورم عند بدأ البرنامج يظهر فيه العاملين اللى تاريخ انتهاء الهوية فيه اقل من شهر
عن طريق انه يبجث فى جدول العاملين
RE: فورم تنبيه باقتراب التاريخ - Anas Mahmoud - 21-09-20
تفضل اخي :
كود :
Dim query As String = "SELECT * FROM Employees
WHERE DateValue(ExpDate) <= DateValue(DATEADD('d',30, now()))
AND DateValue(ExpDate) >= DateValue(now())"
Dim cmd As New OleDbCommand(query, Con)
Dim da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable
Dim RowCount As Integer
Con.Open()
RowCount = da.Fill(dt)
Con.Close()
If RowCount > 0 Then
'عرض تفاصيل الوثائق
DataGridView1.DataSource = dt
End Ifغير Employees الى اسم الجدول و ExpDate الى اسم حقل تاريخ الانتهاء
https://vb4arb.com/vb/showthread.php?tid=36232&pid=166300#pid166300