업데이트 문 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

바로 앞에 여분의 코마가 있습니다. [level]=?, where Username. 시도해보십시오

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