Variables 'single' y campos 'float' de mysql [VB]

[nelsonpk]

Hola a todos, no estoy muy familiarizado con las variables 'single' pero las estoy usando ya que estoy almacenando dinero en esas variables y me encontré con el problema de que al intentar guardarlas en un campo 'float' en mysql me borra los decimales... ¿Qué podría hacer?

Y otra cosa extraña que me sucede con las variables 'single'... En mi aplicación a meda que voy agregando productos se va sumando el dinero que cuesta cada uno de ellos en una variable 'single'.

Bueno aca les muestro una imágen... cada producto que se agrega se va sumando y se muestra en el total general. Si ustedes suman todo la cuenta da 86.9 pero el programa muestra 86.89999.


Gracias, saludos.

[nelsonpk]

bump......

[Aquaventus]

Hola nelsonpk! podrias colocar tu codigo de cómo almacenas tu data a la BD?. Con respecto al segundo punto podrias resolverlo con un Math.Round(minumero,2), donde 2 vendría a ser el numero de decimales a redondear. Saludos!.

[nelsonpk]

Para guardar los datos uso el conector .NET que dan en la página oficial de mysql, creo la conexión y con esta función que cree guardo los datos:

Código PHP:

  Public Function insert_into(ByVal table As String, ByVal args As String, ByVal values As String)

        conexion.Open()

        Dim sqlcommand As String = "INSERT INTO " & table & " ( " & args & " ) VALUES ( " & values & " )"
        Dim command As MySqlCommand = New MySqlCommand(sqlcommand, conexion)

        Try

            command.ExecuteNonQuery()

        Catch mi As MySqlException

            MsgBox("Error en la instrucción MySQL: " & mi.Message, vbCritical)
            End

        End Try

        conexion.Close()

        Return True

    End Function  
   

Esta es la tabla...

Código:

CREATE TABLE `ventas` (
  `id` int(11) unsigned NOT NULL auto_increment,
  `userid` int(11) unsigned NOT NULL,
  `cod` varchar(64) NOT NULL,
  `precio` float NOT NULL,
  `hora` int(11) unsigned NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;

Y así guardo especificamente en esa tabla...

Código PHP:

  Private Function ventas_actual_a_general()

        Form1.conexion.Open()

        Dim sqlcommand As String = "SELECT * FROM venta_actual"
        Dim command As MySqlCommand = New MySqlCommand(sqlcommand, Form1.conexion)
        Dim reader As MySqlDataReader = command.ExecuteReader()

        Dim result As Boolean

        Try

            If reader.HasRows = False Then

                MsgBox("Error: Se ha cerrado una venta que no tiene productos.", vbCritical)

                reader.Close()
                Form1.conexion.Close()

                result = False

            Else

                Dim i As Integer
                i = 0

                While (reader.Read())

                    array_cod(i) = reader!cod
                    array_precio(i) = Convert.ToSingle(reader!precio)

                    i = i + 1

                End While

                reader.Close()

                Form1.conexion.Close()

                For x As Integer = 0 To array_cod.Length - 1

                    If array_cod(x) <> "" And array_cod(x) <> " " Then

                        Form1.insert_into("ventas", "userid, cod, precio, hora", "'" & userid & "', '" & _
                                          array_cod(x) & "', '" & array_precio(x) & _
                                          "', '" & Form1.TimeToUnix(Now) & "'")

                    End If

                Next

                Call borrar_venta_actual()

                For x = 0 To 255

                    array_cod(x) = Nothing
                    array_precio(x) = Nothing

                Next

                result = True

            End If

        Catch mi As MySqlException

            MsgBox("Error en la instrucción MySQL: " & mi.Message, vbCritical)
            End

        End Try

        Return result

    End Function  
   

PD: Provaré lo del redondeo.
Edit: Lo del redondeo funcionó, gracias !

[nelsonpk]

bump 2.0 ....

[nelsonpk]

Bueno vengo a comentar que pude resolver el problema, dejo la solucón por si le sirve a alguien mas...

En mysql cambie el campo float por decimal(10,2) y en el vb.net use variables decimal... el único problema que tube haciendo esto es que cuando cargo los datos desde la base de datos los decimales los separa con , y para guardarlos es necesario usar el símbolo . entonces usé la función replace y fin del problema :D

Saludos espero que les sirva.