CODEWITHSUNDEEP
vb.netms-access
Arun
Arun

Reputation: 11

VB.net - Syntax error in ms access SQL update query

I have prepared my project in vb.net with access database, but I am getting an error like "syntax error in update statement"

I have used following code:

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()

Any help would be appreciated.

Upvotes: 1

Views: 40

Answers (2)

hdkhardik
hdkhardik

Reputation: 662

You have syntax error in your query. Please remove comma (,) you have used before where clause from query, as it is used to separate two different column

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()

Upvotes: 0

apomene
apomene

Reputation: 14389

omit , before WHERE and add space after it. Change:

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

to:

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

Also Use SQL parameters. (Not very keen to vb to show you example)

Upvotes: 1

Related Questions