Question

当我运行下面的代码时，我会收到此错误： - 对象引用未设置为对象的实例。一切都已初始化，数据库中没有空字段请帮忙！

Dim con As New OleDbConnection

        Dim cmd2 As New OleDbCommand
        con.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\mydb.accdb")

        cmd2.CommandText = "update items set itmbrcd=@p5,itemname=@p1,itemprice=@p2,itemGroup=@group,remarks=@p3,vat=@p6 where itmcode=@p4"
        cmd2.Connection = con
        con.Open()

        cmd2.Parameters.AddWithValue("@p5", ItmBrcdTextBox.Text)
        cmd2.Parameters.AddWithValue("@p1", ItemNameTextBox.Text)
        cmd2.Parameters.AddWithValue("@p2", ItemPriceTextBox.Text)
        cmd2.Parameters.AddWithValue("@group", ItemGroupComboBox.SelectedItem.ToString)
        cmd2.Parameters.AddWithValue("@p3", RemarksTextBox.Text)
        cmd2.Parameters.AddWithValue("@p4", ItmcodeTextBox.Text)
        cmd2.Parameters.AddWithValue("@p6", VatNumericUpDown.Value)

        cmd2.ExecuteNonQuery()
        MsgBox("item updated!")
        con.Close()

Answer 1

正如Plutonix所提到的，当在组合框中未选择任何内容时，您会在以下行中收到此错误。检查combo1.SelectedItem是否为空。

cmd2.Parameters.AddWithValue("@group", ItemGroupComboBox.SelectedItem.ToString)

- 对象引用未设置为对象的实例

1 个答案: