none
problemas con datagrid RRS feed

  • Pregunta

  • necesito ingresar datos en un grid por medio de un proceso almacenado en mysql este es el proceso almacenado en mysql

    CREATE DEFINER=`root`@`localhost` PROCEDURE `Mostrar_Kardex`(
    IN Criterio VARCHAR(150)
    )
    BEGIN
    SELECT     productos.cod_produc,
            productos.nombre,
            productos.stockmaximo,
            productos.stockminimo,
            productos.pcosto,
            productos.PVta,
            categorias.Nombre,
            detalleventa.cantidad
            FROM productos
            INNER JOIN categorias ON productos.idcategoria = categorias.idcategoria
            INNER JOIN detalleventa ON productos.cod_produc = detalleventa.cod_producto
            where cod_produc LIKE "%Criterio%";
    END

    utilizo el textbox parra ingresar el codigoy que me realise la busqueda y me envie los datos al grid

     Private Sub btnmostrar_Click(sender As Object, e As EventArgs) Handles btnmostrar.Click
            Me.DataGridKardex.AutoGenerateColumns = False
            Me.DataGridKardex.DataSource = conee.ObtenerKardexPorCriterio(Me.maskbuscar.Text)
        End Sub

    y esto es lo que tengo en el modulo

     Public Function ObtenerKardexPorCriterio(ByVal descripcion As String) As List(Of inmagenes)
            Dim lista As New List(Of inmagenes)()
            Using conn As New MySqlConnection(ConfigurationManager.ConnectionStrings("default").ToString)
                Using cmd As New MySqlCommand("Mostrar_Kardex", conn)
                    conn.Open()
                    cmd.CommandType = CommandType.StoredProcedure
                    cmd.Parameters.AddWithValue("?Criterio", descripcion)
                    Dim reader As MySqlDataReader = cmd.ExecuteReader
                    While reader.Read
                        lista.Add(LoadArticulo(reader))
                    End While
                End Using
            End Using
            Return lista
        End Function

    y no me ingresa en el while ahi tengo el problema

        Private Function LoadArticulo(ByVal reader As IDataReader) As inmagenes
            Dim articulo As New inmagenes
            articulo.codigoProducto = reader("cod_produc")
            articulo.StockMaxi = reader("stockmaximo")
            articulo.StockMinimo = reader("stockminimo")
            articulo.cantidad = reader("cantidad")
            articulo.kar_nombre = reader("Nombre")
            articulo.kar_nombres = reader("nombre")
            articulo.PCOSTO = reader("pcosto")
            articulo.PVTA = reader("PVta")
            Return articulo
        End Function

    sábado, 14 de septiembre de 2013 0:30

Todas las respuestas

  • hola

    donde veo el problema es aqui

     where cod_produc LIKE "%Criterio%";

    probaste e procedure desde alguna tool de mysql para administrar la db y este devuelve registros ?

    sino me equivoco deberia sere

    cod_produc LIKE CONCAT('%', ?Criterio, '%')

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    sábado, 14 de septiembre de 2013 12:15
  • ya no me da problemas pero no me llena el grid

    utilizo el textbox parra ingresar el codigoy que me realise la busqueda y me envie los datos al grid

     Private Sub btnmostrar_Click(sender As Object, e As EventArgs) Handles btnmostrar.Click
            Me.DataGridKardex.AutoGenerateColumns = False
            Me.DataGridKardex.DataSource = conee.ObtenerKardexPorCriterio(Me.maskbuscar.Text)
        End Sub

    domingo, 15 de septiembre de 2013 3:14