Ms 访问未通过 VB.Net 更新

Question

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 处理 Button5.Click

    pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + "D:\FINAL PROJECT VB INVENTORY MANAGEMENT\Inventory.accdb;"
    connstring = pro
    myconnection.ConnectionString = connstring
    myconnection.Open()

    command = "Update stock set ProductName='" & ProductNameTextBox.Text & "', Quantity='" & QuantityTextBox.Text & "' , Price='" & PriceTextBox.Text & " where ProductID=" & ProductIDTextBox.Text & ""
    Dim cmd As OleDbCommand = New OleDbCommand(command, myconnection)

    MessageBox.Show("Data Updated!")
    Try
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        myconnection.Close()
        ProductIDTextBox.Clear()
        ProductNameTextBox.Clear()
        QuantityTextBox.Clear()
        PriceTextBox.Clear()

    Catch ex As Exception

    End Try
End Sub

Answer 1

您创建了命令，但您从未执行过它。您需要打开连接并在命令上调用 ExecuteNonQuery。