السلام عليكم ورحمة الله و بركاته
عندي طلب
عايز اظهر فورم عند بدأ البرنامج يظهر فيه العاملين اللى تاريخ انتهاء الهوية فيه اقل من شهر
عن طريق انه يبجث فى جدول العاملين
تفضل اخي :
كود :
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 الى اسم حقل تاريخ الانتهاء
http://vb4arb.com/vb/showthread.php?tid=...#pid166300