elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  No actualizan datos al recorrer un For Each en un DataGridView (SQL/.Net)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: No actualizan datos al recorrer un For Each en un DataGridView (SQL/.Net)  (Leído 707 veces)
SlayerBur

Desconectado Desconectado

Mensajes: 43



Ver Perfil
No actualizan datos al recorrer un For Each en un DataGridView (SQL/.Net)
« en: 12 Enero 2018, 15:52 »

Buen día.

Sucede que estoy haciendo mi proyecto final de Visual Basic .Net, y tengo un pequeño problema al añadir mas de 1 objeto a la base de datos mediante un DataGridView.

Código:
       Dim Cmd As New OleDbCommand("insert into Ventas (Producto,Cliente,Fecha,Usuario,Precio,ConDeb,Cantidad,Codigo) Values (@Producto,@Cliente,@Fecha,@Usuario,@Precio,@ConDeb,@Cantidad,@Codigo)", ConBD)

        For Each Row As DataGridViewRow In DGV.Rows
            Cmd.Parameters.Clear()
            Cmd.Parameters.AddWithValue("@Producto", DGV.CurrentRow.Cells(1).Value)
            Cmd.Parameters.AddWithValue("@Cliente", CBC.Text)
            Cmd.Parameters.AddWithValue("@Fecha", DateTime.Now.ToShortDateString)
            Cmd.Parameters.AddWithValue("@Usuario", NombreUser)
            Cmd.Parameters.AddWithValue("@Precio", CInt(DGV.CurrentRow.Cells(3).Value))
            Cmd.Parameters.AddWithValue("@ConDeb", CBPago.Text)
            Cmd.Parameters.AddWithValue("@Cantidad", CInt(DGV.CurrentRow.Cells(2).Value))
            Cmd.Parameters.AddWithValue("@Codigo", DGV.CurrentRow.Cells(0).Value)

            Try
                Cmd.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        Next


Ese sería mi codigo, sucede que cuando agrego 2 objetos al DataGridView, se duplican, si agrego 8, se duplica lo mismo 8 veces..

Este es el codigo para añadir los productos al DGV:

Código:
        Dim Cmd2 As New OleDbCommand("Select Codigo from Productos where Nombre = @Producto", ConBD)
        Cmd2.Parameters.AddWithValue("@Producto", CBP.Text)

        Try
            Codigo = Cmd2.ExecuteScalar()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

        Dim PTotal = Precio * TxtCantidad.Text

        DGV.Rows.Add(Codigo, CBP.Text, TxtCantidad.Text, PTotal, Precio)


En línea

ivancea96


Desconectado Desconectado

Mensajes: 3.410


ASMático


Ver Perfil WWW
Re: No actualizan datos al recorrer un For Each en un DataGridView (SQL/.Net)
« Respuesta #1 en: 12 Enero 2018, 17:14 »

No estás utilizando la gavriable del For, solo utilizas "CurrentRow".

Código
  1. Cmd.Parameters.AddWithValue("@Producto", DGV.CurrentRow.Cells(1).Value)

Prueba a cambiarlo por:

Código
  1. Cmd.Parameters.AddWithValue("@Producto", Row.Cells(1).Value)

Cámbialo en todos los casos dentro del for, eso sí.


En línea

SlayerBur

Desconectado Desconectado

Mensajes: 43



Ver Perfil
Re: No actualizan datos al recorrer un For Each en un DataGridView (SQL/.Net)
« Respuesta #2 en: 12 Enero 2018, 17:19 »

Muchas Gracias :D.
 había intentado ponerle un Row, pero lo ponía como DGV.Row.Cell.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines