[العيدروس]

السلام عليكم.اخواني لماذا هذا الكود يعطيني دايما ناقص واحد .لو فيه 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

[a.wagdi]

(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 


[العيدروس]

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