Question

我想通过向表中的每个单元格添加一个值来修改数据库中的特定表。我目前正在使用此代码

    Dim command As New SqlCommand("UPDATE ImportProduct_Add_Item SET home_delivery_fees = @home_delivery_fees,
                                                                     additon_customs_fees_egp = @additon_customs_fees_egp,
                                                                     customs_fees_egp = @customs_fees_egp,
                                                                     shipping_fees = @shipping_fees,
                                                                     usd_shipping_fees = @usd_shipping_fees,
                                                                     egp_shipping_fees = @egp_shipping_fees ", sqlconn)

    command.Parameters.Add("@home_delivery_fees", SqlDbType.Money).Value = (Val(TextBox22.Text) / Val(TextBox8.Text))
    command.Parameters.Add("@additon_customs_fees_egp", SqlDbType.Money).Value = (Val(TextBox25.Text) / Val(TextBox8.Text))
    command.Parameters.Add("@customs_fees_egp", SqlDbType.Money).Value = (Val(TextBox26.Text) / Val(TextBox8.Text))
    command.Parameters.Add("@shipping_fees", SqlDbType.Money).Value = (Val(TextBox23.Text) / Val(TextBox8.Text))
    command.Parameters.Add("@usd_shipping_fees", SqlDbType.Int).Value = CheckBox1.CheckState
        command.Parameters.Add("@egp_shipping_fees", SqlDbType.Int).Value = CheckBox2.CheckState
        command.ExecuteNonQuery()
    MsgBox("Done")

我想要的是将输出乘以一列，并让该列的名称为“ total_product_price_egp”

如下所示

command.Parameters.Add("@shipping_fees", SqlDbType.Money).Value = (Val(TextBox23.Text) / Val(TextBox8.Text)) * total_product_price_egp

Answer 1

这个问题尚不完全清楚，但基于两个假设。

total_product_price_egp是一个数据库字段
您要更新的字段是shipping_fees

将代码更改为以下内容：

Dim command As New SqlCommand("UPDATE ImportProduct_Add_Item SET 
    home_delivery_fees = @home_delivery_fees,
    additon_customs_fees_egp = @additon_customs_fees_egp,
    customs_fees_egp = @customs_fees_egp,
    shipping_fees = @shipping_fees * total_product_price_egp,
    usd_shipping_fees = @usd_shipping_fees,
    egp_shipping_fees = @egp_shipping_fees ", sqlconn)

command.Parameters.Add("@home_delivery_fees", SqlDbType.Money).Value = (Val(TextBox22.Text) / Val(TextBox8.Text))
command.Parameters.Add("@additon_customs_fees_egp", SqlDbType.Money).Value = (Val(TextBox25.Text) / Val(TextBox8.Text))
command.Parameters.Add("@customs_fees_egp", SqlDbType.Money).Value = (Val(TextBox26.Text) / Val(TextBox8.Text))
command.Parameters.Add("@shipping_fees", SqlDbType.Money).Value = (Val(TextBox23.Text) / Val(TextBox8.Text))
command.Parameters.Add("@usd_shipping_fees", SqlDbType.Int).Value = CheckBox1.CheckState
command.Parameters.Add("@egp_shipping_fees", SqlDbType.Int).Value = CheckBox2.CheckState
command.ExecuteNonQuery()
MsgBox("Done")

向列中的每个单元格添加一个值

1 个答案: