สอบถามการตัดสต็อกสินค้าค่ะ...โดยต้องการให้การขาย 1 ครั้งมีการตัดสต็อกสินค้า 1 ครั้ง ต้อง ทำไงเหรอค่ะ

using System.Data.SqlClient;

int amountTotal;
public void sellProduct(int id, int amountSell){
     using(SqlConnection con=new SqlConnection()){
          con.ConnectionString=ConfigurationManager.ConnectionString["ConnectionName"].ConnectionString;
          con.Opn();
          using(SqlCommand command=new SqlCommand()){
               command.CommandText="SELECT productAmount FROM product WHERE productID='"+id+"'";
               command.Connection=con;
               using(SqlDataReader reader=command.ExucuteReader()){
                    reader.Read();
                    amountTotal=reader.GetInt32(0);
               }
               amountTotal-=amount;
               command.CommandText="UPDATE [product] SET productAmount='"+amountTotal+"'";
               command.Connection=con;
               try{
                    command.ExecuteNonQuery();
               }catch(Exception ex){
                    
               }
          }
     }
}

Dim Sql_pro As String = "select * from t_product"
        Da_Pro.MissingSchemaAction = MissingSchemaAction.AddWithKey
        Da_Pro.SelectCommand = New OleDbCommand(Sql_pro, Cn)
        Try
            Da_Pro.Fill(Ds_Pro, "t_product")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Dim Dr As DataRow = Ds_Pro.Tables("t_product").Rows.Find(IdPro)
Dr เป็นหารหัสสินค้าสินค้า
        Dim a As Integer = Dr("ชื่อฟิลด์ที่เก็บจำนวนสินค้าในตารางคลังสินค้า").ToString
        With Dr
            .BeginEdit()
            .Item("pro_total_pro") = a - Val(FrmSell.TxtSell_Total.Text)
            .EndEdit()
        End With
        Dim CbPro As New OleDbCommandBuilder(Da_Pro)
        Da_Pro.UpdateCommand = CbPro.GetUpdateCommand
        Da_Pro.Update(Ds_Pro.Tables("t_product"))
        Ds_Pro.AcceptChanges()

Dim Sql_pro As String = "select * from ชื่อตารางของคลังสินค้า"
        Da_Pro.MissingSchemaAction = MissingSchemaAction.AddWithKey
        Da_Pro.SelectCommand = New OleDbCommand(Sql_pro, Cn)
        Try
            Da_Pro.Fill(Ds_Pro, "ชื่อตารางของคลังสินค้า")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Dim Dr As DataRow = Ds_Pro.Tables("ชื่อตารางของคลังสินค้า").Rows.Find(เป็นรหัสของสินค้า)
        Dim TotalPro As Integer = Dr("เป็นฟิลด์ที่เก็บจำนวนสินค้าที่มีอยู่ในตารางคลังสินค้า").ToString
        With Dr
            .BeginEdit()
            .Item("ฟิลด์ที่เก็บจำนวนสินค้าที่มีอยู่ในตารางคลังสินค้า") = TotalPro - จำนวนสินค้าที่ถูกซื้อไป
TotalPro เป็นตัวแปรที่ดึงข้อมูลมาจากในฟิลด์ของจำนวนสินค้าที่อยู่ในตาราง ซึ่งนำจำนวนที่มีอยู่ในสต๊อกทั้งหมดมาลบกับจำนวนสินค้าที่ถูกซื้อ
            .EndEdit()
        End With
        Dim CbPro As New OleDbCommandBuilder(Da_Pro)
        Da_Pro.UpdateCommand = CbPro.GetUpdateCommand
        Da_Pro.Update(Ds_Pro.Tables("t_product"))
        Ds_Pro.AcceptChanges()
โค๊ตอันนี้เป็นโค๊ตที่ไม่ต้องใช้คำสั่ง sql เพื่อ update ข้อมูลเพียงแค่ select ข้อมูลออกมาก่อนเท่านั้น ง่ายดีนะครับ