none
Guardar datos desde Datagridview enlazado a datos RRS feed

  • Pregunta

  • Tengo un datagrid view el cual cargo con datos con una consulta select condicionada, además sobre esa misma consulta que me devuelve un Datatable le adicionó filas vacias al Datatable hasta tener un total de 15 incluyendo las filas que ya tienen datos. Ese resultado lo muestro en un datagrid quedando así

    Después escribo datos en las líneas vacias para luego ser guardados  la idea es comparar los datos que están en la tabla con los nuevos adicionados al datagrid, para así solo guardar los datos que no existen (para evitar duplicados)  para eso uso el siguiente código el cual no logro realizar lo esperado

    Private Sub btn_guardar_Click(sender As Object, e As EventArgs) Handles btn_guardar.Click
            Dim dt As New DataTable
            dt = func.obtener_subproductos(cod_barras.Text)
            Dim existe As Boolean
            Dim vacio As Boolean
            For Each fila As DataGridViewRow In Listado_Productos.Rows
                If Convert.ToString(fila.Cells("CODIGO").Value) Is DBNull.Value.ToString Then
                    vacio = True
                End If
                If vacio = False Then
                    For Each row As DataRow In dt.Rows
                        If fila.Cells("CODIGO").Value.ToString = row("CODIGO").ToString Then
                            fila.DefaultCellStyle.ForeColor = Color.Red
                            existe = True
                        End If
                    Next
                    If existe = False Then
                        Dim codigo As String = CStr(fila.Cells("CODIGO").Value)
                        Dim descrip As String = CStr(fila.Cells("DESCRIPCION").Value)
                        Dim cantidad As String = CStr(fila.Cells("CANTIDAD").Value)
                        Dim tipoproducto As String = CStr(fila.Cells("TIPO PRODUCTO").Value)
                        func.insertar_subproductos(codigo, descrip, cod_barras.Text, descripcion.Text, cantidad, tipoproducto)
                        MsgBox("Registrado")
                    End If
                End If
            Next
    
    
    
        End Sub
    Toda ayuda es bienvenida, y estaría muy agradecido, de antemano gracias y estoy atento a sus respuestas. 

    lunes, 8 de abril de 2019 15:43

Todas las respuestas

  • Hola  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te hago la recomendación de ingresar al siguiente enlace en donde puedes encontrar una posible solución para tu problema.

    https://social.msdn.microsoft.com/Forums/es-ES/00e66023-48bf-468f-9c76-b4d958951fec/como-guardar-datos-de-un-datagridview-enlazado-a-bd-access?forum=vbes

    Gracias por usar los foros de MSDN.

    Carlos Ruiz
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    lunes, 8 de abril de 2019 21:40