0

使用 Visual Studio 2002 和 Microsoft SQL Server。我的代码没有产生错误，但 SQL Server 表仍然不受影响。:(

此代码的“添加”版本运行良好。. 这只是更新。T_T

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

    Try
        ''Open DBase
        dbOpen()
        Dim cmd As New SqlCommand()
        Dim cmdm As New SqlCommand()

        cmd.CommandText = "UPDATE [Currency] SET Country= @Country, Unit= @Unit , Code= @Code WHERE ISO= @ISO"

        Dim paramISO As New SqlParameter()
        paramISO.ParameterName() = "@ISO"
        paramISO.Value() = txtIso.Text
        cmd.Parameters.Add(paramISO)

        Dim paramCountry As New SqlParameter()
        paramCountry.ParameterName() = "@Country"
        paramCountry.Value() = txtCountry.Text
        cmd.Parameters.Add(paramCountry)

        Dim paramUnit As New SqlParameter()
        paramUnit.ParameterName() = "@Unit"
        paramUnit.Value() = txtUnit.Text
        cmd.Parameters.Add(paramUnit)

        Dim paramCode As New SqlParameter()
        paramCode.ParameterName() = "@Code"
        paramCode.Value() = txtCurrencyCode.Text
        cmd.Parameters.Add(paramCode)

        MessageBox.Show("Record Updated! ", "Update Status", MessageBoxButtons.OK, MessageBoxIcon.Information)

    Catch ex As Exception
        MessageBox.Show("Record Not Updated! ", "Update Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Finally
        dbClose()
        'refresh data grid
        fillgrid()
        'disable fields
        disControl()
    End Try
End Sub
4

1 回答 1

1

你错过了这个声明：

cmd.ExecuteNonQuery()

在将所有参数添加到 sqlCommand 对象后添加此语句。

于 2013-04-01T06:49:07.767 回答