تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حساب عدد المواد منتهية صلاحيتها
#1
السلام عليكم.اخواني لماذا هذا الكود يعطيني دايما ناقص واحد .لو فيه 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
الرد
تم الشكر بواسطة:
#2
(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(ResultThen
            TxtRecordSalahiyete
.Text 0
        Else
            TxtRecordSalahiyete
.Text Result
        End 
If
 
   End Using
End Sub 
الرد
#3
الان الكود يشتغل و يحسب بالضبط الله يبارك فيك و يزيدك من فضله .انحلت المشكلة و الحمد لله
الرد
تم الشكر بواسطة: a.wagdi



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


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