Visual Basic.NET - Cargar filas de un Listview a una tabla de Access

 
Vista:
sin imagen de perfil
Val: 344
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Cargar filas de un Listview a una tabla de Access

Publicado por Miguel Arce (281 intervenciones) el 18/09/2016 22:56:45
Hace unos días, hice esta pregunta y me contexto una persona aunque tenía ya resuelta parte de la pregunta. Este es el código que tengo hecho.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub bolcarListView()
    Try
        Dim i As Integer, e As Integer
        Dim colum As Integer = ds.Tables(0).Columns.Count - 1
        Dim matriz(colum) As String
        For i = 0 To listaDatos.Items.Count - 1
            For e = 0 To colum
                matriz(e) = Convert.ToString(listaDatos.Items(0).SubItems(e).Text)
            Next
            objClien.InsertaReg("copiaClientes", matriz, cn)
        Next
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Information, ToString())
    End Try
End Sub

Para la prueba tengo cuatro registro en la tabla los cuales los paso al ListView (ListaDatos) donde hago un filtrado dejando solo dos registros. Cuando los vuelco a la tabla solo me pasa uno de los registros del Listview (ListaDatos). Imagino que el problema es porque no he dado con la manera de moverme al registro siguiente del ListView (ListaDatos). He probado con ejemplos que he visto pero no me han funcionado.
Agradecería cualquier orientación enfocada a solucionarlo.
Gracias y un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Wilfredo Patricio Castillo
Val: 1.239
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Cargar filas de un Listview a una tabla de Access

Publicado por Wilfredo Patricio Castillo (720 intervenciones) el 19/09/2016 20:30:24
Creo que ya te he respondido a esa pregunta en otro post.

Para recorrer un listview

1
2
3
4
5
Dim ItemX As ListViewItem
    For Each ItemX In Me.LvDetalle.Items
    Dim apellido As String =  itemX.SubItems(1).Text
    //Aqui vas insertando tus datos, si así lo deseas
Next

Saludos cordiales,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar