تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] فورم لعرض الاصناف الناقصة
#1
السلام عليكم 
عندي جدول للاصناف فيه كمية الصنف و اقل حد 

مثلا الكمية 10 و اقل حد 5 و الموجود اقل من 5

عايز اعمل فورم فيه داتا جريد يظهر فيه فقط الاصناف اللي وصلت لاقل حد او تجاوزته

و شكرا
الرد }}}
تم الشكر بواسطة:
#2
كود :
   Public Sub LoadMaterials()
       If _con.con.State = ConnectionState.Closed Then
           _con.con.Open()
       End If

       Dim cmd As New SqlCommand("SELECT MaterialBarCode,category,MaterialName,unit,QuantityAvailable FROM Materials_view where QuantityAvailable <=@QuantityAvailable order by QuantityAvailable", _con.con)
       cmd.Parameters.AddWithValue("@QuantityAvailable", cmb_qun.SelectedItem)

       Ds = New DataSet()
       Dt = New DataTable()

       DataAdapter = New SqlDataAdapter(cmd)
       DataAdapter.Fill(Dt)
       DataAdapter.Fill(Ds, "Materials_view")

       _con.con.Close()

       GV.DataSource = Ds
       GV.DataMember = "Materials_view"
       GV.Refresh()
   End Sub

الرد }}}
تم الشكر بواسطة:
#3
اجعل جملة Select ;hgjhgd :
select * from Items where Quantity <=5

بفرض ان جدول الاصناف اسمه Item والكمية Quantity
الرد }}}
تم الشكر بواسطة:
#4
(25-06-20, 05:57 PM)Jounior_P كتب : اجعل جملة Select ;hgjhgd :
select * from Items where Quantity <=5

بفرض ان جدول الاصناف اسمه Item والكمية Quantity

عملت جملة select

select * from Items where Quantity = < qytn 

الجدول  Items 
المتاح Quantity 
الحد الادني qytn 
و منفعش مش بيجيب الا اذا كنت عامل Quantity = qytn فقط

(25-06-20, 05:56 PM)Rabeea Qbaha كتب :
كود :
   Public Sub LoadMaterials()
       If _con.con.State = ConnectionState.Closed Then
           _con.con.Open()
       End If

       Dim cmd As New SqlCommand("SELECT MaterialBarCode,category,MaterialName,unit,QuantityAvailable FROM Materials_view where QuantityAvailable <=@QuantityAvailable order by QuantityAvailable", _con.con)
       cmd.Parameters.AddWithValue("@QuantityAvailable", cmb_qun.SelectedItem)

       Ds = New DataSet()
       Dt = New DataTable()

       DataAdapter = New SqlDataAdapter(cmd)
       DataAdapter.Fill(Dt)
       DataAdapter.Fill(Ds, "Materials_view")

       _con.con.Close()

       GV.DataSource = Ds
       GV.DataMember = "Materials_view"
       GV.Refresh()
   End Sub

بعتذر منك اخي انا شغال اكسس


بس اعتقد ان نفس المشكله  <= اصغر من و يساوي مش شغال عندي
و شكرا لك اخي

بعتذر منك يا اخواني
المشكله اتحلت كانت و العلم لله في الاكسس مش في الكود لان لما قفلت قاعدة البيانات اشتغل تمام
الرد }}}
تم الشكر بواسطة: kiki



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


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