VB.Net没有给出一个或多个带有更新的必需参数的值

Question

您好我正在尝试为我的工作建立一个与当前现有数据库进行通信的预订系统。但我无法让它将更改提交到数据库。

我收到此错误。

  

“没有为更新所需的一个或多个参数赋予值”

以下是我将更改注入访问数据库的代码。我用asterix替换了一些敏感信息。三江源。

Private Sub AddAddButton_Click(sender As Object, e As EventArgs) Handles AddAddButton.Click

    Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\*******************************;Jet OLEDB:Database Password=**********;")
    Try
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("UPDATE RepairOrders SET ROOther = @Other, ROJobType = @Type, ROJobTime = @Time, RODelPicDate = @DelPic WHERE RONo = @JobNo", conn)

        cmd.Parameters.AddWithValue("@Other", AddOtherText.Text)
        cmd.Parameters.AddWithValue("@Type", AddTypeCombo.Text)
        If AddTimeCombo.Text = "AM" Then
            cmd.Parameters.AddWithValue("@Time", "1")
        ElseIf AddTimeCombo.Text = "PM" Then
            cmd.Parameters.AddWithValue("@Time", "2")
        Else
            cmd.Parameters.AddWithValue("@Time", "0")
        End If
        cmd.Parameters.AddWithValue("@DelPic", AddDatePick.Value.Date)
        cmd.Parameters.AddWithValue("@JobNo", AddJobText.Text)

        conn.Open()
        cmd.ExecuteNonQuery()
        MessageBox.Show("Booking Added!", "test")
        conn.Close()

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub