VB.net - MS AccessのSQL更新クエリの構文エラーが

Question

私はアクセスデータベースとvb.netでの私のプロジェクトを準備しているが、私は以下の私が使用している「UPDATE文の構文エラー」

のようなエラーを取得していますコード：

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

,の前には、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

あなたのクエリに構文エラーがあります。クエリからwhere句を使用する前に使用していたカンマ（,）を削除してください。別の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()