منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] فورم لعرض الاصناف الناقصة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] فورم لعرض الاصناف الناقصة (/showthread.php?tid=35363)



فورم لعرض الاصناف الناقصة - stiger - 25-06-20

السلام عليكم 
عندي جدول للاصناف فيه كمية الصنف و اقل حد 

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

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

و شكرا


RE: فورم لعرض الاصناف الناقصة - Rabeea Qbaha - 25-06-20

كود :
   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



RE: فورم لعرض الاصناف الناقصة - Jounior_P - 25-06-20

اجعل جملة Select ;hgjhgd :
select * from Items where Quantity <=5

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


RE: فورم لعرض الاصناف الناقصة - stiger - 25-06-20

(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

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


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

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