منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : فورم لعرض الاصناف الناقصة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 
عندي جدول للاصناف فيه كمية الصنف و اقل حد 

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

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

و شكرا
كود :
   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
اجعل جملة Select ;hgjhgd :
select * from Items where Quantity <=5

بفرض ان جدول الاصناف اسمه Item والكمية Quantity
(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

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


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

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