Hi ALL
I have an UPDATE query which gives me a syntax error in the Cmd. .ExecuteNonQuery() line.
I Have checked that the connection, table names, and data types are correct.
I Just can't put my finger on whats causing the error.
Hope some one can help me.
Here is the code
Thank you.
Code:Public Class EditServices Private ServiceId As Integer Private quantidade As Integer Public Property SetID As Integer Get Return ServiceId End Get Set(value As Integer) ServiceId = value End Set End Property Public Property Qunty As Integer Get Return quantidade End Get Set(value As Integer) quantidade = value End Set End Property Public Sub Updateservices(ByVal taxa As Decimal, ByVal subtotal As Decimal) Try Dim query As String = "UPDATE JobEntries_tbl SET [Itemquantity]=@qnty, [Taxes]=@taxs, [SubTotal]=@subTotl, WHERE [JobEntryID]=@ID" Dim DBCon As New Connection DBCon.FilePath = "C:\CFI\filepath.txt" DBCon.connect() DBCon.con.Open() Dim cmd As New OleDb.OleDbCommand(query, DBCon.con) With cmd .CommandType = CommandType.Text .CommandText = query .Parameters.AddWithValue("@qnty", quantidade) .Parameters.AddWithValue("@taxs", taxa) .Parameters.AddWithValue("@subTotl", subtotal) .Parameters.AddWithValue("@ID", ServiceId) .ExecuteNonQuery() End With DBCon.con.Close() Catch ex As Exception MsgBox("EditServices_Updateservices: " & ex.Message) End Try End Sub End Class


Reply With Quote
