vb.net - 更新语句 vb.net 中的语法错误

Question

我在更新时出错。我只是这个代码的新手。我真的很感激任何帮助。

 Private Sub Save_Record()
    Dim conn As New OleDbConnection
    Dim cmd As New OleDbCommand
    Dim sSQL As String = "SELECT * FROM Instructor"
    Try
        'get connection string declared in the Module1.vb and assing it to conn variable
        conn = New OleDbConnection(Get_Constring)
        conn.Open()
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        'I just use the textbox tag property to idetify if the data is new or existing.

        sSQL = "UPDATE Instructor set fname =  ?, lname =?, mname =? , [password] = ?, [level]=?, where Username = ?"
        cmd.CommandText = sSQL
        cmd.Parameters.AddWithValue("@p1", txtfname.Text)
        cmd.Parameters.AddWithValue("@p2", txtlname.Text)
        cmd.Parameters.AddWithValue("@p3", txtinitial.Text)
        cmd.Parameters.AddWithValue("@p4", txtpass.Text)
        cmd.Parameters.AddWithValue("@p5", lbllevel.Text)
        cmd.Parameters.AddWithValue("@p6", txtusername.Text)
        cmd.ExecuteNonQuery()
        MsgBox("Data has been save.")
    Catch ex As Exception
        MsgBox(ErrorToString)
    Finally
        conn.Close()
    End Try
End Sub

Answer 1

你在 where 之前有一个额外的昏迷[level]=?, where Username。尝试这个

sSQL = "UPDATE Instructor set fname =  ?, lname =?, mname =? , [password] = ?, [level]=? where Username = ?"