تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] بخصوص متابعة تواريخ انتهاء الوثائق
#1
السلام عليكم ورحمة الله وبركاته
اسعد الله اوقاتكم بكل خير،،،
وجدة موضوع للاخ سعود مشابه لما أبحث عنه ولكن يعمل بطريقة يدوية
الفكرة التي اتحدث عنها متابعة لتاريخ انتهاء الوثائق مثل رخصة بطاقة عمل.... ألخ يتم اضافتهم في DataGridview لكل من تبقى على تاريخ الانتهاء 90 يوم وأقل
اتمنى ان تكون وضحت الفكرة 
^_^
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#2
وعليكم السلام ورحمة الله وبركاته

(متابعة لتاريخ انتهاء الوثائق) يعني أن تقوم بالاستعلام كل مدة حسب ما يناسبك
فقد تجد أن من الأنسب لك أن تقوم به في بداية تشغيل البرنامج في كل مرة
وقد تجد أن من الأنسب لك أن تقوم به في داخل Timer يعمل كل ساعة مثلا
الرد }}}
#3
صحيح اخي العزيز عيد الاستعلام يكون بتاريخ اليوم فقط
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , asemshahen5
#4
للرفع
سبحان الله وبحمده سبحان الله العظيم
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#5
كان هناك موضوع مشابه بالامس : http://vb4arb.com/vb/showthread.php?tid=36253

ولكنه كان يريد تنبيه عند 7 ايام اعتقد اذا عدلناها ل 90 يوم نحصل على النتيجة المطلوبة :

في حدث اللود في الفورم : 

كود :
      Dim query As String = "SELECT * FROM documents
                              WHERE CAST(DueDate AS date) <= CAST(DATEADD(day,90, GETDATE()) AS date)
                              AND   CAST(DueDate AS date) >= CAST(getdate() AS date)"

      Dim cmd As New SqlCommand(query, conn)
      Dim sda As New SqlDataAdapter(cmd)
      Dim dt As New DataTable
      Dim RowCount As Integer

      conn.Open()

      RowCount = sda.Fill(dt)

      conn.Close()

      If RowCount > 0 Then

          'عرض تفاصيل الوثائق
          DataGridView1.DataSource = dt

      End If

عدل documents الى اسم جدول الوثائق وكذلك DueDate الى اسم عمود تواريخ الانتهاء

وراجع ايضا اجابات الاساتذه الافاضل في المشاركة التي رابطها بالاعلى فهي مفيدة جدا
الرد }}}
#6
يسلام هذا المطلوب
بارك الله فيك
تم تجربة الكود واظهر فقط من تبقى على تاريخ الانتهاء 90 يوم.
قمت بإضافة تعديل على الاستعلام ليظهر ايضا من هو أقل من 90 يوم كما يلي:
كود :
       Dim query As String = "SELECT * FROM documents
                             WHERE CAST(DueDate AS date) <= CAST(DATEADD(day,90, GETDATE()) AS date)
                               OR   CAST(DueDate AS date) = CAST(DATEADD(day,90, GETDATE()) AS date)
                                 AND   CAST(DueDate AS date) >= CAST(getdate() AS date)"

       Dim cmd As New SqlCommand(query, conn)
       Dim sda As New SqlDataAdapter(cmd)
       Dim dt As New DataTable
       Dim RowCount As Integer

       conn.Open()

       RowCount = sda.Fill(dt)

       conn.Close()

       If RowCount > 0 Then

           'عرض تفاصيل الوثائق
           DataGridView1.DataSource = dt

       End If
فهل الكود سليم ؟؟
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد }}}
تم الشكر بواسطة: asemshahen5 , WaeLx , ابراهيم ايبو
#7
الكود يظهر التواريخ اقل من 90 ايضا هذه هي وظيفة علامة الاصغر من او يساوي في السطر التالي 
كود :
                             WHERE CAST(DueDate AS date) <= CAST(DATEADD(day,90, GETDATE()) AS date)


لا اعلم ما المشكلة اخي اذا كان يظهر فقط التواريخ عند 90 يوم فقط فهذا يعني ان الكود لم ينفذ بشكل سليم

يعمل عندي بشكل طبيعي 

   

اذا قمت بارفاق مثال صغير ممكن نعدل عليه لنعلم من اين المشكلة
الرد }}}
#8
السلام عليكم ورحمة الله وبركاته
أعتذر عن التأخير أخواني
مرفق لكم ملف مثال


الملفات المرفقة
.rar   TestForHistory.rar (الحجم : 174.63 ك ب / التحميلات : 71)
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد }}}
تم الشكر بواسطة: WaeLx
#9
قاعدة البيانات من نوع اكسس لذلك عدلت الاستعلام ليناسب قاعدة البيانات

كود :
   Sub ff()
       Dim query As String = "SELECT * FROM TBLithem
                             WHERE    DateValue(EXPDAT) <= DateValue(DATEADD('d',90, now()))
                             AND    DateValue(EXPDAT) >= 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
   End Sub


الملفات المرفقة
.zip   TestForHistory.zip (الحجم : 213.36 ك ب / التحميلات : 76)
الرد }}}
تم الشكر بواسطة: WaeLx , محمد العامر , محمد العامر
#10
بارك الله فيك وجزاك الله كل خير نفع الله بك وسهل أمرك
شكرا شكرا شكراً
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] بخصوص خصم مبلغ الضريبة من السعر h2551996 6 275 24-01-24, 06:17 PM
آخر رد: Taha Okla
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  استفسار عام بخصوص فتح اكثر من اتصال على قاعدة بيانات واحدة assuhimi 0 324 15-09-23, 04:54 PM
آخر رد: assuhimi
  سؤال بخصوص المخازن والكميات Owz 1 371 03-08-23, 03:32 PM
آخر رد: Taha Okla
  [سؤال] سؤال بخصوص برنامج يعمل بالباركود eslam kady 2 622 05-06-23, 11:26 PM
آخر رد: eslam kady
  [VB.NET] سؤال بخصوص العلامات العشرية والتقريب علاء الكبابي 2 519 05-06-23, 01:02 PM
آخر رد: علاء الكبابي
Thumbs Down سؤال بخصوص ConfuserEx-GUI telecomnetwork2022 2 398 14-05-23, 12:31 PM
آخر رد: عبدالله الدوسري
  سؤال بخصوص المستخدمين النشطاء الحاليين علي الشبكة عبدالكريم برشدان 1 379 27-03-23, 11:18 PM
آخر رد: sanyor77
  سؤال بخصوص button عبدالكريم برشدان 12 1,212 27-03-23, 10:52 PM
آخر رد: sanyor77
Lightbulb [VB.NET] سؤال وارجو المساعدة بخصوص عرض الصورة في تقرير كرستال younus 1 396 27-03-23, 10:13 PM
آخر رد: sanyor77

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم