16-12-12, 06:28 AM
السلام عليكم ورحمة الله وبركاته
تفضل التنبيه بعدد السجلام فقط غير عدد الأيام التي تريد التحقق منها باللون الأحمر - مجرب الكود وشغال تمام
السلام عليكم ورحمة الله وبركاته
تفضل التنبيه بعدد السجلام فقط غير عدد الأيام التي تريد التحقق منها باللون الأحمر - مجرب الكود وشغال تمام
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim c As Integer = CheckColumnDate( [color=#FF0000][b]3[/b][/color] )
If c > 0 Then
MessageBox.Show("يوجد سجلات عدد ( " & c & " ) إقترب موعدها." _
, "تنبيه" _
, MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign Or MessageBoxOptions.RtlReading)
End If
End Sub
Private Function CheckColumnDate(ByVal days As Integer) As Integer
Dim sql As String = " SELECT * " & _
" FROM table1 " & _
" WHERE [columndate] BETWEEN NOW() AND DateAdd('d', @days, NOW()) "
Dim comm As New OleDb.OleDbCommand(sql, conn)
comm.Parameters.AddWithValue("@days", days)
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter(comm)
da.Fill(dt)
Return dt.Rows.Count
End Functionالسلام عليكم ورحمة الله وبركاته