VB.net更新SQL命令

Question

由于某种原因，我无法更新我的记录。如下：

我有一个 Windows 窗体，它会在加载时显示飞机的当前状态。如果该状态发生变化，我可以从组合框 (cboServ) 中选择值。当我从该表单单击退出按钮时，状态应该会更新，因此在再次加载表单时会出现新值。然而事实并非如此。

这是我目前拥有的代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim updateQuery As String = "UPDATE dbo.aircraft SET dbo.aircraft.condition = @OE_status WHERE aircraft.avNum = 'ab201'"

    Dim updateCmd As New SqlCommand(updateQuery, con)
    updateCmd.Parameters.Add("@OE_status", cboServ.SelectedValue)
    MessageBox.Show("it worked")
    con.Close()
    Me.Close()
    Form1.Show()
End Sub

我得到的错误是 - 我不完全理解：

System.InvalidCastException: '从'DataRowView' 类型到'String' 类型的转换无效。'

这来自cboServ.SelectedValue这一行。

Answer 1

显示的代码不止一个问题。

首先，您应该使用Option Strict On 确保使用的所有变量的类型都正确匹配。

您可以通过将按钮单击处理程序中正在执行的操作分离到其他方法来更轻松地隔离问题。例如，我们可以把数据库交互放到它自己的方法中：

Sub UpdateAircraftCondition(avNum As String, condition As String)
    Dim connStr = "YOUR CONNECTION STRING HERE"
    Dim updateQuery As String = "UPDATE dbo.aircraft SET dbo.aircraft.condition = @OE_status WHERE aircraft.avNum = @AvNum"

    Using conn As New SqlConnection(connStr)
        Using cmd As New SqlCommand(updateQuery, conn)
            cmd.Parameters.Add(New SqlParameter With {.ParameterName = "@AvNum", .SqlDbType = SqlDbType.NVarChar, .Size = 16, .Value = avNum})
            cmd.Parameters.Add(New SqlParameter With {.ParameterName = "@OE_Status", .SqlDbType = SqlDbType.NVarChar, .Size = 16, .Value = condition})
            conn.Open()
            cmd.ExecuteNonQuery()
            conn.Close()

        End Using
    End Using

End Sub

（您需要使 Size（对于字符串数据）和 SqlDbType 与数据库中的列匹配。）

注意连接如何只存在于需要的地方 - Using 构造负责处理非托管资源（如 SqlConnection）以保持内存整理而不泄漏。

与其将实际的连接字符串放在任何地方，这样更改起来很麻烦，不如将它放在一些设置文件中，例如使用My.Settings。

根据错误信息，cboServ.SelectedValue 是 DataRowView，而不是 String。这让我想知道 cboServ 是否不是 ComboBox。但是我们可以通过尝试以下按钮单击事件处理程序的代码来获得有用的错误消息：

Private Sub bnUpdateCondition_Click(sender As Object, e As EventArgs) Handles bnUpdateCondition.Click

    If cboServ.SelectedIndex >= 0 Then
        Dim aircraftCondition = cboServ.SelectedItem.ToString()
        Dim avNum = "ab201"
        UpdateAircraftCondition(avNum, aircraftCondition)

        ' more code may go here

    End If

End Sub

请注意，我尝试给按钮起一个有意义的名称：这样做会让您在未来更容易理解“Button337”的用途。

Answer 2

换行：

updateCmd.Parameters.Add("@OE_status", cboServ.SelectedValue)

到：

updateCmd.Parameters.AddWithValue("@OE_status", cboServ.SelectedValue.ToString())

或者您可以使用显式转换：

var dataRowView = cboServ.SelectedValue as DataRowView;
var row = dataRowView.row As MyDataTableDefinition;
updateCmd.Parameters.AddWithValue("@OE_status", row[“OE_status”].ToString())