Olá Boa tarde desculpa pela demora na resposta.
é o seguinte minha query estava errada.
connection()
Dim val As Double
Try 'O erro está aqui estava mandando alterar quantidade em vez do valor'
'SQL = "UPDATE produtos set Valor = " & val & " where codigobarra = " & Codigo.Text & ""'
SQL = "UPDATE produtos set quantidade = " & Valor.Text.Replace(",", ".") & " where codigobarra = " & Codigo.Text & ""
cmd = New MySqlCommand(SQL, conn)
cmd.ExecuteNonQuery()
MsgBox(val)
cmd = Nothing
Catch ex As MySqlException
MsgBox(ex.Message)
End Try
conn.Close()
quant = Nothing
val = Nothing
Obrigado pela ajuda e desculpa pela demora.
tópico resolvido.
↧