منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عرض البيانات التي تتوافق مع تاريخ اليوم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
عندي جدول من نوع اكسيس ويحتوي علي جدول عملاء .
يتم تسجيل اسم العميل- وتاريخ الزياره -وتاريخ بعد الزياره بيومين
وبعد عرض العملاء في داتا جريد فيو
 
اريد عند الضغط علي زر معين يظهر لي اسماء العملاء الذي يتوافق تاريخ زيارتهم مع تاريخ اليوم
وجزاكم الله  خيرا 
وبارك الله فيكم جميعا
عليكم السلام 

راجع هذا الموضوع 

http://vb4arb.com/vb/showthread.php?tid=19343
[b]hglogtd[/b]  
شكرا اخي علي رد حضرتك
الكود لم يعمل معي
سارفق لحضرتك الفورم وارجو ان توضح لي كيف يكون الكود
مع العلم اني اريد عند الضغط علي زر معين يظهر لي اسماء المرضي الذي يتوافق تاريخ ال  ResultDate مع تاريخ اليوم
وجزاك الله خيرا
ضع هذا الكود في زر البحث بين تاريخين :
كود :
       dtPatients.Clear()
       daPatients = New OleDbDataAdapter("select * from Patients WHERE ResultDate BETWEEN #" & DateTimePicker1.Value.ToShortDateString & "# AND #" & DateTimePicker2.Value.ToShortDateString & "# order by Code", connAccess2007)
       daPatients.Fill(dtPatients)

هكذا : 

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       dtPatients.Clear()
       daPatients = New OleDbDataAdapter("select * from Patients WHERE ResultDate BETWEEN #" & DateTimePicker1.Value.ToShortDateString & "# AND #" & DateTimePicker2.Value.ToShortDateString & "# order by Code", connAccess2007)
       daPatients.Fill(dtPatients)
   End Sub
جزاك الله خيرا اخي  [b]عبدالله الدوسري[/b]
ولكن انا لا اريد ان يعرض لي النتائج في الداتا جريد فيو
بل اريد ان يعرض لي اسم المريض فقط الذي يتوافق مع تاريخ اليوم  في رساله او شاشه تنبيهيه بجوار الساعه
فعل يوجد حل لذالك 
وجزاك الله خيرا
كود :
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      dtPatients.Clear()
      daPatients = New OleDbDataAdapter("select * from Patients WHERE ResultDate BETWEEN #" & DateTimePicker1.Value.ToShortDateString & "# AND #" & DateTimePicker2.Value.ToShortDateString & "# order by Code", connAccess2007)
      daPatients.Fill(dtPatients)
  End Sub


هذا الكود يجلب لك الأسماء التي تتوافق مع تاريخ اليوم

جرب وإسأل عن عدد السجلات إذا أكبر من صفر 
إعرضها في شاشة جديدة , لأنه من الممكن أن يظهر لك أكثر من اسم , ولا يمكنك تحديد النتائج , وذلك تحتاج إلى نافذة مختلفة لعرض النتائج .


حاول بنفسك .
جزاك الله كل خير علي ماتقدمه من معلومات ومساعدات لغيرك
فقد جربت الكود وحاولت  وبالفعل الكود اشتغل بفضل الله 
اشكرك   [b]عبدالله الدوسري  [/b]علي تعاونك اخي 
وهذا هو الكود للعلم ولعل احد اخر ينتفع به
كود :
'لعمل رساله تظهر اذا جاء وقت كتابة النتيجه
           Dim searchDate1 As Date = Now.ToShortDateString
           dtPatientstoresuldate.Clear()
           daPatientstoresuldate = New OleDbDataAdapter("select * from Patients WHERE ResultDate  = # " & searchDate1 & " # ", connAccess2007)
           daPatientstoresuldate.Fill(dtPatientstoresuldate)
           DataGridView1.DataSource = (dtPatientstoresuldate)
           For i As Integer = 0 To DataGridView1.Rows.Count - 2
               MsgBox("برجاء طباعة نتائجه    " & " . " & DataGridView1.Rows(i).Cells(6).Value & "    :    سيتم استلام نتائج المريض")
           Next

