Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: Ever Cerna en Mayo 10, 2015, 10:01:48 pm

Título: Guardar datos cargados de un ListView a una tabla de access
Publicado por: Ever Cerna en Mayo 10, 2015, 10:01:48 pm

Una consulta amigos, estoy tratando de insertar los datos que tengo cargados en un Listview con varias filas y guardarlas en una tabla de access, mi problema es que si tengo 5 filas me guarda 5 filas en la tabla pero solo son repetidas de la primera fila, no logro recorrer una por una, estoy usando este code, haber si alguien me hecha una mano o me diga que es lo su estoy haciendo mal, se lo agradecería.

Código: [Seleccionar]

With LvArticulos
   
        For E = 1 To .ListItems.Count
   
            CN.Execute "INSERT INTO COMPRA_DETALLES " & "(IDCompra,IDArticulo,Cantidad,Costo,Serie) VALUES('" & _
                                                        lblIDCompra.Caption & "','" & _
                                                        .SelectedItem & "','" & _
                                                        .SelectedItem.SubItems(3) & "','" & _
                                                        .SelectedItem.SubItems(4) & "','" & _
                                                       .SelectedItem.SubItems(2) & "')"
        Next E
End With


Título: Re:Guardar datos cargados de un ListView a una tabla de access
Publicado por: Jeronimo en Mayo 10, 2015, 11:57:29 pm

Hola, jack06.
Lo que estás haciendo en tu código es tomar siempre el item del ListView que está seleccionado. Probá cambiando ".SelectedItem" por ".Listitems(E)".
Quedaría así:

Código: (VB) [Seleccionar]

With LvArticulos
   
        For E = 1 To .ListItems.Count
   
            CN.Execute "INSERT INTO COMPRA_DETALLES " & "(IDCompra,IDArticulo,Cantidad,Costo,Serie) VALUES('" & _
                                                        lblIDCompra.Caption & "','" & _
                                                        .ListItems(E).Text & "','" & _
                                                        .ListItems(E).SubItems(3) & "','" & _
                                                        .ListItems(E).SubItems(4) & "','" & _
                                                        .ListItems(E).SubItems(2) & "')"
        Next E
End With
Saludos.

Jerónimo

Título: Re:Guardar datos cargados de un ListView a una tabla de access
Publicado por: Ever Cerna en Mayo 11, 2015, 09:12:03 pm

Muchas Gracias, amigo efectivamente alli si da era lo que queria conseguir.

Gracias, nuevamente.

Título: Re:Guardar datos cargados de un ListView a una tabla de access
Publicado por: Jeronimo en Mayo 12, 2015, 12:42:12 am

Me alegro por que te haya servido.
Saludos.

Jerónimo