[vbnet]

-
منقول مع تعديل بسيط ليناسب طلبك





استبدل (Val(Me.TextBox1.Text في السطر المشار إليه برقم لعدد الأيام
اسم الجدول table1
اسم حقل تاريخ الانتهاء date2 نوعه تاريخ
ملاحظة: الحقل remDays ليس حقل في الجدول وإنما حقل فقط مع ناتج الاستعلام لمعرفة عدد الأيام المتبقية

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.ListBox1.Items.Clear()

    Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;")

    Dim sql As String = " SELECT *, DATEDIFF('d',Now(),[date2]) AS remDays  " & _
                        " FROM   [table1] " & _
                        " WHERE  DATEDIFF('d',Now(),[date2]) <= @days " & _
                        " ORDER BY [date2] "

    Dim com As New OleDb.OleDbCommand(sql, conn)
    com.Parameters.AddWithValue("@days", Val(Me.TextBox1.Text)) '<<<<<<<<< حدد عدد الأيام

    Dim dt As New DataTable
    Dim da As New OleDb.OleDbDataAdapter(com)
    If da.Fill(dt) > 0 Then

        For Each r As DataRow In dt.Rows
            Me.ListBox1.Items.Add(r("date2") & " (" & r("remDays") & ") = " & r("name"))
        Next

        MessageBox.Show("يوجد عدد [" & dt.Rows.Count & "] اقترب موعد انتهائها" & vbNewLine & _
                        "وأقربها بقي له [" & dt.Rows(0).Item("remDays") & "] يوم/أيام")

    End If

End Sub