然后updateQuery检查该值是否小于0

问题描述 投票:1回答:2

我有一个名为store的SQL Server表,其中包含3列IDS, Item_Name, Qunt。我有vb选项,通过更新语句从存储中获取值。

我的代码是:

Dim ADP = New SqlClient.SqlDataAdapter("update Store set Qunt = Qunt - @N_Qunt1 where IDS=@CB1", connection)
ADP.SelectCommand.Parameters.AddWithValue("@CB1", ComboBox2.SelectedValue)
ADP.SelectCommand.Parameters.AddWithValue("@N_Qunt1", N_Qunt1.Text)

If connection.State = ConnectionState.Closed Then
    connection.Open()
End If

ADP.SelectCommand.ExecuteNonQuery()
Collection.Close()

Dim ADP1 = New SqlClient.SqlDataAdapter("select * from store where IDS=@CB1", connection)
ADP1.SelectCommand.Parameters.AddWithValue("@CB1", ComboBox2.SelectedValue)

Dim Ds = New DataSet
ADP1.Fill(Ds)

Dim Dt = Ds.Tables(0)
Dim dr = Dt.Rows(0)

If dr!Qunt < 0 Then
    MsgBox(" الكمية المراد سحبها اكبر من المتواجده بالمخزن ", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "سحب")
    Dim ADP2 = New SqlClient.SqlDataAdapter("update Store set Qunt = Qunt + @N_Qunt1 where IDS=@CB1", connection)
    ADP2.SelectCommand.Parameters.AddWithValue("@CB1", ComboBox2.SelectedValue)
    ADP2.SelectCommand.Parameters.AddWithValue("@N_Qunt1", N_Qunt1.Text)

    If connection.State = ConnectionState.Closed Then
        connection.Open()
    End If

    ADP2.SelectCommand.ExecuteNonQuery()
    connection.Close()
    CLEAR_TEXTBOXES(Me)
    Exit Sub
Else
    MsgBox(" تمت سحب الكمية بنجاح ", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "سحب")
End If

它运行正常,但绝对不是专业的东西,执行update语句的代码的想法然后调用表并检查Qunt值是否小于0消息显示拒绝pull的值然后重新添加值到表,有没有想过通过其他方式做到这一点?谢谢

sql vb.net
2个回答
1
投票

您可以像这样添加存储过程到数据库

CREATE PROCEDURE [UpdateIfQuantityOK]
    @quantity integer,
    @ids integer
AS
    declare @sum integer

    select @sum = Sum(QUNT) 
    from store 
    where ids = @ids

    if @sum - @quantity >= 0 
    begin
        update Store 
        set Qunt = Qunt - @quantity 
        where IDS = @ids
    end

此存储过程首先获取可用数量,然后仅在剩余数量大于或等于零时才执行更新。如果不是这种情况,则存储过程不执行更新。要发现存储过程是否已完成更新,您可以检查ExecuteNonQuery的返回值。

当然,你不需要使用SqlDataAdapter。只是一个SqlCommand - 编写更简单,更短。

Dim cmd = new SqlCommand("UpdateIfQuantityOK", con)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@quantity", SqlDbType.Int).Value = Convert.ToInt32(N_Qunt1.Text)
cmd.Parameters.Add("@ids", SqlDbType.Int).Value = Convert.ToInt32(ComboBox2.SelectedValue)

Dim rowsUpdated = cmd.ExecuteNonQuery()
if rowsUpdated <= 0 Then
   MessageBox.Show("Not enough quantity available")
Else
   ....
End if

另请注意,我已将AddWithValue更改为更安全的Add。众所周知,AddWithValue有许多问题和缺点

Can we stop using AddWithValue already?


0
投票

有一种更简单的方法来更新库存,但一定要保持在0以上:

UPDATE store SET qunt = qunt - @n_qunt1 WHERE ids = @cb1 AND qunt >= @n_qunt

此查询仅影响0行,原因只有两个:商店中没有足够的qunt,或者ids完全错误。 Ids不能错,因为它来自一个可能填充了有效id值的组合,这意味着如果此查询更新了0行,那么就没有足够的qunt

如果查询影响1行,则会扣除请求的qunt

此查询将替换您的第一个更新;然后你可以将剩下的代码分开,只需检查ExecuteNonQuery的返回值,就像史蒂夫那样。

© www.soinside.com 2019 - 2024. All rights reserved.