22-05-14, 12:16 AM
(21-05-14, 11:25 PM)vb_net كتب : [ -> ]يجب ان تعدل تاريخ الانتهاء يكون 30 يوم بينه وبين تاريخ انتهاء هدا لتجرب النتيجة
لانه هناك شرط حددنا فيه 30 يوم ادا كانت اقل او اكثر لن تاتي الرسالة
راج اجرب حبييبي واشوف
الصفحات : 1 2
22-05-14, 12:16 AM
22-05-14, 12:58 AM
22-05-14, 01:01 AM
22-05-14, 03:05 AM
-
منقول مع تعديل بسيط ليناسب طلبك
![[صورة مرفقة: 250066700.png]](http://www9.0zz0.com/2014/05/21/23/250066700.png)
![[صورة مرفقة: 104974758.png]](http://www9.0zz0.com/2014/05/21/23/104974758.png)
استبدل (Val(Me.TextBox1.Text في السطر المشار إليه برقم لعدد الأيام
اسم الجدول table1
اسم حقل تاريخ الانتهاء date2 نوعه تاريخ
ملاحظة: الحقل remDays ليس حقل في الجدول وإنما حقل فقط مع ناتج الاستعلام لمعرفة عدد الأيام المتبقية
منقول مع تعديل بسيط ليناسب طلبك
استبدل (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 Sub22-05-14, 09:13 AM
22-05-14, 09:26 AM
مرحبا حبيبي انا مأشر على تاريخ الأنتهاء لي الرخصه اوك ضغط عليه مرتين وحطيت الكود الي جبته لي طيب الحين شنو اغير فيه ..
الفورم
![[صورة مرفقة: 1ezPjL.jpg]](http://im75.gulfup.com/1ezPjL.jpg)
وهذا الكود ..
![[صورة مرفقة: 0dacch.jpg]](http://im75.gulfup.com/0dacch.jpg)
الفورم
وهذا الكود ..
12-03-17, 05:32 AM
14-09-18, 02:50 AM
الصفحات : 1 2