VB.NET销售时更新库存功能异常，请求修正更新语句

代码核心问题分析 #

你的updatestock()方法执行后数据无变化，主要是以下几个错误导致：

1. SQL语句拼接语法错误：原语句中'&" & a & "'的写法会生成无效的SQL字符串（例如'&100'），导致WHERE条件无法匹配记录，或者字段值设置错误。
2. 错误使用执行方法：UPDATE属于非查询操作，不能用ExecuteReader()（该方法用于读取查询结果集），应该用ExecuteNonQuery()来执行更新。
3. 未实现销量更新逻辑：原代码只处理了库存减少，没完成quantity sold增加销售数量的需求。
4. 依赖前端旧数据计算：直接用txtStock.Text计算新库存可能导致数据不一致，应该从数据库获取实时库存值。
5. 存在SQL注入风险：字符串拼接的SQL语句存在安全隐患，且容易出现语法错误。

修正后的完整代码 #

Public Sub updatestock()
    Dim connectionString As String = "server=localhost;userid=root;password=root;database=golden_star"
    Dim saleQuantity As Integer
    
    ' 验证销售数量是否为有效整数
    If Not Integer.TryParse(ComboBox3.Text, saleQuantity) Then
        MessageBox.Show("请输入有效的销售数量")
        Return
    End If

    Using MysqlConn As New MySqlConnection(connectionString)
        Try
            MysqlConn.Open()

            ' 1. 获取最新的库存和销量数据
            Dim getCurrentDataQuery As String = "SELECT quantity_in_stock, quantity_sold FROM inventory WHERE brand = @Brand AND size = @Size"
            Using getCmd As New MySqlCommand(getCurrentDataQuery, MysqlConn)
                getCmd.Parameters.AddWithValue("@Brand", ComboName.Text)
                getCmd.Parameters.AddWithValue("@Size", ComboSize.Text)

                Using reader As MySqlDataReader = getCmd.ExecuteReader()
                    If reader.Read() Then
                        Dim currentStock As Integer = reader.GetInt32("quantity_in_stock")
                        Dim currentSold As Integer = reader.GetInt32("quantity_sold")

                        ' 计算更新后的值
                        Dim newStock As Integer = currentStock - saleQuantity
                        Dim newSold As Integer = currentSold + saleQuantity

                        reader.Close()

                        ' 2. 执行库存和销量的更新
                        Dim updateQuery As String = "UPDATE inventory SET quantity_in_stock = @NewStock, quantity_sold = @NewSold WHERE brand = @Brand AND size = @Size"
                        Using updateCmd As New MySqlCommand(updateQuery, MysqlConn)
                            updateCmd.Parameters.AddWithValue("@NewStock", newStock)
                            updateCmd.Parameters.AddWithValue("@NewSold", newSold)
                            updateCmd.Parameters.AddWithValue("@Brand", ComboName.Text)
                            updateCmd.Parameters.AddWithValue("@Size", ComboSize.Text)

                            Dim affectedRows As Integer = updateCmd.ExecuteNonQuery()
                            If affectedRows > 0 Then
                                MessageBox.Show("库存更新成功")
                            Else
                                MessageBox.Show("未找到匹配的品牌/尺寸记录，更新失败")
                            End If
                        End Using
                    Else
                        MessageBox.Show("未找到对应品牌和尺寸的库存记录")
                    End If
                End Using
            End Using
        Catch ex As MySqlException
            MessageBox.Show("数据库错误：" & ex.Message)
        Catch ex As Exception
            MessageBox.Show("操作错误：" & ex.Message)
        End Try
    End Using
End Sub

关键修正说明 #

• 资源自动管理：用Using语句自动释放数据库连接、命令对象，避免资源泄漏。
• 数据有效性验证：通过Integer.TryParse确保销售数量是有效整数，防止类型转换错误。
• 实时数据计算：先从数据库获取最新的库存和销量，避免使用前端可能过期的数据导致计算错误。
• 参数化查询：彻底解决SQL注入问题，同时避免字符串拼接的语法错误。
• 正确执行更新：用ExecuteNonQuery()执行UPDATE，通过返回的受影响行数判断更新是否成功。
• 完整业务逻辑：同时更新quantity_in_stock（减少销售数量）和quantity_sold（增加销售数量），满足需求。
• 错误提示优化：增加不同场景的错误提示，方便排查问题。

注意：如果数据库中库存字段实际名为quantity_onstock（原代码中使用的名称），请将代码中的quantity_in_stock替换为quantity_onstock，确保与数据库字段名完全一致。

内容的提问来源于stack exchange，提问作者Salwa Hamim