[Anas Mahmoud]

تفضل اخي :

كود :

      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