(28-12-16, 08:23 AM)Hazim Elabd كتب : يمكنك إستخدام الكود التالى وهو يقوم بالذى تريد ويمكنك أستدعاءة بعد كل عملية بيع تقوم بها

كود :

   Public sub checkitemcount(ByVal itemid As Integer)
Dim DataSet1 As New DataSet
       DataSet1.Clear()
       Dim SQLstr As String = "SELECT * FROM dnname WHERE itemid = " & itemid &"
       Dim Da1 As New MySqlDataAdapter(SQLstr, newConnection)
       newConnection.Open()
       Da1.Fill(DataSet1, "suppitems")
       newConnection.Close()
       If DataSet1.Tables(0).Rows(0).item(3) < 2 Then
msgbox("يرجى الإنتباه أن هذا الصنف لم يتبقى منه الكثير فى المخزن")
       Else
       End If
   End sub

إذا كان فى اي استفسار انا موجود .