+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود تنبيه لتاريخ (/showthread.php?tid=2934)
الصفحات:
1
2
RE: كود تنبيه لتاريخ - abuadnan166 - 22-05-14
(21-05-14, 11:25 PM)vb_net كتب : يجب ان تعدل تاريخ الانتهاء يكون 30 يوم بينه وبين تاريخ انتهاء هدا لتجرب النتيجة
لانه هناك شرط حددنا فيه 30 يوم ادا كانت اقل او اكثر لن تاتي الرسالة
راج اجرب حبييبي واشوف
RE: كود تنبيه لتاريخ - vbnet - 22-05-14
-
هل تستخدم قاعدة بيانات Access أوSQLServer ؟
-
RE: كود تنبيه لتاريخ - abuadnan166 - 22-05-14
(22-05-14, 12:58 AM)vbnet كتب : -
هل تستخدم قاعدة بيانات Access أوSQLServer ؟
-
Access
RE: كود تنبيه لتاريخ - vbnet - 22-05-14
-
منقول مع تعديل بسيط ليناسب طلبك
استبدل (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 SubRE: كود تنبيه لتاريخ - abuadnan166 - 22-05-14
مشكور حبيبي راح ادرسها كيف واشوف انشالله تزبط ماقصرت ربي يحفظك تعبتك معاي الله يجازيك الجنة يارب
RE: كود تنبيه لتاريخ - abuadnan166 - 22-05-14
مرحبا حبيبي انا مأشر على تاريخ الأنتهاء لي الرخصه اوك ضغط عليه مرتين وحطيت الكود الي جبته لي طيب الحين شنو اغير فيه ..
الفورم
وهذا الكود ..
RE: كود تنبيه لتاريخ - yoyo1415 - 12-03-17
سلام عليكم
اريد المساعدة اريد ملف لتنبية بانتهاء التاريخ
RE: كود تنبيه لتاريخ - thementalist - 14-09-18
ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده فيه حجز
مثال:-
يوجد حجز من 2-4
وعند تشغيل الوقت من 1-3 يعطي رساله بوجود حجز من 2-4 لذا الوقت المتاح من 1-2