+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن استفسار الى احبتى فى المنتدى (/showthread.php?tid=36253)
ممكن استفسار الى احبتى فى المنتدى - خالد كامل1 - 29-08-20
احبتى فى الله السلام عليكم ورحمه الله
لو كان عندى فورم فيه مواعييد استحقاق للشيكات واجبه السداد بتاريخ محدد
اسأل عن طريقه تظهر لى رساله عند فتح البرنامج قبل 7 ايام من الاستحقاق مفادها ان هناك شيكات واجبه السداد فى اليوم المحدده
ولكم منى جزيل الشكر والمحبه
RE: ممكن استفسار الى احبتى فى المنتدى - عيد مبارك - 29-08-20
وعليكم السلام ورحمة الله
قم بعمل استعلام بعدد الشيكات التي تبقى على موعد سدادها 7 ايم فاقل
فاذا كانت النتيجه عدد اكبر من صفر فاظهر الرساله
table اسم الجدول
column عمود موعد السداد من نوع تاريخ Date
هذا الاستعلام ل اس كيو ال سيرفر SQLServer
كود :
SELECT COUNT(*)
FROM [table]
WHERE DATEDIFF(day,[column],GETDATE())<=7هذا الاستعلام ل ميكروسوفت اكسس MSAccess
كود :
SELECT COUNT(*)
FROM [table]
WHERE DATEDIFF('d',[column],NOW())<=7أيضا أنظر هذه المشاركة فيها صورة تتطابق مع طلبك
http://vb4arb.com/vb/showthread.php?tid=2934&pid=14486#pid14486
RE: ممكن استفسار الى احبتى فى المنتدى - Anas Mahmoud - 30-08-20
بالاضافة لرد الاخ قبلي
يمكنك استخدام التالي لجلب الشيكات خلال اسبوع من اليوم ، متضمن شيكات اليوم الحالي ، غير متضمن الشيكات السابقة لليوم ، وغير مهتم بالوقت
عدل Checks الى اسم جدول الشيكات وكذلك DueDate الى اسم حقل تاريخ الاستحقاق
كود :
Dim query As String = "SELECT * FROM Checks
WHERE CAST(DueDate AS date) <= CAST(DATEADD(day,7, 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
MsgBox($"هناك عدد {RowCount} شيكات خلال الاسبوع")
'عرض تفاصيل الشيكات
DataGridView1.DataSource = dt
End IfRE: ممكن استفسار الى احبتى فى المنتدى - عبد العزيز البسكري - 30-08-20
و من باب زيادة الخير .. خيريْن
و إضافة لما طرحه أساتذتي الأفاضل بالحلول أعلاه
جزاهم الله خير الجزاء و زادهم من علمه و فضله
يمكن كذلك .. التنويع بهذه الكيفية
تحياتي
RE: ممكن استفسار الى احبتى فى المنتدى - خالد كامل1 - 30-08-20
اشكركم احبتى فى الله سوف اجرب كل طريقه واهتدى الى الطريقه الافضل