[abuadnan166]

(21-05-14, 11:25 PM)vb_net كتب : يجب ان تعدل تاريخ الانتهاء يكون 30 يوم بينه وبين تاريخ انتهاء هدا لتجرب النتيجة

لانه هناك شرط حددنا فيه 30 يوم ادا كانت اقل او اكثر لن تاتي الرسالة

راج اجرب حبييبي واشوف

[vbnet]

-
هل تستخدم قاعدة بيانات Access أوSQLServer ؟
-

[abuadnan166]

(22-05-14, 12:58 AM)vbnet كتب : -
هل تستخدم قاعدة بيانات Access أوSQLServer ؟
-

Access

[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

[abuadnan166]

مشكور حبيبي راح ادرسها كيف واشوف انشالله تزبط ماقصرت ربي يحفظك تعبتك معاي الله يجازيك الجنة يارب

[abuadnan166]

مرحبا حبيبي انا مأشر على تاريخ الأنتهاء لي الرخصه اوك ضغط عليه مرتين وحطيت الكود الي جبته لي طيب الحين شنو اغير فيه ..
الفورم


وهذا الكود ..

[yoyo1415]

سلام عليكم
اريد المساعدة اريد ملف لتنبية بانتهاء التاريخ

[thementalist]

ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده فيه حجز 
مثال:-
يوجد حجز من 2-4
وعند تشغيل الوقت من 1-3 يعطي رساله بوجود حجز من 2-4 لذا الوقت المتاح من 1-2