Update command not working

[alleho]

I have this code that writes data to a datatable from a form.

The insert works fine but when it does an update Ii get a Syntax error. Couldn't see why so I added the simple code and remed my original code out. still get the message!!!.

The DB is Foxpro so it will not generate an update command for me.

 

Dim id As String

Dim Desc As String

Dim productid As Integer

Dim producttypeid As Integer

Dim brandid As Integer

Dim codetype As Integer

Dim minstocktotal As Decimal

Dim minstockdepot1 As Decimal

Dim status As String

Dim value As Decimal

 

id = txtECAS.Text

Desc = txtDescription.Text

productid = CboProduct.SelectedValue

producttypeid = CboProductType.SelectedValue

brandid = cboBrand.SelectedValue

codetype = CboCodeType.SelectedValue

status = cboStatus.Text

minstocktotal = txtMinStockTotal.Text

minstockdepot1 = txtMinStockDepot1.Text

value = txtValue.Text

 

Dim Cmmtrans As New OleDb.OleDbCommand

Dim Tranin As OleDb.OleDbTransaction

Dim CnnUserman As OleDb.OleDbConnection

Dim sqlstr As String

 

CnnUserman = OleDbConnection1

CnnUserman.Open()

Cmmtrans.Connection = CnnUserman

 

Tranin = CnnUserman.BeginTransaction()

' insert new record

If processtype = 1 Then

sqlstr = "INSERT INTO tblstock (ecas, description, productid, producttypeid, brandid, codetypeid,minstocktotal,minstockdepot1,status,value) " & _

"VALUES ('" & id & "','" & Desc & "'," & productid & "," & producttypeid & "," & brandid & "," & codetype & "," & minstocktotal & "," & minstockdepot1 & ",'" & status & "'," & value & ")"

'AMENDMENT NOT WORKING

ElseIf processtype = 2 Then

' Me.BindingContext(DsStock2, "viewstock").Position += 1

' sqlstr = "UPDATE tblstock SET (ecas='" & id & "'," & "description='" & Desc & "'," & " productid =" & productid & "," & "producttypeid=" & producttypeid & "," & "brandid=" & brandid & "," & "codetypeid=" & codetype & "," & "minstocktotal=" & minstocktotal & "," & "minstockdepot1=" & minstockdepot1 & "," & "status='" & status & "'," & "value=" & value & ")" & " WHERE(ecas=" & "'" & id & "')"

sqlstr = "UPDATE TBLSTOCK SET (BRANDID=3)WHERE (ecas='8099563')"

MessageBox.Show(sqlstr)

 

End If

 

Cmmtrans.CommandText = sqlstr

Cmmtrans.Transaction = Tranin

Cmmtrans.ExecuteNonQuery()

Tranin.Commit()

 

 

 

Thanks in advance