Question

这是我到目前为止所得到的：

        Dim myCONN As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=w:\Baza.mdb")

    Dim cmd1 = New OleDbCommand("SELECT ID FROM Baza WHERE NAZIV=@XXNAZIV")
    cmd1.Parameters.AddWithValue("@XXNAZIV", TextBox2.Text)

    cmd1.Connection = myCONN
    myCONN.Open()
    Dim result = cmd1.ExecuteReader()
    While (result.Read())
        Dim rowx As Integer = GetTextOrEmpty(result("ID"))
    End While

我找到了行（rowx），我希望在其中更改20个相应列（namesID：NAZIV，SIFRA，...）中的值。数据已经显示在文本框中（textbox1 ...），但我不知道如何使用UPDATE完成此代码以及如何将更改的值重新插入Access。

Answer 1

Dim cmdText As String = "UPDATE Baza SET NAZIV=@XXNAZIV Where ID=SomeId"

Using con = new OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source = h:\Baza.mdb")
Using cmd = new OleDbCommand(cmdText, con)
    con.Open()
    cmd.Parameters.AddWithValue("@XXNAZIV",TextBox2.Text)

    cmd.ExecuteNonQuery()
End Using
End Using

这可以帮助您解决问题，当然您还必须将ID参数传递给查询。

Reference

按列更新Access数据库记录，已知行

1 个答案: