تقييم الموضوع :
  • 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 ك ب / التحميلات : 36)
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم 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 ك ب / التحميلات : 27)
الرد
تم الشكر بواسطة: WaeLx , محمد العامر , محمد العامر
#10
بارك الله فيك وجزاك الله كل خير نفع الله بك وسهل أمرك
شكرا شكرا شكراً
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] السلام عليكم موضوعي بخصوص ضغط وفك الضغط ولدي استفسارات اليوم السابع 0 75 11-11-20, 11:41 PM
آخر رد: اليوم السابع
  سؤال بخصوص الضريبة و الخصم في الفاتورة sofiane-phy 2 190 30-10-20, 11:06 PM
آخر رد: sofiane-phy
  ممكن حل للمشكلة بخصوص Crystal Report Alanwalker 3 270 27-10-20, 06:27 PM
آخر رد: ZaerAllail
  [VB.NET] سوال بخصوص اداه JbsaPrintDataGridView.dll للطباعه jassim316 5 1,128 26-10-20, 10:52 PM
آخر رد: A.elessawy
  ممكن مساعدة بخصوص تحزيم المشروع Alanwalker 3 270 25-10-20, 03:57 AM
آخر رد: ٍOfelas
  [VB.NET] مساعدة بخصوص webbrowser ميدو الفنان 1 177 22-10-20, 12:55 AM
آخر رد: ميدو الفنان
  [سؤال] ممكن كود فيجوال بيسك عند تشغيل ملف دفعي bat عند انتهاء من الامر jam3h 0 210 17-10-20, 04:37 PM
آخر رد: jam3h
  استفسار بخصوص تنفيذ امر عبر CMD momani33 0 106 14-10-20, 01:40 AM
آخر رد: momani33
  سؤال بخصوص Maximized ابو روضة 4 272 07-10-20, 09:25 PM
آخر رد: ابو روضة
  مساعدة بخصوص تنفيد البرنامج بعد تحزيمه ببرنامج Advanced Installer ٍOfelas 20 797 06-10-20, 10:54 PM
آخر رد: ٍOfelas

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


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