Hi,
Try this:
Dim Con As New OleDb.OleDbConnection("Provider=SQLOLEDB ;Data Source=Danawa;Initial Catalog=Store;Integrated Security=SSPI ")
Dim trans As OleDb.OleDbTransaction
trans = Con.BeginTransaction()
Try
Con.Open()
Dim cmd As New OleDb.OleDbCommand("UPDATE ItemIn SET Itemquantity= Itemquantity - @IQ WHERE ItemName=@IN", Con, Trans)
cmd.Parameters.AddWithValue("@IQ", Int32.Parse(ItemquantityTextBox.Text))
cmd.Parameters.AddWithValue("@IN", ItemNameComboBox.Text)
cmd.ExecuteNonQuery() // The probleam are from here//
trans.Commit()
Catch
trans.Rollback()
Finally
Con.Close()
Con.Dispose()
End Try
Hope this could help...
Remember to vote, if help...
Regards,
Algem