منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم قواعد البيانات قسم أسئلة قواعد البيانات تحت بيئة الـ.NET [سؤال] وضع بيانات Bindingsource المفلترة برسالة
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[سؤال] وضع بيانات Bindingsource المفلترة برسالة
Omar Mekkawy غير متصل
مراقب منتدى
المشاركات : 463
المواضيع 42
الإنتساب : Sep 2012
السمعة : 22
الشكر: 424
تم شكره 780 مرات في 162 مشاركات
#1
05-10-13, 03:05 AM
سلام عليكم أخواني الكرام

بحمد الله بعد عناء طويل انشأت مشروع يقوم بتخزين الوقت بقاعدة بيانات
ويقوم بمقارنته بالوقت الحالي للحاسوب

واذا كان الوقت متساوي يقوم بعمل فلتر ويظهر ان الموعد حان وقته Big Grin

لكنني اواجه مشكلة وهي ان هذه البيانات تظهر بالداتاجريد فيو
وأنا نفسي تظهر برسالة Blush


هذا هو الكود حق الفلتر ( انا واضعه بمؤقت Timer )

كود :
mytime = My.Computer.Clock.LocalTime.ToString("dd/MM/yyyy   hh:mm:ss t")

        Label7.Text = mytime

        If DataSet1.Tables("Reminder").Compute("count(Date_Time)", "Date_Time > '" & mytime & "'").ToString > 0 Then

            SearBindingSource1.Filter = "Date_Time > '" & mytime & "'"

            Label12.Text = "نعم"
            Label12.ForeColor = Color.Green

            DataGridView2.DataSource = SearBindingSource1

            'MsgBox("yes")
        Else

            Label12.Text = "لا"
            Label12.ForeColor = Color.Red
            DataGridView2.DataSource = Nothing
        End If


أرجوا المساعدة ConfusedConfused
الموقع البحث
الرد }}}
تم الشكر بواسطة:
الشاكي لله غير متصل
المدير الفني
المشاركات : 1,733
المواضيع 147
الإنتساب : Sep 2012
السمعة : 215
الشكر: 8463
تم شكره 12163 مرات في 1145 مشاركات

a2
#2
05-10-13, 09:31 PM
رسالة يعني MsgBox ؟


البحث
الرد }}}
تم الشكر بواسطة: Omar Mekkawy
Omar Mekkawy غير متصل
مراقب منتدى
المشاركات : 463
المواضيع 42
الإنتساب : Sep 2012
السمعة : 22
الشكر: 424
تم شكره 780 مرات في 162 مشاركات
#3
05-10-13, 10:27 PM
(05-10-13, 09:31 PM)الشاكي لله كتب : رسالة يعني MsgBox ؟
يعطيك العافية على سرعة الرد Big Grin
اه نعم Smile
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الموقع البحث
الرد }}}
تم الشكر بواسطة:
سعود غير متصل
عضو نشيط
*
المشاركات : 7,397
المواضيع 802
الإنتساب : Sep 2013
السمعة : 853
الشكر: 13167
تم شكره 18826 مرات في 4421 مشاركات
#4
06-10-13, 01:36 PM
كنت اتمنى اكون مبدع في التعامل مع التاريخ كنت جهزت شرح حول الموضوع.
لكن الاخ ابورائد بالرابط التالي ازال عدة امور كانت غامضة عندي:
http://vb4arb.com/vb/showthread.php?tid=346
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الموقع البحث
الرد }}}
تم الشكر بواسطة: Omar Mekkawy
Omar Mekkawy غير متصل
مراقب منتدى
المشاركات : 463
المواضيع 42
الإنتساب : Sep 2012
السمعة : 22
الشكر: 424
تم شكره 780 مرات في 162 مشاركات
#5
08-10-13, 01:45 AM
(06-10-13, 01:36 PM)سعود كتب : كنت اتمنى اكون مبدع في التعامل مع التاريخ كنت جهزت شرح حول الموضوع.
لكن الاخ ابورائد بالرابط التالي ازال عدة امور كانت غامضة عندي:
http://vb4arb.com/vb/showthread.php?tid=346

جزاك الله كل خير أخوي على الرد Big Grin
لكن انا اللي احتاجه شىء آخر Sad

كل ما احتاجه ان ناتج عملية فلترة الـ Bindingsource يظهر برسالة msgbox فقط لا أكثر Big Grin

مع العلم انه عندما تتم فلترة الـ Bindingsource لا يعرض غير سجل واحد فقط في الداتاجريد Shy

يعطيك العافية
تحياتي لك
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الموقع البحث
الرد }}}
تم الشكر بواسطة:
مالكـ غير متصل
المتميزون
المشاركات : 249
المواضيع 20
الإنتساب : Sep 2013
السمعة : 7
الشكر: 175
تم شكره 203 مرات في 78 مشاركات
#6
08-10-13, 05:08 AM
اخي Omar Mekkawy

وانا اريد ... نفس طريقتك بالداتا غريد ..... ولاكن بتحديد لون عند انتهاء الوقت

= الداتا غريد .... مربوطة بقاعدة بيانات عن طريق المعالج
حقل تاريخ (نص )
البحث
الرد }}}
تم الشكر بواسطة: Omar Mekkawy
سعود غير متصل
عضو نشيط
*
المشاركات : 7,397
المواضيع 802
الإنتساب : Sep 2013
السمعة : 853
الشكر: 13167
تم شكره 18826 مرات في 4421 مشاركات
#7
08-10-13, 02:21 PM
إقتباس :كل ما احتاجه ان ناتج عملية فلترة الـ Bindingsource يظهر برسالة msgbox فقط لا أكثر
جرب :_
استخدم object اسند له النتائج ثم اسند الاوبجكيت الى مربع الرسالة

