Guardar datos cargados de un ListView a una tabla de access

[Ever Cerna]

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


[Jeronimo]

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

[Ever Cerna]

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

Gracias, nuevamente.

[Jeronimo]

Me alegro por que te haya servido.
Saludos.

Jerónimo