اخي  [b]عبدالله الدوسري  الكود اشتغل تمام كما قلت لك[/b]
[b]ولكن هل من طريق لعرض هذه الاسماء في بالون بجوار الساعه بدلا من msgbox[/b]
[b]ياريت الكود وبارك الله فيك[/b]
1 - أنشئ متغير جديد ( في أعلى الـ Form ) كالتالي :
كود :
   Dim MyNotifyIcon As New NotifyIcon With {.Visible = True, .Text = "***اسم البرنامج***"}





2 - في الحدث Form1_Load النافذة الرئيسية ( أول نافذة تفتح في المشروع ) , نعين الأيقونة ( Icon ) لهذا الكائن , لأنه بدونها لن تظهر أي رسالة , ولسرعة الشرح , أخذت الأيقوة الخاصة بالـ Form نفسة 
كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.MyNotifyIcon.Icon = Me.Icon
   End Sub







3 - في الحدث Form1_FormClosed عند إغلاق النافذة الرئيسية ( أول نافذة تفتح في المشروع ) , نقوم بإخفاء هذا الكائن , ثم نتخلص من الكائن , بدون هذا الإجراء ستظل أيقونة الكائن في صينية النظام جنب الساعة , ولن تختفي حتى تمرر الماوس فوقها. 
كود :
   Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
       Me.MyNotifyIcon.Visible = False
       Me.MyNotifyIcon.Dispose()
   End Sub



[attachment=17432]








4 - بإستدعاء هذا الأمر يمكنك إظهار رسالة تنبيهية ( Notification Message ) 
5000 يعني عدد الثواني لمدة ظهور الرسالة التنبيهية , وهي تحسب بالمللي ثانية , كل ثانية = 1000 مللي ثانية , الـ 5000 مللي ثانية تعني 5 ثواني
يمكنك تغيير ToolTipIcon.Info , البراميتر الأخير , فهو لتحديد نوع الأيقونة داخل الرسالة التنبيهية , وليس لأيقونة للكائن بجانب الساعة.

كود :
       Me.MyNotifyIcon.ShowBalloonTip(5000, "عنوان الرسالة هنا", "محتوى نص الرسالة هنا", ToolTipIcon.Info)






5 - بعد عمل الخطوة رقم ( 1 , 2 , 3 ) قم بتغيير الكود الذي لديك , بهذا الكود :
كود :
       'لعمل رساله تظهر اذا جاء وقت كتابة النتيجه
       Dim searchDate1 As Date = Now.ToShortDateString
       dtPatientstoresuldate.Clear()
       daPatientstoresuldate = New OleDbDataAdapter("select * from Patients WHERE ResultDate  = # " & searchDate1 & " # ", connAccess2007)
       daPatientstoresuldate.Fill(dtPatientstoresuldate)
       DataGridView1.DataSource = (dtPatientstoresuldate)

       Dim Msg As String = ""
       For i As Integer = 0 To DataGridView1.Rows.Count - 2
           Msg &= i & " - " & DataGridView1.Rows(i).Cells(6).Value & vbNewLine
       Next

       Me.MyNotifyIcon.ShowBalloonTip(5000, "نتائج المرضى :", "برجاء طباعة نتائج المرضى التالية أسمائهم" & vbNewLine & Msg, ToolTipIcon.Info)
والله اني عاجز عن شكرك اخي   [b]عبدالله الدوسري[/b]  
جزاك الله كل خير
سانف الكود بان الله تعالي
الكود اشتغل تمام والحمد لله
اشكرك كثيرا يا اخي  [b]عبدالله الدوسري[/b]
جعله الله في ميزان حسناتك