تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حساب السن فى اول اكتوبر فلى لغة asp.net hamadaalmasry 1 24 25-03-19, 02:50 AM
آخر رد: حريف برمجة
  [سؤال] طريقة عمل كشف حساب (دائن ومدين) اليوم مبتدئة وغداً محترفة 12 6,085 23-03-19, 01:46 PM
آخر رد: khokh1973
  [VB.NET] حساب توقيتات الراحة على مدار اليوم khattabcosmology 2 117 18-02-19, 02:08 PM
آخر رد: khattabcosmology
Information [VB.NET] مساعدة : حساب الناتج الاجمالي georgos 4 141 15-02-19, 11:35 PM
آخر رد: georgos
  لوسمحتم كود حساب تكامل تابع من قيمة دنيا الى قيمة عليا samira20 0 72 10-02-19, 03:18 PM
آخر رد: samira20
  كيفية حساب عدد تشيك بوكس محدد في التقرير Emam emam 5 243 01-02-19, 04:02 AM
آخر رد: princelovelorn
Heart سؤال عن حساب السن (العمر) عن طريق تاريخ الميلاد ahmadpal 10 398 07-12-18, 04:52 PM
آخر رد: ahmadpal
  حساب العمر محمد خيري 7 347 21-11-18, 05:49 PM
آخر رد: elgokr
Photo [VB.NET] حساب عدد من الخلايا kebboud 34 1,658 14-11-18, 12:03 AM
آخر رد: عماد السيد
  حساب فرق الوقت و التسعيرة محمد خيري 7 296 02-11-18, 05:24 PM
آخر رد: elgokr

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


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