Question

我正在制作一个程序，可以读取和修改数据库上的数据，目前它可以读取和显示数据。问题是，当我来更新它时，它只会正确保存第一个值。所有数据都是通过表格上的文本框输入的，有几个文本框，每个文本框在数据库上都有不同的值。目前它从第一个文本框（“staffTitle”）更新值，然后将所有新值更改为先前的值并保存其余数据。

Dim cb As New OleDb.OleDbCommandBuilder(DataAdapter)

    Dim oktick, rowNum As Integer

    rowNum = staffIDnumbers.Text

    rowNum = CInt(rowNum)

    rowNum = rowNum - 1
    dataset.Tables("staff").Rows(rowNum).Item(1) = staffTitle.Text
    dataset.Tables("staff").Rows(rowNum).Item(2) = Stafffirstname.Text
    dataset.Tables("staff").Rows(rowNum).Item(3) = Staffsurname.Text
    dataset.Tables("staff").Rows(rowNum).Item(4) = Staffpreferredname.Text
    dataset.Tables("staff").Rows(rowNum).Item(5) = Staffusepreferredname.Checked
    dataset.Tables("staff").Rows(rowNum).Item(6) = Staffstationrank.Text
    dataset.Tables("staff").Rows(rowNum).Item(7) = staffnotes.Text
    DataAdapter.Update(dataset, "staff")
    MsgBox("update complet", , "System Status")

如果我使用数字代替“rowNum”，但是我无法使用“rowNum”

非常感谢任何帮助：）

尝试更新数据库仅适用于第一个

0 个答案: