更新数据库 MS 访问 vb.net 中的数据

Question

Private Sub Exe1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    txtScore.Enabled = False
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:UsersSJMI.AlfieDocumentsVisual Studio 2010ProjectsWindowsApplication2WindowsApplication1Accounts.accdb"
    con.Open()
End Sub
Private Sub Submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit.Click
    myqry = "UPDATE Accounts SET StudNo=?, Exer1=? WHERE Number=?"
    Cmd = New OleDbCommand(myqry, con)
    Cmd.Parameters.AddWithValue("?", txtScore.Text)
    Cmd.Parameters.AddWithValue("?", myID.Text)
    Cmd.ExecuteNonQuery()
    txtScore.Text = score.ToString
    con.Close()
    MsgBox("Thank You!!")
    Login.Show()
    Me.Hide()
End Sub

单击提交按钮后没有任何反应。

Answer 1

将 OleDb 与 Access 配合使用时，必须按照参数值在 SQL 语句中显示的顺序提供参数值。

此外，您的UPDATE包含 3 个参数，但您的代码仅提供其中 2 个参数的值。 您需要添加第三个参数值，但我不知道它来自哪里。

我认为您需要接近此的东西，并替换适合我的 [数字参数值] 占位符的任何内容。

myqry = "UPDATE Accounts SET StudNo=?, Exer1=? WHERE [Number]=?"
Cmd = New OleDbCommand(myqry, con)
Cmd.Parameters.AddWithValue("?", myID.Text)
Cmd.Parameters.AddWithValue("?", txtScore.Text)
Cmd.Parameters.AddWithValue("?", [value for Number parameter])
Cmd.ExecuteNonQuery()

注意 我将字段名称 Number 括在方括号中，因为它是一个保留字。