كود :
Dim ob As New Object
        ob = Now
        MsgBox(ob)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الموقع البحث
الرد }}}
تم الشكر بواسطة: Omar Mekkawy
Omar Mekkawy غير متصل
مراقب منتدى
المشاركات : 463
المواضيع 42
الإنتساب : Sep 2012
السمعة : 22
الشكر: 424
تم شكره 780 مرات في 162 مشاركات
#8
08-10-13, 11:01 PM (آخر تعديل لهذه المشاركة : 08-10-13, 11:09 PM {2} بواسطة Omar Mekkawy.)
(08-10-13, 02:21 PM)سعود كتب :
إقتباس :كل ما احتاجه ان ناتج عملية فلترة الـ Bindingsource يظهر برسالة msgbox فقط لا أكثر
جرب :_
استخدم object اسند له النتائج ثم اسند الاوبجكيت الى مربع الرسالة

كود :
Dim ob As New Object
        ob = Now
        MsgBox(ob)

يعطيك العافية أخوي على المساعدة Big Grin
جاري التطبيق Shy
(08-10-13, 05:08 AM)مالكـ كتب : اخي Omar Mekkawy

وانا اريد ... نفس طريقتك بالداتا غريد ..... ولاكن بتحديد لون عند انتهاء الوقت

= الداتا غريد .... مربوطة بقاعدة بيانات عن طريق المعالج
حقل تاريخ (نص )


هذا المثال كان بالمنتدى القديم بأحد الأسئلة :

إقتباس : السلام عليكم و رحمة الله وبركاته...



لو سمحتم اخواني الكرام المساعدة في كيفية اضافة كود تنبيه لون في خلفية خلية Cell Back Color من نوع Date و ذلك استنادا على التاريخ الحالي مع التاريخ المخزن في الخلية !مع العلم ان الخلية من نوع كلاس DateTimePicker


بمعنى آخر اذا كان التاريخ المخزن في الخلية اكبر ب7 ايام عن التاريخ الحالي تكون خلفية الخلية لونها ازرق...

و اذا كان التاريخ المخزن في الخلية اكبر ب3 ايام عن التاريخ الحالي تكون خلفية الخلية لونها اخضر...

و اذا كان التاريخ المخزن في الخلية اكبر بيوم واحد عن التاريخ الحالي تكون خلفية الخلية لونها اصفر...

و اذا كان التاريخ المخزن في الخلية نفس التاريخ الحالي وتعداه تكون خلفية الخلية لونها احمر...

مع الشكر...

هذا رابط المشروع Big Grin


http://www.mediafire.com/download/xwcl9r...r%E2%80%8F
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الموقع البحث
الرد }}}
تم الشكر بواسطة:
@@أبورائد@@ غير متصل
كبار الشخصيات
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة : 65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
#9
08-10-13, 11:45 PM (آخر تعديل لهذه المشاركة : 10-10-13, 01:06 AM {2} بواسطة @@أبورائد@@.)
السلام عليكم ورحمة الله وبركاته

جرب هذا التعديل (قمت بتعديل علامة المقارنة بـ >= حسب توقعي بالوضع الصحيح مع يبديل أماكن التاريخين، حسب ما فهمت أنك تريد معرفة التاريخ الحالي أكبر أو مساوي من تاريخ الجسل)
كود :
If PrepDataSet.Tables("Reminder").Compute("count(Date_Time)", "GETDATE() >= Date_Time").ToString > 0 Then

SearBindingSource1.Filter = "GETDATE() >= Date_Time"

السلام عليكم ورحمة الله وبركاته
البحث
الرد }}}
تم الشكر بواسطة:
@@أبورائد@@ غير متصل
كبار الشخصيات
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة : 65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
#10
09-10-13, 01:08 AM (آخر تعديل لهذه المشاركة : 10-10-13, 01:06 AM {2} بواسطة @@أبورائد@@.)
السلام عليكم ورحمة الله وبركاته


بالمناسبة، إذا كنت تستخدم الربط بالكود ولم يفيدك ردي السابق فأضف في جملة الاستعلام بعد كلمة SELECT الأمر GETDATE() AS myGETDATE كالتالي
كود :
SELECT GETDATE() AS myGETDATE,* FROM .......

ثم استخدم هذا التعديل
كود :
If PrepDataSet.Tables("Reminder").Compute("count(Date_Time)", "myGETDATE >= Date_Time").ToString > 0 Then

SearBindingSource1.Filter = "myGETDATE >= Date_Time"

السلام عليكم ورحمة الله وبركاته
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصدير بيانات من سيكوال bassant 1 236 29-09-25, 01:11 AM
آخر رد: justforit
Heart استرجاع قاعدة بيانات محمد بن عطية 1 1,069 18-07-25, 04:30 AM
آخر رد: abuabdulrhman
  [سؤال] سؤال حول منع تكرار بيانات عند تعديلها justforit 1 568 07-05-24, 12:09 AM
آخر رد: justforit
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 1,258 07-11-23, 08:27 AM
آخر رد: justforit
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 865 18-05-23, 03:02 AM
آخر رد: سعود
  ما معني بيانات تقع بين الرمز[] في حقل في داتا بيس bassant 3 1,052 03-04-23, 11:53 PM
آخر رد: sanyor77
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,575 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 3,166 07-11-22, 10:27 PM
آخر رد: Am7
  [عنوان معدل]حفظ بيانات listbox fhad24 36 13,749 08-10-22, 06:55 PM
آخر رد: رضوان الجماعي
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 2,088 17-10-21, 02:07 PM
آخر رد: abubasilIraq

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


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