منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حساب عدد المواد منتهية صلاحيتها - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28075)

حساب عدد المواد منتهية صلاحيتها - العيدروس - 30-12-18

السلام عليكم.اخواني لماذا هذا الكود يعطيني دايما ناقص واحد .لو فيه 5 مواد منتهي صلاحيتها يطلع بالتاكست 4 و لو فيه 2 مواد منتهية تطلعلي بالتاكست فقط 1.
بارك الله فيكم

كود :
   Private Sub Record_Salahiayete()
       Conn.Open()
       Dim sql As String = "select * from materials where salahiyete>#" & Now.ToShortDateString & "#"
       Using cmd As New OleDbCommand(sql, Conn)
           Dim Result = cmd.ExecuteScalar()
           If Result Is Nothing Then
               TxtRecordSalahiyete.Text = 0
           Else
               TxtRecordSalahiyete.Text = Result.ToString()
           End If
           Conn.Close()
       End Using
   End Sub


RE: حساب عدد المواد منتهية صلاحيتها - a.wagdi - 30-12-18

(30-12-18, 04:42 AM)العيدروس كتب : السلام عليكم.اخواني لماذا هذا الكود يعطيني دايما ناقص واحد .لو فيه 5 مواد منتهي صلاحيتها يطلع بالتاكست 4 و لو فيه 2 مواد منتهية تطلعلي بالتاكست فقط 1.
بارك الله فيكم

كود :
   Private Sub Record_Salahiayete()
       Conn.Open()
       Dim sql As String = "select * from materials where salahiyete>#" & Now.ToShortDateString & "#"
       Using cmd As New OleDbCommand(sql, Conn)
           Dim Result = cmd.ExecuteScalar()
           If Result Is Nothing Then
               TxtRecordSalahiyete.Text = 0
           Else
               TxtRecordSalahiyete.Text = Result.ToString()
           End If
           Conn.Close()
       End Using
   End Sub


وعليكم السلام ورحمة الله

تفضل التعديل
PHP كود :
Private Sub Record_Salahiayete()
    Using cmd As New OleDbCommand("Select Count(*) From [materials] Where [salahiyete] > @salahiyete ", Conn)
        cmd.Parameters.AddWithValue("@salahiyete", Today)

        If Conn.State <> ConnectionState.Open Then Conn.Open()
        Dim Result = cmd.ExecuteScalar()
        Conn.Close()

        If IsDBNull(Result) Then
            TxtRecordSalahiyete.Text = 0
        Else
            TxtRecordSalahiyete.Text = Result
        End If
    End Using
End Sub 


RE: حساب عدد المواد منتهية صلاحيتها - العيدروس - 30-12-18

الان الكود يشتغل و يحسب بالضبط الله يبارك فيك و يزيدك من فضله .انحلت المشكلة و الحمد لله