[mhmd_911]

هذه دالة من احد الدروس وضيفتها ترجع قيمة بمدلول عمود وهي هنا تعيد كمية بمدلول عمود id

PHP كود :

Public Function GetQuantity(id As Integer) As Integer
    Dim cmd As New OleDbCommand(String.Format("SELECT [Qty] FROM [Items] WHERE [ID]={0}", id), cnn)
    cnn.Open()
    Dim ret As Integer = cmd.ExecuteScalar
    cnn.Close()
    Return ret
End Function 


وبنفس الاسلوب عملت لك دالة تطرح من الكمية

PHP كود :

Public Function SubQuantity(id As Integer, qty As Integer) As Boolean
    Dim cmd As New OleDbCommand(String.Format("UPDATE [Items] SET [Qty]=([Qty]-{0}) WHERE [ID]={1}", qty, id), cnn)
    cnn.Open()
    Dim ret As Integer = cmd.ExecuteNonQuery()
    cnn.Close()
    If ret > 0 Then Return True
End Function 


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