VB.net - Синтаксическая ошибка в MS SQL доступа запроса на обновление

Question

Я подготовил свой проект в vb.net с базой данных доступа, но я получаю сообщение об ошибке, как «Ошибка синтаксиса в заявлении обновления»

я использовал следующую код:

Dim cn As New OleDb.OleDbConnection 
Dim cm As New OleDb.OleDbCommand 
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NAV Vikram\DATABASE NAVPREET.mdb" 
cn.Open() 
cm.Connection = cn 
cm.CommandText = "UPDATE DATAENTRY2 set [DIAGNOSIS]='" & TextBox13.Text & "',WHERE[opdno]='" & TextBox1.Text & "' " 
cm.ExecuteNonQuery() 

Любая помощь будет принята с благодарностью.

Answer 1

omit , до WHERE и после этого добавить пробел. Изменение:

cm.CommandText = "UPDATE DATAENTRY2 set [DIAGNOSIS]='" & TextBox13.Text & "',WHERE[opdno]='" & TextBox1.Text & "' " 

к:

cm.CommandText = "UPDATE DATAENTRY2 set [DIAGNOSIS]='" & TextBox13.Text & "' WHERE [opdno]='" & TextBox1.Text & "' " 

Также Использование SQL параметров. (Не очень заинтересованы в vb, чтобы показать вам пример)

Answer 2

У вас есть синтаксическая ошибка в вашем запросе. Пожалуйста, удалите запятую (,), которую вы использовали до того, как предложение от запроса, поскольку оно используется для разделения двух разных столбцов

Dim cn As New OleDb.OleDbConnection 
Dim cm As New OleDb.OleDbCommand 
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NAV Vikram\DATABASE NAVPREET.mdb" 
cn.Open() 
cm.Connection = cn 
cm.CommandText = "UPDATE DATAENTRY2 set [DIAGNOSIS]='" & TextBox13.Text & "' WHERE[opdno]='" & TextBox1.Text & "' " 
cm.ExecuteNonQuery()