por que este update no funciona para cifrás de más de 1.000 ...por favor...si la cifra es 100 o 30 o 400 lo hace bien..si no no marca ningún error pero tampoco lo hace?¿?
Cita: Dim todo As Decimal = 0
todo = -1567
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand
MessageBox.Show(CStr(todo))
com.CommandType = CommandType.Text
com.CommandText = "UPDATE HistoricoTickets SET Producto = '" & TextVarios.Text & "', Euros = (" & todo.ToString.Replace(",", ".") & ") where Euros = @FI and Id = @FA"
com.Parameters.AddWithValue("@FI", DgGenerados.CurrentRow.Cells(6).Value)
com.Parameters.AddWithValue("@FA", DgGenerados.CurrentRow.Cells(0).Value)
adapt.UpdateCommand = com
conexion.Open()
com.ExecuteNonQuery()
conexion.Close()