Boa tarde,
Ok, nesse caso o Mysql aparentemente estará a usar o "." como caracter de separação decimal e o sistema operativo o "," .
Imports System.Globalization
connection()
Dim val As Double
''val = Valor.Text.Replace(",", ".")
double val = double.Parse(Valor.Text, NumberStyles.AllowDecimalPoint, new NumberFormatInfo() { NumberDecimalSeparator = "." }); //parse forçando o caracter decimal a ser o ponto
Try
SQL = "UPDATE produtos set quantidade = " & val & " 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
Não deve estar muito longe disto, mas não tive oportunidade de testar.
Outra alternativa
Imports System.Globalization
NumberFormatInfo nfi = new NumberFormatInfo();
nfi.NumberDecimalSeparator = ".";
connection()
Dim val As Double
''val = Valor.Text.Replace(",", ".")
double val = double.Parse(Valor.Text, NumberStyles.AllowDecimalPoint, new NumberFormatInfo() { NumberDecimalSeparator = "." }); //parse forçando o caracter decimal a ser o ponto
val.ToString(nfi); //força o ponto a ser o separador decimal
Try
SQL = "UPDATE produtos set quantidade = " & val & " 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
Cordiais cumprimentos,
Apocsantos
↧